sys/arch/mipsco/mipsco/machdep.c

   1 /*      $NetBSD: machdep.c,v 1.69 2009/11/27 03:23:11 rmind Exp $       */
   2
   3 /*
   4  * Copyright (c) 1992, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * This code is derived from software contributed to Berkeley by
   8  * the Systems Programming Group of the University of Utah Computer
   9  * Science Department, The Mach Operating System project at
  10  * Carnegie-Mellon University and Ralph Campbell.
  11  *
  12  * Redistribution and use in source and binary forms, with or without
  13  * modification, are permitted provided that the following conditions
  14  * are met:
  15  * 1. Redistributions of source code must retain the above copyright
  16  *    notice, this list of conditions and the following disclaimer.
  17  * 2. Redistributions in binary form must reproduce the above copyright
  18  *    notice, this list of conditions and the following disclaimer in the
  19  *    documentation and/or other materials provided with the distribution.
  20  * 3. Neither the name of the University nor the names of its contributors
  21  *    may be used to endorse or promote products derived from this software
  22  *    without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  25  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  26  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  27  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  28  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  29  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  30  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  31  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  32  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  33  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  *
  36  *      @(#)machdep.c   8.3 (Berkeley) 1/12/94
  37  */
  38 /*
  39  * Copyright (c) 1988 University of Utah.
  40  *
  41  * This code is derived from software contributed to Berkeley by
  42  * the Systems Programming Group of the University of Utah Computer
  43  * Science Department, The Mach Operating System project at
  44  * Carnegie-Mellon University and Ralph Campbell.
  45  *
  46  * Redistribution and use in source and binary forms, with or without
  47  * modification, are permitted provided that the following conditions
  48  * are met:
  49  * 1. Redistributions of source code must retain the above copyright
  50  *    notice, this list of conditions and the following disclaimer.
  51  * 2. Redistributions in binary form must reproduce the above copyright
  52  *    notice, this list of conditions and the following disclaimer in the
  53  *    documentation and/or other materials provided with the distribution.
  54  * 3. All advertising materials mentioning features or use of this software
  55  *    must display the following acknowledgement:
  56  *      This product includes software developed by the University of
  57  *      California, Berkeley and its contributors.
  58  * 4. Neither the name of the University nor the names of its contributors
  59  *    may be used to endorse or promote products derived from this software
  60  *    without specific prior written permission.
  61  *
  62  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  63  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  64  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  65  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  66  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  67  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  68  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  69  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  70  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  71  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  72  * SUCH DAMAGE.
  73  *
  74  *      @(#)machdep.c   8.3 (Berkeley) 1/12/94
  75  */
  76
  77 #include <sys/cdefs.h>                  /* RCS ID & Copyright macro defns */
  78
  79 __KERNEL_RCSID(0, "$NetBSD: machdep.c,v 1.69 2009/11/27 03:23:11 rmind Exp $");
  80
  81 /* from: Utah Hdr: machdep.c 1.63 91/04/24 */
  82
  83 #include "opt_ddb.h"
  84 #include "opt_kgdb.h"
  85 #include "opt_modular.h"
  86
  87 #include <sys/param.h>
  88 #include <sys/systm.h>
  89 #include <sys/signalvar.h>
  90 #include <sys/kernel.h>
  91 #include <sys/proc.h>
  92 #include <sys/buf.h>
  93 #include <sys/reboot.h>
  94 #include <sys/conf.h>
  95 #include <sys/file.h>
  96 #include <sys/callout.h>
  97 #include <sys/malloc.h>
  98 #include <sys/mbuf.h>
  99 #include <sys/msgbuf.h>
 100 #include <sys/ioctl.h>
 101 #include <sys/device.h>
 102 #include <sys/exec.h>
 103 #include <sys/mount.h>
 104 #include <sys/syscallargs.h>
 105 #include <sys/kcore.h>
 106 #include <sys/ksyms.h>
 107
 108 #include <uvm/uvm_extern.h>
 109
 110 #include <ufs/mfs/mfs_extern.h>         /* mfs_initminiroot() */
 111
 112 #include <machine/cpu.h>
 113 #include <machine/reg.h>
 114 #include <machine/psl.h>
 115 #include <machine/pte.h>
 116
 117 #ifdef DDB
 118 #include <machine/db_machdep.h>
 119 #include <ddb/db_extern.h>
 120 #endif
 121
 122 #include <machine/intr.h>
 123 #include <machine/mainboard.h>
 124 #include <machine/sysconf.h>
 125 #include <machine/autoconf.h>
 126 #include <machine/bootinfo.h>
 127 #include <machine/prom.h>
 128 #include <dev/clock_subr.h>
 129 #include <dev/cons.h>
 130
 131 #include <sys/boot_flag.h>
 132
 133 #include "fs_mfs.h"
 134 #include "opt_execfmt.h"
 135
 136 #include "zsc.h"                        /* XXX */
 137 #include "com.h"                        /* XXX */
 138 #include "ksyms.h"
 139
 140 /* Our exported CPU info; we can have only one. */
 141 struct cpu_info cpu_info_store;
 142
 143 /* maps for VM objects */
 144
 145 struct vm_map *mb_map = NULL;
 146 struct vm_map *phys_map = NULL;
 147
 148 int     physmem;                /* max supported memory, changes to actual */
 149 char    *bootinfo = NULL;       /* pointer to bootinfo structure */
 150
 151 phys_ram_seg_t mem_clusters[VM_PHYSSEG_MAX];
 152 int mem_cluster_cnt;
 153
 154 void to_monitor(int) __attribute__((__noreturn__));
 155 void prom_halt(int) __attribute__((__noreturn__));
 156
 157 #ifdef  KGDB
 158 void zs_kgdb_init(void);
 159 void kgdb_connect(int);
 160 #endif
 161
 162 /*
 163  *  Local functions.
 164  */
 165 int initcpu(void);
 166 void configure(void);
 167
 168 void mach_init(int, char *[], char*[], u_int, char *);
 169 int  memsize_scan(void *);
 170
 171 #ifdef DEBUG
 172 /* stacktrace code violates prototypes to get callee's registers */
 173 extern void stacktrace(void); /*XXX*/
 174 #endif
 175
 176 /*
 177  * safepri is a safe priority for sleep to set for a spin-wait
 178  * during autoconfiguration or after a panic.  Used as an argument to splx().
 179  * XXX disables interrupt 5 to disable mips3 on-chip clock, which also
 180  * disables mips1 FPU interrupts.
 181  */
 182 int     safepri = MIPS3_PSL_LOWIPL;     /* XXX */
 183
 184 /* locore callback-vector setup */
 185 extern void mips_vector_init(void);
 186 extern void prom_init(void);
 187 extern void pizazz_init(void);
 188
 189 /* platform-specific initialization vector */
 190 static void     unimpl_cons_init(void);
 191 static void     unimpl_iointr(unsigned, unsigned, unsigned, unsigned);
 192 static int      unimpl_memsize(void *);
 193 static void     unimpl_intr_establish(int, int (*)(void *), void *);
 194
 195 struct platform platform = {
 196         .iobus = "iobus not set",
 197         .cons_init = unimpl_cons_init,
 198         .iointr = unimpl_iointr,
 199         .memsize = unimpl_memsize,
 200         .intr_establish = unimpl_intr_establish,
 201         .clkinit = NULL,
 202 };
 203
 204 struct consdev *cn_tab = NULL;
 205 extern struct consdev consdev_prom;
 206 extern struct consdev consdev_zs;
 207
 208 static void null_cnprobe(struct consdev *);
 209 static void prom_cninit(struct consdev *);
 210 static int  prom_cngetc(dev_t);
 211 static void prom_cnputc(dev_t, int);
 212 static void null_cnpollc(dev_t, int);
 213
 214 struct consdev consdev_prom = {
 215         null_cnprobe,
 216         prom_cninit,
 217         prom_cngetc,
 218         prom_cnputc,
 219         null_cnpollc,
 220 };
 221
 222
 223 /*
 224  * Do all the stuff that locore normally does before calling main().
 225  * Process arguments passed to us by the prom monitor.
 226  * Return the first page address following the system.
 227  */
 228 void
 229 mach_init(int argc, char *argv[], char *envp[], u_int bim, char *bip)
 230 {
 231         u_long first, last;
 232         char *kernend;
 233         char *cp;
 234         int i, howto;
 235         extern char edata[], end[];
 236         const char *bi_msg;
 237 #if NKSYMS || defined(DDB) || defined(MODULAR)
 238         int nsym = 0;
 239         char *ssym = 0;
 240         char *esym = 0;
 241         struct btinfo_symtab *bi_syms;
 242 #endif
 243
 244
 245         /* Check for valid bootinfo passed from bootstrap */
 246         if (bim == BOOTINFO_MAGIC) {
 247                 struct btinfo_magic *bi_magic;
 248
 249                 bootinfo = (char *)BOOTINFO_ADDR; /* XXX */
 250                 bi_magic = lookup_bootinfo(BTINFO_MAGIC);
 251                 if (bi_magic == NULL || bi_magic->magic != BOOTINFO_MAGIC)
 252                         bi_msg = "invalid bootinfo structure.\n";
 253                 else
 254                         bi_msg = NULL;
 255         } else
 256                 bi_msg = "invalid bootinfo (standalone boot?)\n";
 257
 258         /* clear the BSS segment */
 259         kernend = (void *)mips_round_page(end);
 260         memset(edata, 0, end - edata);
 261
 262 #if NKSYMS || defined(DDB) || defined(MODULAR)
 263         bi_syms = lookup_bootinfo(BTINFO_SYMTAB);
 264
 265         /* Load sysmbol table if present */
 266         if (bi_syms != NULL) {
 267                 nsym = bi_syms->nsym;
 268                 ssym = (void *)bi_syms->ssym;
 269                 esym = (void *)bi_syms->esym;
 270                 kernend = (void *)mips_round_page(esym);
 271         }
 272 #endif
 273
 274         prom_init();
 275         consinit();
 276
 277         if (bi_msg != NULL)
 278                 printf(bi_msg);
 279
 280         /*
 281          * Set the VM page size.
 282          */
 283         uvm_setpagesize();
 284
 285         /* Find out how much memory is available. */
 286         physmem = memsize_scan(kernend);
 287
 288         /*
 289          * Now that we know how much memory we have, initialize the
 290          * mem cluster array.
 291          */
 292         mem_clusters[0].start = 0;              /* XXX is this correct? */
 293         mem_clusters[0].size  = ctob(physmem);
 294         mem_cluster_cnt = 1;
 295
 296         /*
 297          * Copy exception-dispatch code down to exception vector.
 298          * Initialize locore-function vector.
 299          * Clear out the I and D caches.
 300          */
 301         mips_vector_init();
 302
 303         /* Look at argv[0] and compute bootdev */
 304         makebootdev(argv[0]);
 305
 306         /*
 307          * Look at arguments passed to us and compute boothowto.
 308          */
 309         boothowto = RB_AUTOBOOT;
 310         for (i = 1; i < argc; i++) {
 311                 for (cp = argv[i]; *cp; cp++) {
 312                         /* Ignore superfluous '-', if there is one */
 313                         if (*cp == '-')
 314                                 continue;
 315
 316                         howto = 0;
 317                         BOOT_FLAG(*cp, howto);
 318                         if (! howto)
 319                                 printf("bootflag '%c' not recognised\n", *cp);
 320                         else
 321                                 boothowto |= howto;
 322                 }
 323         }
 324
 325
 326 #if NKSYMS || defined(DDB) || defined(MODULAR)
 327         /* init symbols if present */
 328         if (esym)
 329                 ksyms_addsyms_elf(esym - ssym, ssym, esym);
 330 #endif
 331 #ifdef DDB
 332         if (boothowto & RB_KDB)
 333                 Debugger();
 334 #endif
 335 #ifdef KGDB
 336         zs_kgdb_init();                 /* XXX */
 337         if (boothowto & RB_KDB)
 338                 kgdb_connect(0);
 339 #endif
 340
 341 #ifdef MFS
 342         /*
 343          * Check to see if a mini-root was loaded into memory. It resides
 344          * at the start of the next page just after the end of BSS.
 345          */
 346         if (boothowto & RB_MINIROOT)
 347                 kernend += round_page(mfs_initminiroot(kernend));
 348 #endif
 349
 350         /*
 351          * Load the rest of the available pages into the VM system.
 352          */
 353         first = round_page(MIPS_KSEG0_TO_PHYS(kernend));
 354         last = mem_clusters[0].start + mem_clusters[0].size;
 355         uvm_page_physload(atop(first), atop(last), atop(first), atop(last),
 356             VM_FREELIST_DEFAULT);
 357
 358         /*
 359          * Initialize error message buffer (at end of core).
 360          */
 361         mips_init_msgbuf();
 362
 363         /*
 364          * Initialize the virtual memory system.
 365          */
 366         pmap_bootstrap();
 367
 368         /*
 369          * Allocate uarea page for lwp0 and set it.
 370          */
 371         mips_init_lwp0_uarea();
 372
 373         /*
 374          * Set up interrupt handling and I/O addresses.
 375          */
 376         pizazz_init();
 377 }
 378
 379
 380
 381 /*
 382  * cpu_startup: allocate memory for variable-sized tables,
 383  * initialize CPU, and do autoconfiguration.
 384  */
 385 void
 386 cpu_startup(void)
 387 {
 388         vaddr_t minaddr, maxaddr;
 389         char pbuf[9];
 390 #ifdef DEBUG
 391         extern int pmapdebug;
 392         int opmapdebug = pmapdebug;
 393
 394         pmapdebug = 0;
 395 #endif
 396
 397         /*
 398          * Good {morning,afternoon,evening,night}.
 399          */
 400         printf("%s%s", copyright, version);
 401         printf("%s\n", cpu_model);
 402         format_bytes(pbuf, sizeof(pbuf), ctob(physmem));
 403         printf("total memory = %s\n", pbuf);
 404
 405         minaddr = 0;
 406         /*
 407          * Allocate a submap for physio
 408          */
 409         phys_map = uvm_km_suballoc(kernel_map, &minaddr, &maxaddr,
 410                                    VM_PHYS_SIZE, true, false, NULL);
 411
 412         /*
 413          * No need to allocate an mbuf cluster submap.  Mbuf clusters
 414          * are allocated via the pool allocator, and we use KSEG to
 415          * map those pages.
 416          */
 417
 418 #ifdef DEBUG
 419         pmapdebug = opmapdebug;
 420 #endif
 421         format_bytes(pbuf, sizeof(pbuf), ptoa(uvmexp.free));
 422         printf("avail memory = %s\n", pbuf);
 423 }
 424
 425 /*
 426  * Look up information in bootinfo of boot loader.
 427  */
 428 void *
 429 lookup_bootinfo(int type)
 430 {
 431         struct btinfo_common *bt;
 432         char *help = bootinfo;
 433
 434         /* Check for a bootinfo record first. */
 435         if (help == NULL)
 436                 return (NULL);
 437
 438         do {
 439                 bt = (struct btinfo_common *)help;
 440                 if (bt->type == type)
 441                         return ((void *)help);
 442                 help += bt->next;
 443         } while (bt->next != 0 &&
 444                 (size_t)help < (size_t)bootinfo + BOOTINFO_SIZE);
 445
 446         return (NULL);
 447 }
 448
 449 int     waittime = -1;
 450
 451 /*
 452  * call PROM to halt or reboot.
 453  */
 454 void
 455 prom_halt(int howto)
 456 {
 457         if (howto & RB_HALT)
 458                 MIPS_PROM(reinit)();
 459         MIPS_PROM(reboot)();
 460         /* NOTREACHED */
 461 }
 462
 463 void
 464 cpu_reboot(volatile int howto, char *bootstr)
 465 {
 466         /* take a snap shot before clobbering any registers */
 467         if (curlwp)
 468                 savectx(curpcb);
 469
 470 #ifdef DEBUG
 471         if (panicstr)
 472                 stacktrace();
 473 #endif
 474
 475         /* If system is cold, just halt. */
 476         if (cold) {
 477                 howto |= RB_HALT;
 478                 goto haltsys;
 479         }
 480
 481         /* If "always halt" was specified as a boot flag, obey. */
 482         if ((boothowto & RB_HALT) != 0)
 483                 howto |= RB_HALT;
 484
 485         boothowto = howto;
 486         if ((howto & RB_NOSYNC) == 0 && waittime < 0) {
 487                 /*
 488                  * Synchronize the disks....
 489                  */
 490                 waittime = 0;
 491                 vfs_shutdown();
 492
 493                 /*
 494                  * If we've been adjusting the clock, the todr
 495                  * will be out of synch; adjust it now.
 496                  */
 497                 resettodr();
 498         }
 499
 500         /* Disable interrupts. */
 501         splhigh();
 502
 503         /* If rebooting and a dump is requested do it. */
 504 #if 0
 505         if ((howto & (RB_DUMP | RB_HALT)) == RB_DUMP)
 506 #else
 507         if (howto & RB_DUMP)
 508 #endif
 509                 dumpsys();
 510
 511 haltsys:
 512
 513         /* run any shutdown hooks */
 514         doshutdownhooks();
 515
 516         pmf_system_shutdown(boothowto);
 517
 518         if ((howto & RB_POWERDOWN) == RB_POWERDOWN)
 519                 prom_halt(0x80);        /* rom monitor RB_PWOFF */
 520
 521         /* Finally, halt/reboot the system. */
 522         printf("%s\n\n", howto & RB_HALT ? "halted." : "rebooting...");
 523         prom_halt(howto & RB_HALT);
 524         /*NOTREACHED*/
 525 }
 526
 527 int
 528 initcpu(void)
 529 {
 530         spl0();         /* safe to turn interrupts on now */
 531         return 0;
 532 }
 533
 534 static void
 535 unimpl_cons_init(void)
 536 {
 537
 538         panic("sysconf.init didn't set cons_init");
 539 }
 540
 541 static void
 542 unimpl_iointr(u_int mask, u_int pc, u_int statusreg, u_int causereg)
 543 {
 544
 545         panic("sysconf.init didn't set intr");
 546 }
 547
 548 static int
 549 unimpl_memsize(void *first)
 550 {
 551
 552         panic("sysconf.init didn't set memsize");
 553 }
 554
 555 void
 556 unimpl_intr_establish(int level, int (*func)(void *), void *arg)
 557 {
 558         panic("sysconf.init didn't init intr_establish");
 559 }
 560
 561 void
 562 delay(int n)
 563 {
 564         DELAY(n);
 565 }
 566
 567 /*
 568  * Find out how much memory is available by testing memory.
 569  * Be careful to save and restore the original contents for msgbuf.
 570  */
 571 int
 572 memsize_scan(void *first)
 573 {
 574         volatile int *vp, *vp0;
 575         int mem, tmp, tmp0;
 576
 577 #define PATTERN1 0xa5a5a5a5
 578 #define PATTERN2 ~PATTERN1
 579
 580         /*
 581          * Non destructive scan of memory to determine the size
 582          * Use the first page to test for memory aliases.  This
 583          * also has the side effect of flushing the bus alignment
 584          * buffer
 585          */
 586         mem = btoc((paddr_t)first - MIPS_KSEG0_START);
 587         vp = (int *)MIPS_PHYS_TO_KSEG1(mem << PGSHIFT);
 588         vp0 = (int *)MIPS_PHYS_TO_KSEG1(0); /* Start of physical memory */
 589         tmp0 = *vp0;
 590         while (vp < (int *)MIPS_MAX_MEM_ADDR) {
 591                 tmp = *vp;
 592                 *vp  = PATTERN1;
 593                 *vp0 = PATTERN2;
 594                 wbflush();
 595                 if (*vp != PATTERN1)
 596                         break;
 597                 *vp  = PATTERN2;
 598                 *vp0 = PATTERN1;
 599                 wbflush();
 600                 if (*vp != PATTERN2)
 601                         break;
 602                 *vp = tmp;
 603                 vp += PAGE_SIZE/sizeof(int);
 604                 mem++;
 605         }
 606         *vp0 = tmp0;
 607         return mem;
 608 }
 609
 610 /*
 611  * Console initialization: called early on from main,
 612  * before vm init or startup.  Do enough configuration
 613  * to choose and initialize a console.
 614  */
 615
 616 static void
 617 null_cnprobe(struct consdev *cn)
 618 {
 619 }
 620
 621 static void
 622 prom_cninit(struct consdev *cn)
 623 {
 624         extern const struct cdevsw cons_cdevsw;
 625
 626         cn->cn_dev = makedev(cdevsw_lookup_major(&cons_cdevsw), 0);
 627         cn->cn_pri = CN_REMOTE;
 628 }
 629
 630 static int
 631 prom_cngetc(dev_t dev)
 632 {
 633         return MIPS_PROM(getchar)();
 634 }
 635
 636 static void
 637 prom_cnputc(dev_t dev, int c)
 638 {
 639         MIPS_PROM(putchar)(c);
 640 }
 641
 642 static void
 643 null_cnpollc(dev_t dev, int on)
 644 {
 645 }
 646
 647 void
 648 consinit(void)
 649 {
 650         int zs_unit;
 651
 652         zs_unit = 0;
 653         cn_tab = &consdev_zs;
 654
 655         (*cn_tab->cn_init)(cn_tab);
 656 }