sys/arm/annapurna/alpine/common.c

   1 /*-
   2  * Copyright (c) 2013 Ruslan Bukin <br@bsdpad.com>
   3  * Copyright (c) 2015 Semihalf.
   4  * All rights reserved.
   5  *
   6  * Redistribution and use in source and binary forms, with or without
   7  * modification, are permitted provided that the following conditions
   8  * are met:
   9  * 1. Redistributions of source code must retain the above copyright
  10  *    notice, this list of conditions and the following disclaimer.
  11  * 2. Redistributions in binary form must reproduce the above copyright
  12  *    notice, this list of conditions and the following disclaimer in the
  13  *    documentation and/or other materials provided with the distribution.
  14  *
  15  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  16  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  17  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  18  * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  19  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  20  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  21  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  22  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  23  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  24  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  25  * SUCH DAMAGE.
  26  *
  27  */
  28
  29 #include <sys/cdefs.h>
  30 __FBSDID("$FreeBSD$");
  31
  32 #include "opt_platform.h"
  33
  34 #include <sys/param.h>
  35 #include <sys/systm.h>
  36 #include <sys/bus.h>
  37 #include <sys/kernel.h>
  38
  39 #include <dev/fdt/fdt_common.h>
  40 #include <dev/ofw/openfirm.h>
  41
  42 #include <machine/bus.h>
  43 #include <machine/fdt.h>
  44 #include <machine/intr.h>
  45
  46 #define WDTLOAD         0x000
  47 #define LOAD_MIN        0x00000001
  48 #define LOAD_MAX        0xFFFFFFFF
  49 #define WDTVALUE        0x004
  50 #define WDTCONTROL      0x008
  51 /* control register masks */
  52 #define INT_ENABLE      (1 << 0)
  53 #define RESET_ENABLE    (1 << 1)
  54 #define WDTLOCK         0xC00
  55 #define UNLOCK          0x1ACCE551
  56 #define LOCK            0x00000001
  57
  58 extern bus_addr_t  al_devmap_pa;
  59 struct fdt_fixup_entry fdt_fixup_table[] = {
  60         { NULL, NULL }
  61 };
  62
  63 static int alpine_get_wdt_base(uint32_t *pbase, uint32_t *psize);
  64 static int alpine_pic_decode_fdt(uint32_t iparent, uint32_t *intr,
  65     int *interrupt, int *trig, int *pol);
  66
  67 int alpine_get_devmap_base(bus_addr_t *pa, bus_addr_t *size);
  68
  69 int alpine_get_devmap_base(bus_addr_t *pa, bus_addr_t *size)
  70 {
  71         phandle_t node;
  72
  73         if ((node = OF_finddevice("/")) == 0)
  74                 return (ENXIO);
  75
  76         if ((node = fdt_find_compatible(node, "simple-bus", 1)) == 0)
  77                 return (ENXIO);
  78
  79         return fdt_get_range(node, 0, pa, size);
  80 }
  81
  82 static int
  83 alpine_get_wdt_base(uint32_t *pbase, uint32_t *psize)
  84 {
  85         phandle_t node;
  86         u_long base = 0;
  87         u_long size = 0;
  88
  89         if (pbase == NULL || psize == NULL)
  90                 return (EINVAL);
  91
  92         if ((node = OF_finddevice("/")) == -1)
  93                 return (EFAULT);
  94
  95         if ((node = fdt_find_compatible(node, "simple-bus", 1)) == 0)
  96                 return (EFAULT);
  97
  98         if ((node =
  99             fdt_find_compatible(node, "arm,sp805", 1)) == 0)
 100                 return (EFAULT);
 101
 102         if (fdt_regsize(node, &base, &size))
 103                 return (EFAULT);
 104
 105         *pbase = base;
 106         *psize = size;
 107
 108         return (0);
 109 }
 110
 111 void
 112 cpu_reset(void)
 113 {
 114         uint32_t wdbase, wdsize;
 115         bus_addr_t wdbaddr;
 116         int ret;
 117
 118         ret = alpine_get_wdt_base(&wdbase, &wdsize);
 119         if (ret) {
 120                 printf("Unable to get WDT base, do power down manually...");
 121                 goto infinite;
 122         }
 123
 124         ret = bus_space_map(fdtbus_bs_tag, al_devmap_pa + wdbase,
 125             wdsize, 0, &wdbaddr);
 126         if (ret) {
 127                 printf("Unable to map WDT base, do power down manually...");
 128                 goto infinite;
 129         }
 130
 131         bus_space_write_4(fdtbus_bs_tag, wdbaddr, WDTLOCK, UNLOCK);
 132         bus_space_write_4(fdtbus_bs_tag, wdbaddr, WDTLOAD, LOAD_MIN);
 133         bus_space_write_4(fdtbus_bs_tag, wdbaddr, WDTCONTROL, INT_ENABLE | RESET_ENABLE);
 134
 135 infinite:
 136         while (1) {}
 137 }
 138
 139 static int
 140 alpine_pic_decode_fdt(uint32_t iparent, uint32_t *intr, int *interrupt,
 141     int *trig, int *pol)
 142 {
 143         int rv = 0;
 144
 145         rv = gic_decode_fdt(iparent, intr, interrupt, trig, pol);
 146         if (rv == 0) {
 147                 /* This was recognized as our PIC and decoded. */
 148                 interrupt = FDT_MAP_IRQ(iparent, interrupt);
 149
 150                 /* Configure the interrupt if callback provided */
 151                 if (arm_config_irq)
 152                         (*arm_config_irq)(*interrupt, *trig, *pol);
 153         }
 154         return (rv);
 155 }
 156
 157 fdt_pic_decode_t fdt_pic_table[] = {
 158         &alpine_pic_decode_fdt,
 159         NULL
 160 };