sys/mips/ingenic/jz4780_machdep.c

   1 /*-
   2  * Copyright (c) 2009 Oleksandr Tymoshenko
   3  * Copyright (c) 2015 Alexander Kabaev
   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 #include <sys/cdefs.h>
  29 __FBSDID("$FreeBSD$");
  30
  31 #include "opt_ddb.h"
  32 #include "opt_platform.h"
  33
  34 #include <sys/param.h>
  35 #include <sys/conf.h>
  36 #include <sys/kernel.h>
  37 #include <sys/systm.h>
  38 #include <sys/bus.h>
  39 #include <sys/cons.h>
  40 #include <sys/kdb.h>
  41 #include <sys/reboot.h>
  42
  43 #ifdef FDT
  44 #include <dev/fdt/fdt_common.h>
  45 #include <dev/ofw/openfirm.h>
  46 #endif
  47
  48 #include <vm/vm.h>
  49 #include <vm/vm_page.h>
  50
  51 #include <net/ethernet.h>
  52
  53 #include <machine/clock.h>
  54 #include <machine/cpu.h>
  55 #include <machine/cpufunc.h>
  56 #include <machine/hwfunc.h>
  57 #include <machine/md_var.h>
  58 #include <machine/trap.h>
  59 #include <machine/vmparam.h>
  60
  61 #include <mips/ingenic/jz4780_regs.h>
  62 #include <mips/ingenic/jz4780_cpuregs.h>
  63
  64 uint32_t * const led = (uint32_t *)0xb0010548;
  65
  66 extern char edata[], end[];
  67 static char boot1_env[4096];
  68
  69 void
  70 platform_cpu_init(void)
  71 {
  72         uint32_t reg;
  73
  74         /*
  75          * Do not expect mbox interrups while writing
  76          * mbox
  77          */
  78         reg = mips_rd_xburst_reim();
  79         reg &= ~JZ_REIM_MIRQ0M;
  80         mips_wr_xburst_reim(reg);
  81
  82         /* Clean mailboxes */
  83         mips_wr_xburst_mbox0(0);
  84         mips_wr_xburst_mbox1(0);
  85         mips_wr_xburst_core_sts(~JZ_CORESTS_MIRQ0P);
  86
  87         /* Unmask mbox interrupts */
  88         reg |= JZ_REIM_MIRQ0M;
  89         mips_wr_xburst_reim(reg);
  90 }
  91
  92 void
  93 platform_reset(void)
  94 {
  95         /*
  96          * For now, provoke a watchdog reset in about a second, so UART buffers
  97          * have a fighting chance to flush before we pull the plug
  98          */
  99         writereg(JZ_TCU_BASE + JZ_WDOG_TCER, 0);        /* disable watchdog */
 100         writereg(JZ_TCU_BASE + JZ_WDOG_TCNT, 0);        /* reset counter */
 101         writereg(JZ_TCU_BASE + JZ_WDOG_TDR, 128);       /* wait for ~1s */
 102         writereg(JZ_TCU_BASE + JZ_WDOG_TCSR, TCSR_RTC_EN | TCSR_DIV_256);
 103         writereg(JZ_TCU_BASE + JZ_WDOG_TCER, TCER_ENABLE);      /* fire! */
 104
 105         /* Wait for reset */
 106         while (1)
 107                 ;
 108 }
 109
 110 static void
 111 mips_init(void)
 112 {
 113         int i;
 114 #ifdef FDT
 115         struct mem_region mr[FDT_MEM_REGIONS];
 116         uint64_t val;
 117         int mr_cnt;
 118         int j;
 119 #endif
 120
 121         for (i = 0; i < 10; i++) {
 122                 phys_avail[i] = 0;
 123         }
 124
 125         /* The minimal amount of memory Ingenic SoC can have. */
 126         dump_avail[0] = phys_avail[0] = MIPS_KSEG0_TO_PHYS(kernel_kseg0_end);
 127         physmem = realmem = btoc(32 * 1024 * 1024);
 128
 129         /*
 130          * X1000 mips cpu special.
 131          * TODO: do anyone know what is this ?
 132          */
 133         __asm(
 134                 "li     $2, 0xa9000000  \n\t"
 135                 "mtc0   $2, $5, 4       \n\t"
 136                 "nop                    \n\t"
 137                 ::"r"(2));
 138
 139 #ifdef FDT
 140         if (fdt_get_mem_regions(mr, &mr_cnt, &val) == 0) {
 141
 142                 physmem = realmem = btoc(val);
 143
 144                 KASSERT((phys_avail[0] >= mr[0].mr_start) && \
 145                         (phys_avail[0] < (mr[0].mr_start + mr[0].mr_size)),
 146                         ("First region is not within FDT memory range"));
 147
 148                 /* Limit size of the first region */
 149                 phys_avail[1] = (mr[0].mr_start + MIN(mr[0].mr_size, ctob(realmem)));
 150                 dump_avail[1] = phys_avail[1];
 151
 152                 /* Add the rest of regions */
 153                 for (i = 1, j = 2; i < mr_cnt; i++, j+=2) {
 154                         phys_avail[j] = mr[i].mr_start;
 155                         phys_avail[j+1] = (mr[i].mr_start + mr[i].mr_size);
 156                         dump_avail[j] = phys_avail[j];
 157                         dump_avail[j+1] = phys_avail[j+1];
 158                 }
 159         }
 160 #endif
 161
 162         init_param1();
 163         init_param2(physmem);
 164         mips_cpu_init();
 165         pmap_bootstrap();
 166         mips_proc0_init();
 167         mutex_init();
 168         kdb_init();
 169         led[0] = 0x8000;
 170 #ifdef KDB
 171         if (boothowto & RB_KDB)
 172                 kdb_enter(KDB_WHY_BOOTFLAGS, "Boot flags requested debugger");
 173 #endif
 174 }
 175
 176 static void
 177 _parse_bootarg(char *v)
 178 {
 179         char *n;
 180
 181         if (*v == '-') {
 182                 while (*v != '\0') {
 183                         v++;
 184                         switch (*v) {
 185                         case 'a': boothowto |= RB_ASKNAME; break;
 186                         /* Someone should simulate that ;-) */
 187                         case 'C': boothowto |= RB_CDROM; break;
 188                         case 'd': boothowto |= RB_KDB; break;
 189                         case 'D': boothowto |= RB_MULTIPLE; break;
 190                         case 'm': boothowto |= RB_MUTE; break;
 191                         case 'g': boothowto |= RB_GDB; break;
 192                         case 'h': boothowto |= RB_SERIAL; break;
 193                         case 'p': boothowto |= RB_PAUSE; break;
 194                         case 'r': boothowto |= RB_DFLTROOT; break;
 195                         case 's': boothowto |= RB_SINGLE; break;
 196                         case 'v': boothowto |= RB_VERBOSE; break;
 197                         }
 198                 }
 199         } else {
 200                 n = strsep(&v, "=");
 201                 if (v == NULL)
 202                         kern_setenv(n, "1");
 203                 else
 204                         kern_setenv(n, v);
 205         }
 206 }
 207
 208 static void
 209 _parse_cmdline(int argc, char *argv[])
 210 {
 211         int i;
 212
 213         for (i = 1; i < argc; i++)
 214                 _parse_bootarg(argv[i]);
 215 }
 216
 217 #ifdef FDT
 218 /* Parse cmd line args as env - copied from xlp_machdep. */
 219 /* XXX-BZ this should really be centrally provided for all (boot) code. */
 220 static void
 221 _parse_bootargs(char *cmdline)
 222 {
 223         char *v;
 224
 225         while ((v = strsep(&cmdline, " \n")) != NULL) {
 226                 if (*v == '\0')
 227                         continue;
 228                 _parse_bootarg(v);
 229         }
 230 }
 231 #endif
 232
 233 void
 234 platform_start(__register_t a0,  __register_t a1,
 235     __register_t a2 __unused, __register_t a3 __unused)
 236 {
 237         char **argv;
 238         int  argc;
 239         vm_offset_t kernend;
 240 #ifdef FDT
 241         vm_offset_t dtbp;
 242         phandle_t chosen;
 243         char buf[2048];         /* early stack supposedly big enough */
 244 #endif
 245         /*
 246          * clear the BSS and SBSS segments, this should be first call in
 247          * the function
 248          */
 249         kernend = (vm_offset_t)&end;
 250         memset(&edata, 0, kernend - (vm_offset_t)(&edata));
 251
 252         mips_postboot_fixup();
 253
 254         /* Initialize pcpu stuff */
 255         mips_pcpu0_init();
 256
 257         /* Something to hold kernel env until kmem is available */
 258         init_static_kenv(boot1_env, sizeof(boot1_env));
 259 #ifdef FDT
 260         /*
 261          * Find the dtb passed in by the boot loader (currently fictional).
 262          */
 263         dtbp = (vm_offset_t)NULL;
 264
 265 #if defined(FDT_DTB_STATIC)
 266         /*
 267          * In case the device tree blob was not retrieved (from metadata) try
 268          * to use the statically embedded one.
 269          */
 270         if (dtbp == (vm_offset_t)NULL)
 271                 dtbp = (vm_offset_t)&fdt_static_dtb;
 272 #else
 273 #error  "Non-static FDT not supported on JZ4780"
 274 #endif
 275         if (OF_install(OFW_FDT, 0) == FALSE)
 276                 while (1);
 277         if (OF_init((void *)dtbp) != 0)
 278                 while (1);
 279 #endif
 280
 281         cninit();
 282 #ifdef FDT
 283         /*
 284          * Get bootargs from FDT if specified.
 285          */
 286         chosen = OF_finddevice("/chosen");
 287         if (OF_getprop(chosen, "bootargs", buf, sizeof(buf)) != -1)
 288                 _parse_bootargs(buf);
 289 #endif
 290         /* Parse cmdline from U-Boot */
 291         argc = a0;
 292         argv = (char **)a1;
 293         _parse_cmdline(argc, argv);
 294
 295         mips_init();
 296 }