Home | History | Annotate | Line # | Download | only in sun3x
machdep.c revision 1.16
      1  1.16      gwr /*	$NetBSD: machdep.c,v 1.16 1997/05/14 16:45:22 gwr Exp $	*/
      2   1.1      gwr 
      3   1.1      gwr /*
      4   1.1      gwr  * Copyright (c) 1988 University of Utah.
      5   1.1      gwr  * Copyright (c) 1982, 1986, 1990, 1993
      6   1.1      gwr  *	The Regents of the University of California.  All rights reserved.
      7   1.1      gwr  *
      8   1.1      gwr  * This code is derived from software contributed to Berkeley by
      9   1.1      gwr  * the Systems Programming Group of the University of Utah Computer
     10   1.1      gwr  * Science Department.
     11   1.1      gwr  *
     12   1.1      gwr  * Redistribution and use in source and binary forms, with or without
     13   1.1      gwr  * modification, are permitted provided that the following conditions
     14   1.1      gwr  * are met:
     15   1.1      gwr  * 1. Redistributions of source code must retain the above copyright
     16   1.1      gwr  *    notice, this list of conditions and the following disclaimer.
     17   1.1      gwr  * 2. Redistributions in binary form must reproduce the above copyright
     18   1.1      gwr  *    notice, this list of conditions and the following disclaimer in the
     19   1.1      gwr  *    documentation and/or other materials provided with the distribution.
     20   1.1      gwr  * 3. All advertising materials mentioning features or use of this software
     21   1.1      gwr  *    must display the following acknowledgement:
     22   1.1      gwr  *	This product includes software developed by the University of
     23   1.1      gwr  *	California, Berkeley and its contributors.
     24   1.1      gwr  * 4. Neither the name of the University nor the names of its contributors
     25   1.1      gwr  *    may be used to endorse or promote products derived from this software
     26   1.1      gwr  *    without specific prior written permission.
     27   1.1      gwr  *
     28   1.1      gwr  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     29   1.1      gwr  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     30   1.1      gwr  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     31   1.1      gwr  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     32   1.1      gwr  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     33   1.1      gwr  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     34   1.1      gwr  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     35   1.1      gwr  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     36   1.1      gwr  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     37   1.1      gwr  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     38   1.1      gwr  * SUCH DAMAGE.
     39   1.1      gwr  *
     40   1.1      gwr  *	from: Utah Hdr: machdep.c 1.74 92/12/20
     41   1.1      gwr  *	from: @(#)machdep.c	8.10 (Berkeley) 4/20/94
     42   1.1      gwr  */
     43   1.1      gwr 
     44   1.1      gwr #include <sys/param.h>
     45   1.1      gwr #include <sys/systm.h>
     46   1.1      gwr #include <sys/kernel.h>
     47   1.1      gwr #include <sys/map.h>
     48   1.1      gwr #include <sys/proc.h>
     49   1.1      gwr #include <sys/buf.h>
     50   1.1      gwr #include <sys/reboot.h>
     51   1.1      gwr #include <sys/conf.h>
     52   1.1      gwr #include <sys/file.h>
     53   1.1      gwr #include <sys/clist.h>
     54   1.1      gwr #include <sys/callout.h>
     55   1.1      gwr #include <sys/malloc.h>
     56   1.1      gwr #include <sys/mbuf.h>
     57   1.1      gwr #include <sys/msgbuf.h>
     58   1.1      gwr #include <sys/ioctl.h>
     59   1.1      gwr #include <sys/tty.h>
     60   1.1      gwr #include <sys/mount.h>
     61   1.1      gwr #include <sys/user.h>
     62   1.1      gwr #include <sys/exec.h>
     63   1.1      gwr #include <sys/core.h>
     64   1.1      gwr #include <sys/kcore.h>
     65   1.1      gwr #include <sys/vnode.h>
     66   1.1      gwr #include <sys/sysctl.h>
     67   1.1      gwr #include <sys/syscallargs.h>
     68   1.1      gwr #ifdef SYSVMSG
     69   1.1      gwr #include <sys/msg.h>
     70   1.1      gwr #endif
     71   1.1      gwr #ifdef SYSVSEM
     72   1.1      gwr #include <sys/sem.h>
     73   1.1      gwr #endif
     74   1.1      gwr #ifdef SYSVSHM
     75   1.1      gwr #include <sys/shm.h>
     76   1.1      gwr #endif
     77   1.8      gwr #ifdef	KGDB
     78   1.8      gwr #include <sys/kgdb.h>
     79   1.8      gwr #endif
     80   1.1      gwr 
     81   1.1      gwr #include <vm/vm.h>
     82   1.1      gwr #include <vm/vm_map.h>
     83   1.1      gwr #include <vm/vm_kern.h>
     84   1.1      gwr #include <vm/vm_page.h>
     85   1.1      gwr 
     86   1.1      gwr #include <dev/cons.h>
     87   1.1      gwr 
     88   1.1      gwr #include <machine/cpu.h>
     89   1.1      gwr #include <machine/reg.h>
     90   1.1      gwr #include <machine/psl.h>
     91   1.1      gwr #include <machine/pte.h>
     92   1.1      gwr #include <machine/dvma.h>
     93  1.10      gwr #include <machine/kcore.h>
     94   1.1      gwr #include <machine/db_machdep.h>
     95  1.15      gwr #include <machine/idprom.h>
     96   1.3      gwr #include <machine/machdep.h>
     97   1.1      gwr 
     98   1.1      gwr extern char version[];
     99   1.1      gwr 
    100   1.1      gwr /* Defined in locore.s */
    101   1.1      gwr extern char kernel_text[];
    102   1.1      gwr /* Defined by the linker */
    103   1.1      gwr extern char etext[];
    104   1.1      gwr 
    105   1.1      gwr int	physmem;
    106   1.9      gwr int	fputype;
    107   1.1      gwr int	msgbufmapped;
    108  1.15      gwr struct msgbuf *msgbufp;
    109   1.1      gwr 
    110   1.1      gwr vm_offset_t vmmap;
    111   1.1      gwr 
    112   1.1      gwr /*
    113   1.1      gwr  * safepri is a safe priority for sleep to set for a spin-wait
    114   1.1      gwr  * during autoconfiguration or after a panic.
    115   1.1      gwr  */
    116   1.1      gwr int	safepri = PSL_LOWIPL;
    117   1.1      gwr 
    118   1.1      gwr /*
    119   1.1      gwr  * Declare these as initialized data so we can patch them.
    120   1.1      gwr  */
    121   1.1      gwr int	nswbuf = 0;
    122   1.1      gwr #ifdef	NBUF
    123   1.1      gwr int	nbuf = NBUF;
    124   1.1      gwr #else
    125   1.1      gwr int	nbuf = 0;
    126   1.1      gwr #endif
    127   1.1      gwr #ifdef	BUFPAGES
    128   1.1      gwr int	bufpages = BUFPAGES;
    129   1.1      gwr #else
    130   1.1      gwr int	bufpages = 0;
    131   1.1      gwr #endif
    132   1.1      gwr 
    133  1.15      gwr unsigned char cpu_machine_id = 0;
    134  1.15      gwr char *cpu_string = NULL;
    135  1.15      gwr int cpu_has_vme = 0;
    136  1.15      gwr int has_iocache = 0;
    137  1.15      gwr 
    138   1.1      gwr static void identifycpu __P((void));
    139   1.1      gwr static void initcpu __P((void));
    140   1.1      gwr 
    141   1.1      gwr /*
    142   1.1      gwr  * Console initialization: called early on from main,
    143  1.15      gwr  * before vm init or cpu_startup.  This system is able
    144  1.15      gwr  * to setup the console much earlier than here (thanks
    145  1.15      gwr  * to some help from the PROM monitor) so all that is
    146  1.15      gwr  * left to do here is the debugger stuff.
    147   1.1      gwr  */
    148   1.8      gwr void
    149   1.8      gwr consinit()
    150   1.1      gwr {
    151   1.1      gwr 
    152   1.1      gwr #ifdef KGDB
    153   1.1      gwr 	/* XXX - Ask on console for kgdb_dev? */
    154   1.5      gwr 	/* Note: this will just return if kgdb_dev<0 */
    155   1.1      gwr 	if (boothowto & RB_KDB)
    156   1.1      gwr 		kgdb_connect(1);
    157   1.1      gwr #endif
    158   1.1      gwr #ifdef DDB
    159   1.1      gwr 	/* Now that we have a console, we can stop in DDB. */
    160   1.1      gwr 	db_machine_init();
    161   1.1      gwr 	ddb_init();
    162   1.1      gwr 	if (boothowto & RB_KDB)
    163   1.1      gwr 		Debugger();
    164   1.1      gwr #endif DDB
    165   1.1      gwr }
    166   1.1      gwr 
    167   1.1      gwr /*
    168   1.1      gwr  * allocsys() - Private routine used by cpu_startup() below.
    169   1.1      gwr  *
    170   1.1      gwr  * Allocate space for system data structures.  We are given
    171   1.1      gwr  * a starting virtual address and we return a final virtual
    172   1.1      gwr  * address; along the way we set each data structure pointer.
    173   1.1      gwr  *
    174   1.1      gwr  * We call allocsys() with 0 to find out how much space we want,
    175   1.1      gwr  * allocate that much and fill it with zeroes, and then call
    176   1.1      gwr  * allocsys() again with the correct base virtual address.
    177   1.1      gwr  */
    178   1.1      gwr #define	valloc(name, type, num) \
    179   1.1      gwr 	v = (caddr_t)(((name) = (type *)v) + (num))
    180   1.1      gwr static caddr_t allocsys __P((caddr_t));
    181   1.1      gwr static caddr_t
    182   1.1      gwr allocsys(v)
    183   1.1      gwr 	register caddr_t v;
    184   1.1      gwr {
    185   1.1      gwr 
    186   1.1      gwr #ifdef REAL_CLISTS
    187   1.1      gwr 	valloc(cfree, struct cblock, nclist);
    188   1.1      gwr #endif
    189   1.1      gwr 	valloc(callout, struct callout, ncallout);
    190   1.1      gwr 	valloc(swapmap, struct map, nswapmap = maxproc * 2);
    191   1.1      gwr #ifdef SYSVSHM
    192   1.1      gwr 	valloc(shmsegs, struct shmid_ds, shminfo.shmmni);
    193   1.1      gwr #endif
    194   1.1      gwr #ifdef SYSVSEM
    195   1.1      gwr 	valloc(sema, struct semid_ds, seminfo.semmni);
    196   1.1      gwr 	valloc(sem, struct sem, seminfo.semmns);
    197   1.1      gwr 	/* This is pretty disgusting! */
    198   1.1      gwr 	valloc(semu, int, (seminfo.semmnu * seminfo.semusz) / sizeof(int));
    199   1.1      gwr #endif
    200   1.1      gwr #ifdef SYSVMSG
    201   1.1      gwr 	valloc(msgpool, char, msginfo.msgmax);
    202   1.1      gwr 	valloc(msgmaps, struct msgmap, msginfo.msgseg);
    203   1.1      gwr 	valloc(msghdrs, struct msg, msginfo.msgtql);
    204   1.1      gwr 	valloc(msqids, struct msqid_ds, msginfo.msgmni);
    205   1.1      gwr #endif
    206   1.1      gwr 
    207   1.1      gwr 	/*
    208   1.1      gwr 	 * Determine how many buffers to allocate. We allocate
    209   1.1      gwr 	 * the BSD standard of use 10% of memory for the first 2 Meg,
    210   1.1      gwr 	 * 5% of remaining. Insure a minimum of 16 buffers.
    211   1.1      gwr 	 * Allocate 1/2 as many swap buffer headers as file i/o buffers.
    212   1.1      gwr 	 */
    213   1.1      gwr 	if (bufpages == 0) {
    214   1.1      gwr 		/* We always have more than 2MB of memory. */
    215   1.1      gwr 		bufpages = ((btoc(2 * 1024 * 1024) + physmem) /
    216   1.1      gwr 		            (20 * CLSIZE));
    217   1.1      gwr 	}
    218   1.1      gwr 	if (nbuf == 0) {
    219   1.1      gwr 		nbuf = bufpages;
    220   1.1      gwr 		if (nbuf < 16)
    221   1.1      gwr 			nbuf = 16;
    222   1.1      gwr 	}
    223   1.1      gwr 	if (nswbuf == 0) {
    224   1.1      gwr 		nswbuf = (nbuf / 2) &~ 1;	/* force even */
    225   1.1      gwr 		if (nswbuf > 256)
    226   1.1      gwr 			nswbuf = 256;		/* sanity */
    227   1.1      gwr 	}
    228   1.1      gwr 	valloc(swbuf, struct buf, nswbuf);
    229   1.1      gwr 	valloc(buf, struct buf, nbuf);
    230   1.1      gwr 	return v;
    231   1.1      gwr }
    232   1.1      gwr #undef	valloc
    233   1.1      gwr 
    234   1.1      gwr /*
    235   1.1      gwr  * cpu_startup: allocate memory for variable-sized tables,
    236   1.1      gwr  * initialize cpu, and do autoconfiguration.
    237   1.1      gwr  *
    238   1.1      gwr  * This is called early in init_main.c:main(), after the
    239   1.1      gwr  * kernel memory allocator is ready for use, but before
    240   1.1      gwr  * the creation of processes 1,2, and mountroot, etc.
    241   1.1      gwr  */
    242   1.1      gwr void
    243   1.1      gwr cpu_startup()
    244   1.1      gwr {
    245   1.1      gwr 	caddr_t v;
    246   1.1      gwr 	int sz, i;
    247   1.1      gwr 	vm_size_t size;
    248   1.1      gwr 	int base, residual;
    249   1.1      gwr 	vm_offset_t minaddr, maxaddr;
    250   1.1      gwr 
    251   1.1      gwr 	/*
    252   1.1      gwr 	 * Initialize message buffer (for kernel printf).
    253   1.1      gwr 	 * This is put in physical page zero so it will
    254   1.1      gwr 	 * always be in the same place after a reboot.
    255   1.1      gwr 	 * Its mapping was prepared in pmap_bootstrap().
    256   1.1      gwr 	 * Also, offset some to avoid PROM scribbles.
    257   1.1      gwr 	 */
    258   1.1      gwr 	v = (caddr_t) KERNBASE;
    259   1.1      gwr 	msgbufp = (struct msgbuf *)(v + 0x1000);
    260   1.1      gwr 	msgbufmapped = 1;
    261   1.1      gwr 
    262   1.1      gwr 	/*
    263   1.1      gwr 	 * Good {morning,afternoon,evening,night}.
    264   1.1      gwr 	 */
    265   1.1      gwr 	printf(version);
    266   1.1      gwr 	identifycpu();
    267   1.1      gwr 	initfpu();	/* also prints FPU type */
    268   1.1      gwr 
    269   1.1      gwr 	printf("real mem = %d\n", ctob(physmem));
    270   1.1      gwr 
    271   1.1      gwr 	/*
    272   1.1      gwr 	 * Find out how much space we need, allocate it,
    273   1.1      gwr 	 * and then give everything true virtual addresses.
    274   1.1      gwr 	 */
    275   1.1      gwr 	sz = (int)allocsys((caddr_t)0);
    276   1.1      gwr 	if ((v = (caddr_t)kmem_alloc(kernel_map, round_page(sz))) == 0)
    277   1.1      gwr 		panic("startup: no room for tables");
    278   1.1      gwr 	if (allocsys(v) - v != sz)
    279   1.1      gwr 		panic("startup: table size inconsistency");
    280   1.1      gwr 
    281   1.1      gwr 	/*
    282   1.1      gwr 	 * Now allocate buffers proper.  They are different than the above
    283   1.1      gwr 	 * in that they usually occupy more virtual memory than physical.
    284   1.1      gwr 	 */
    285   1.1      gwr 	size = MAXBSIZE * nbuf;
    286   1.1      gwr 	buffer_map = kmem_suballoc(kernel_map, (vm_offset_t *)&buffers,
    287   1.1      gwr 				   &maxaddr, size, TRUE);
    288   1.1      gwr 	minaddr = (vm_offset_t)buffers;
    289   1.1      gwr 	if (vm_map_find(buffer_map, vm_object_allocate(size), (vm_offset_t)0,
    290   1.1      gwr 			&minaddr, size, FALSE) != KERN_SUCCESS)
    291   1.1      gwr 		panic("startup: cannot allocate buffers");
    292   1.1      gwr 	if ((bufpages / nbuf) >= btoc(MAXBSIZE)) {
    293   1.1      gwr 		/* don't want to alloc more physical mem than needed */
    294   1.1      gwr 		bufpages = btoc(MAXBSIZE) * nbuf;
    295   1.1      gwr 	}
    296   1.1      gwr 	base = bufpages / nbuf;
    297   1.1      gwr 	residual = bufpages % nbuf;
    298   1.1      gwr 	for (i = 0; i < nbuf; i++) {
    299   1.1      gwr 		vm_size_t curbufsize;
    300   1.1      gwr 		vm_offset_t curbuf;
    301   1.1      gwr 
    302   1.1      gwr 		/*
    303   1.1      gwr 		 * First <residual> buffers get (base+1) physical pages
    304   1.1      gwr 		 * allocated for them.  The rest get (base) physical pages.
    305   1.1      gwr 		 *
    306   1.1      gwr 		 * The rest of each buffer occupies virtual space,
    307   1.1      gwr 		 * but has no physical memory allocated for it.
    308   1.1      gwr 		 */
    309   1.1      gwr 		curbuf = (vm_offset_t)buffers + i * MAXBSIZE;
    310   1.1      gwr 		curbufsize = CLBYTES * (i < residual ? base+1 : base);
    311   1.1      gwr 		vm_map_pageable(buffer_map, curbuf, curbuf+curbufsize, FALSE);
    312   1.1      gwr 		vm_map_simplify(buffer_map, curbuf);
    313   1.1      gwr 	}
    314   1.1      gwr 
    315   1.1      gwr 	/*
    316   1.1      gwr 	 * Allocate a submap for exec arguments.  This map effectively
    317   1.1      gwr 	 * limits the number of processes exec'ing at any time.
    318   1.1      gwr 	 */
    319   1.1      gwr 	exec_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr,
    320   1.1      gwr 				 16*NCARGS, TRUE);
    321   1.1      gwr 
    322   1.1      gwr 	/*
    323   1.1      gwr 	 * We don't use a submap for physio, and use a separate map
    324   1.1      gwr 	 * for DVMA allocations.  Our vmapbuf just maps pages into
    325   1.1      gwr 	 * the kernel map (any kernel mapping is OK) and then the
    326   1.1      gwr 	 * device drivers clone the kernel mappings into DVMA space.
    327   1.1      gwr 	 */
    328   1.1      gwr 
    329   1.1      gwr 	/*
    330  1.12  thorpej 	 * Finally, allocate mbuf cluster submap.
    331   1.1      gwr 	 */
    332   1.1      gwr 	mb_map = kmem_suballoc(kernel_map, (vm_offset_t *)&mbutl, &maxaddr,
    333   1.1      gwr 			       VM_MBUF_SIZE, FALSE);
    334   1.1      gwr 
    335   1.1      gwr 	/*
    336   1.1      gwr 	 * Initialize callouts
    337   1.1      gwr 	 */
    338   1.1      gwr 	callfree = callout;
    339   1.1      gwr 	for (i = 1; i < ncallout; i++)
    340   1.1      gwr 		callout[i-1].c_next = &callout[i];
    341   1.1      gwr 	callout[i-1].c_next = NULL;
    342   1.1      gwr 
    343   1.1      gwr 	printf("avail mem = %d\n", (int) ptoa(cnt.v_free_count));
    344   1.1      gwr 	printf("using %d buffers containing %d bytes of memory\n",
    345   1.1      gwr 		   nbuf, bufpages * CLBYTES);
    346   1.1      gwr 
    347   1.1      gwr 	/*
    348   1.1      gwr 	 * Tell the VM system that writing to kernel text isn't allowed.
    349   1.1      gwr 	 * If we don't, we might end up COW'ing the text segment!
    350   1.1      gwr 	 */
    351   1.1      gwr 	if (vm_map_protect(kernel_map, (vm_offset_t) kernel_text,
    352   1.5      gwr 					   trunc_page((vm_offset_t) etext),
    353   1.1      gwr 					   VM_PROT_READ|VM_PROT_EXECUTE, TRUE)
    354   1.1      gwr 		!= KERN_SUCCESS)
    355   1.1      gwr 		panic("can't protect kernel text");
    356   1.1      gwr 
    357   1.1      gwr 	/*
    358   1.1      gwr 	 * Allocate a virtual page (for use by /dev/mem)
    359   1.1      gwr 	 * This page is handed to pmap_enter() therefore
    360   1.1      gwr 	 * it has to be in the normal kernel VA range.
    361   1.1      gwr 	 */
    362   1.1      gwr 	vmmap = kmem_alloc_wait(kernel_map, NBPG);
    363   1.1      gwr 
    364   1.1      gwr 	/*
    365   1.1      gwr 	 * Create the DVMA maps.
    366   1.1      gwr 	 */
    367   1.1      gwr 	dvma_init();
    368   1.1      gwr 
    369   1.1      gwr 	/*
    370   1.1      gwr 	 * Set up CPU-specific registers, cache, etc.
    371   1.1      gwr 	 */
    372   1.1      gwr 	initcpu();
    373   1.1      gwr 
    374   1.1      gwr 	/*
    375   1.1      gwr 	 * Set up buffers, so they can be used to read disk labels.
    376   1.1      gwr 	 */
    377   1.1      gwr 	bufinit();
    378   1.1      gwr 
    379   1.1      gwr 	/*
    380   1.1      gwr 	 * Configure the system.
    381   1.1      gwr 	 */
    382   1.1      gwr 	configure();
    383   1.1      gwr }
    384   1.1      gwr 
    385   1.1      gwr /*
    386   1.1      gwr  * Set registers on exec.
    387   1.1      gwr  * XXX Should clear registers except sp, pc,
    388   1.1      gwr  * but would break init; should be fixed soon.
    389   1.1      gwr  */
    390   1.1      gwr void
    391   1.1      gwr setregs(p, pack, stack, retval)
    392   1.1      gwr 	register struct proc *p;
    393   1.1      gwr 	struct exec_package *pack;
    394   1.1      gwr 	u_long stack;
    395   1.1      gwr 	register_t *retval;
    396   1.1      gwr {
    397   1.5      gwr 	struct trapframe *tf = (struct trapframe *)p->p_md.md_regs;
    398   1.1      gwr 
    399   1.5      gwr 	tf->tf_pc = pack->ep_entry & ~1;
    400   1.5      gwr 	tf->tf_regs[SP] = stack;
    401   1.5      gwr 	tf->tf_regs[A2] = (int)PS_STRINGS;
    402   1.1      gwr 
    403   1.1      gwr 	/* restore a null state frame */
    404   1.1      gwr 	p->p_addr->u_pcb.pcb_fpregs.fpf_null = 0;
    405   1.9      gwr 	if (fputype) {
    406   1.1      gwr 		m68881_restore(&p->p_addr->u_pcb.pcb_fpregs);
    407   1.1      gwr 	}
    408   1.1      gwr 	p->p_md.md_flags = 0;
    409   1.1      gwr 	/* XXX - HPUX sigcode hack would go here... */
    410   1.1      gwr }
    411   1.1      gwr 
    412   1.1      gwr /*
    413   1.1      gwr  * Info for CTL_HW
    414   1.1      gwr  */
    415   1.1      gwr char	machine[] = "sun3x";		/* cpu "architecture" */
    416   1.1      gwr char	cpu_model[120];
    417  1.15      gwr 
    418  1.15      gwr /*
    419  1.15      gwr  * XXX - Should empirically estimate the divisor...
    420  1.15      gwr  * Note that the value of delay_divisor is roughly
    421  1.15      gwr  * 2048 / cpuclock	(where cpuclock is in MHz).
    422  1.15      gwr  */
    423  1.16      gwr int delay_divisor = 62;		/* assume the fastest (33 MHz) */
    424   1.1      gwr 
    425   1.1      gwr void
    426   1.1      gwr identifycpu()
    427   1.1      gwr {
    428  1.15      gwr 	unsigned char machtype;
    429  1.15      gwr 
    430  1.15      gwr 	/* Find the IDPROM and copy it to memory. */
    431  1.15      gwr 	/* Note: this needs to use peek_byte(). */
    432  1.15      gwr 	idprom_init();
    433   1.1      gwr 
    434  1.15      gwr 	machtype = identity_prom.idp_machtype;
    435  1.15      gwr 	if ((machtype & CPU_ARCH_MASK) != SUN3X_ARCH) {
    436  1.15      gwr 		printf("not a sun3x?\n");
    437  1.15      gwr 		sunmon_abort();
    438  1.15      gwr 	}
    439  1.15      gwr 
    440  1.15      gwr 	cpu_machine_id = machtype & SUN3X_IMPL_MASK;
    441  1.15      gwr 	switch (cpu_machine_id) {
    442  1.15      gwr 
    443  1.15      gwr 	case SUN3X_MACH_80:
    444  1.15      gwr 		cpu_string = "80";  	/* Hydra */
    445  1.16      gwr 		delay_divisor = 102;	/* 20 MHz */
    446  1.15      gwr 		cpu_has_vme = FALSE;
    447  1.15      gwr 		break;
    448  1.15      gwr 
    449  1.15      gwr 	case SUN3X_MACH_470:
    450  1.15      gwr 		cpu_string = "470"; 	/* Pegasus */
    451  1.15      gwr 		delay_divisor = 62; 	/* 33 MHz */
    452  1.15      gwr 		cpu_has_vme = TRUE;
    453  1.15      gwr 		break;
    454  1.15      gwr 
    455  1.15      gwr 	default:
    456  1.15      gwr 		printf("unknown sun3x model\n");
    457  1.15      gwr 		sunmon_abort();
    458  1.15      gwr 	}
    459  1.15      gwr 
    460  1.15      gwr 	/* Other stuff? (VAC, mc6888x version, etc.) */
    461  1.15      gwr 	sprintf(cpu_model, "Sun 3/%s", cpu_string);
    462   1.1      gwr 
    463   1.1      gwr 	printf("Model: %s (hostid %x)\n", cpu_model, (int) hostid);
    464   1.1      gwr }
    465   1.1      gwr 
    466   1.1      gwr /*
    467   1.1      gwr  * machine dependent system variables.
    468   1.1      gwr  */
    469   1.1      gwr int
    470   1.1      gwr cpu_sysctl(name, namelen, oldp, oldlenp, newp, newlen, p)
    471   1.1      gwr 	int *name;
    472   1.1      gwr 	u_int namelen;
    473   1.1      gwr 	void *oldp;
    474   1.1      gwr 	size_t *oldlenp;
    475   1.1      gwr 	void *newp;
    476   1.1      gwr 	size_t newlen;
    477   1.1      gwr 	struct proc *p;
    478   1.1      gwr {
    479   1.1      gwr 	int error;
    480   1.1      gwr 	dev_t consdev;
    481   1.1      gwr 
    482   1.1      gwr 	/* all sysctl names at this level are terminal */
    483   1.1      gwr 	if (namelen != 1)
    484   1.1      gwr 		return (ENOTDIR);		/* overloaded */
    485   1.1      gwr 
    486   1.1      gwr 	switch (name[0]) {
    487   1.1      gwr 	case CPU_CONSDEV:
    488   1.1      gwr 		if (cn_tab != NULL)
    489   1.1      gwr 			consdev = cn_tab->cn_dev;
    490   1.1      gwr 		else
    491   1.1      gwr 			consdev = NODEV;
    492   1.1      gwr 		error = sysctl_rdstruct(oldp, oldlenp, newp,
    493   1.1      gwr 		    &consdev, sizeof consdev);
    494   1.1      gwr 		break;
    495   1.1      gwr 
    496   1.1      gwr #if 0	/* XXX - Not yet... */
    497   1.1      gwr 	case CPU_ROOT_DEVICE:
    498   1.1      gwr 		error = sysctl_rdstring(oldp, oldlenp, newp, root_device);
    499   1.1      gwr 		break;
    500   1.1      gwr 
    501   1.1      gwr 	case CPU_BOOTED_KERNEL:
    502   1.1      gwr 		error = sysctl_rdstring(oldp, oldlenp, newp, booted_kernel);
    503   1.1      gwr 		break;
    504   1.1      gwr #endif
    505   1.1      gwr 
    506   1.1      gwr 	default:
    507   1.1      gwr 		error = EOPNOTSUPP;
    508   1.1      gwr 	}
    509   1.1      gwr 	return (error);
    510   1.1      gwr }
    511   1.1      gwr 
    512   1.7      gwr /* See: sig_machdep.c */
    513   1.1      gwr 
    514   1.1      gwr /*
    515   1.1      gwr  * Do a sync in preparation for a reboot.
    516   1.1      gwr  * XXX - This could probably be common code.
    517   1.1      gwr  * XXX - And now, most of it is in vfs_shutdown()
    518   1.1      gwr  * XXX - Put waittime checks in there too?
    519   1.1      gwr  */
    520   1.1      gwr int waittime = -1;	/* XXX - Who else looks at this? -gwr */
    521   1.1      gwr static void
    522   1.1      gwr reboot_sync __P((void))
    523   1.1      gwr {
    524   1.1      gwr 
    525   1.1      gwr 	/* Check waittime here to localize its use to this function. */
    526   1.1      gwr 	if (waittime >= 0)
    527   1.1      gwr 		return;
    528   1.1      gwr 	waittime = 0;
    529   1.1      gwr 	vfs_shutdown();
    530   1.1      gwr }
    531   1.1      gwr 
    532   1.1      gwr /*
    533   1.1      gwr  * Common part of the BSD and SunOS reboot system calls.
    534   1.1      gwr  */
    535   1.1      gwr __dead void
    536  1.11      gwr cpu_reboot(howto, user_boot_string)
    537   1.1      gwr 	int howto;
    538   1.1      gwr 	char *user_boot_string;
    539   1.1      gwr {
    540   1.2      gwr 	/* Note: this string MUST be static! */
    541   1.2      gwr 	static char bootstr[128];
    542   1.2      gwr 	char *p;
    543   1.1      gwr 
    544   1.1      gwr 	/* If system is cold, just halt. (early panic?) */
    545   1.1      gwr 	if (cold)
    546   1.1      gwr 		goto haltsys;
    547   1.1      gwr 
    548   1.1      gwr 	if ((howto & RB_NOSYNC) == 0) {
    549   1.1      gwr 		reboot_sync();
    550   1.1      gwr 		/*
    551   1.1      gwr 		 * If we've been adjusting the clock, the todr
    552   1.1      gwr 		 * will be out of synch; adjust it now.
    553   1.1      gwr 		 *
    554   1.1      gwr 		 * XXX - However, if the kernel has been sitting in ddb,
    555   1.1      gwr 		 * the time will be way off, so don't set the HW clock!
    556   1.1      gwr 		 * XXX - Should do sanity check against HW clock. -gwr
    557   1.1      gwr 		 */
    558   1.1      gwr 		/* resettodr(); */
    559   1.1      gwr 	}
    560   1.1      gwr 
    561   1.1      gwr 	/* Disable interrupts. */
    562   1.1      gwr 	splhigh();
    563   1.1      gwr 
    564   1.1      gwr 	/* Write out a crash dump if asked. */
    565   1.1      gwr 	if (howto & RB_DUMP)
    566   1.1      gwr 		dumpsys();
    567   1.1      gwr 
    568   1.1      gwr 	/* run any shutdown hooks */
    569   1.1      gwr 	doshutdownhooks();
    570   1.1      gwr 
    571   1.1      gwr 	if (howto & RB_HALT) {
    572   1.1      gwr 	haltsys:
    573   1.1      gwr 		printf("Kernel halted.\n");
    574  1.15      gwr #if 0
    575  1.15      gwr 		/*
    576  1.15      gwr 		 * This calls the PROM monitor "exit_to_mon" function
    577  1.15      gwr 		 * which appears to have problems...  SunOS uses the
    578  1.15      gwr 		 * "abort" function when you halt (bug work-around?)
    579  1.15      gwr 		 * so we might as well do the same.
    580  1.15      gwr 		 */
    581  1.15      gwr 		sunmon_halt(); /* provokes PROM monitor bug */
    582  1.15      gwr #else
    583  1.15      gwr 		sunmon_abort();
    584  1.15      gwr #endif
    585   1.1      gwr 	}
    586   1.1      gwr 
    587   1.1      gwr 	/*
    588   1.1      gwr 	 * Automatic reboot.
    589   1.1      gwr 	 */
    590   1.2      gwr 	if (user_boot_string)
    591   1.2      gwr 		strncpy(bootstr, user_boot_string, sizeof(bootstr));
    592   1.2      gwr 	else {
    593   1.1      gwr 		/*
    594   1.1      gwr 		 * Build our own boot string with an empty
    595   1.1      gwr 		 * boot device/file and (maybe) some flags.
    596   1.1      gwr 		 * The PROM will supply the device/file name.
    597   1.1      gwr 		 */
    598   1.2      gwr 		p = bootstr;
    599   1.2      gwr 		*p = '\0';
    600   1.1      gwr 		if (howto & (RB_KDB|RB_ASKNAME|RB_SINGLE)) {
    601   1.1      gwr 			/* Append the boot flags. */
    602   1.1      gwr 			*p++ = ' ';
    603   1.1      gwr 			*p++ = '-';
    604   1.1      gwr 			if (howto & RB_KDB)
    605   1.1      gwr 				*p++ = 'd';
    606   1.1      gwr 			if (howto & RB_ASKNAME)
    607   1.1      gwr 				*p++ = 'a';
    608   1.1      gwr 			if (howto & RB_SINGLE)
    609   1.1      gwr 				*p++ = 's';
    610   1.1      gwr 			*p = '\0';
    611   1.1      gwr 		}
    612   1.1      gwr 	}
    613   1.1      gwr 	printf("Kernel rebooting...\n");
    614   1.3      gwr 	sunmon_reboot(bootstr);
    615   1.1      gwr 	for (;;) ;
    616   1.1      gwr 	/*NOTREACHED*/
    617   1.1      gwr }
    618   1.1      gwr 
    619   1.1      gwr /*
    620   1.1      gwr  * These variables are needed by /sbin/savecore
    621   1.1      gwr  */
    622   1.1      gwr u_long	dumpmag = 0x8fca0101;	/* magic number */
    623   1.1      gwr int 	dumpsize = 0;		/* pages */
    624   1.1      gwr long	dumplo = 0; 		/* blocks */
    625   1.1      gwr 
    626   1.1      gwr /*
    627  1.11      gwr  * This is called by main to set dumplo, dumpsize.
    628   1.1      gwr  * Dumps always skip the first CLBYTES of disk space
    629   1.1      gwr  * in case there might be a disk label stored there.
    630   1.1      gwr  * If there is extra space, put dump at the end to
    631   1.1      gwr  * reduce the chance that swapping trashes it.
    632   1.1      gwr  */
    633   1.1      gwr void
    634  1.11      gwr cpu_dumpconf()
    635   1.1      gwr {
    636   1.1      gwr 	int nblks;	/* size of dump area */
    637   1.1      gwr 	int maj;
    638   1.1      gwr 	int (*getsize)__P((dev_t));
    639   1.1      gwr 
    640   1.1      gwr 	if (dumpdev == NODEV)
    641   1.1      gwr 		return;
    642   1.1      gwr 
    643   1.1      gwr 	maj = major(dumpdev);
    644   1.1      gwr 	if (maj < 0 || maj >= nblkdev)
    645   1.1      gwr 		panic("dumpconf: bad dumpdev=0x%x", dumpdev);
    646   1.1      gwr 	getsize = bdevsw[maj].d_psize;
    647   1.1      gwr 	if (getsize == NULL)
    648   1.1      gwr 		return;
    649   1.1      gwr 	nblks = (*getsize)(dumpdev);
    650   1.1      gwr 	if (nblks <= ctod(1))
    651   1.1      gwr 		return;
    652   1.1      gwr 
    653   1.1      gwr 	/* Position dump image near end of space, page aligned. */
    654   1.1      gwr 	dumpsize = physmem; 	/* pages */
    655   1.1      gwr 	dumplo = nblks - ctod(dumpsize);
    656   1.1      gwr 	dumplo &= ~(ctod(1)-1);
    657   1.1      gwr 
    658   1.1      gwr 	/* If it does not fit, truncate it by moving dumplo. */
    659   1.1      gwr 	/* Note: Must force signed comparison. */
    660   1.1      gwr 	if (dumplo < ((long)ctod(1))) {
    661   1.1      gwr 		dumplo = ctod(1);
    662   1.1      gwr 		dumpsize = dtoc(nblks - dumplo);
    663   1.1      gwr 	}
    664   1.1      gwr }
    665   1.1      gwr 
    666  1.13      gwr /* Note: gdb looks for "dumppcb" in a kernel crash dump. */
    667   1.1      gwr struct pcb dumppcb;
    668   1.1      gwr 
    669   1.1      gwr /*
    670   1.1      gwr  * Write a crash dump.  The format while in swap is:
    671   1.1      gwr  *   kcore_seg_t cpu_hdr;
    672   1.1      gwr  *   cpu_kcore_hdr_t cpu_data;
    673   1.1      gwr  *   padding (NBPG-sizeof(kcore_seg_t))
    674   1.1      gwr  *   pagemap (2*NBPG)
    675   1.1      gwr  *   physical memory...
    676   1.1      gwr  */
    677   1.1      gwr void
    678   1.1      gwr dumpsys()
    679   1.1      gwr {
    680   1.1      gwr 	struct bdevsw *dsw;
    681  1.10      gwr 	kcore_seg_t	*kseg_p;
    682  1.10      gwr 	cpu_kcore_hdr_t *chdr_p;
    683  1.14  thorpej 	struct sun3x_kcore_hdr *sh;
    684  1.14  thorpej 	phys_ram_seg_t *crs_p;
    685   1.1      gwr 	char *vaddr;
    686   1.1      gwr 	vm_offset_t paddr;
    687  1.10      gwr 	int psize, todo, seg, segsz;
    688   1.1      gwr 	daddr_t blkno;
    689   1.1      gwr 	int error = 0;
    690   1.1      gwr 
    691   1.1      gwr 	msgbufmapped = 0;
    692   1.1      gwr 	if (dumpdev == NODEV)
    693   1.1      gwr 		return;
    694   1.1      gwr 
    695   1.1      gwr 	/*
    696   1.1      gwr 	 * For dumps during autoconfiguration,
    697   1.1      gwr 	 * if dump device has already configured...
    698   1.1      gwr 	 */
    699   1.1      gwr 	if (dumpsize == 0)
    700  1.11      gwr 		cpu_dumpconf();
    701   1.1      gwr 	if (dumplo <= 0)
    702   1.1      gwr 		return;
    703   1.1      gwr 	savectx(&dumppcb);
    704   1.1      gwr 
    705   1.1      gwr 	dsw = &bdevsw[major(dumpdev)];
    706   1.1      gwr 	psize = (*(dsw->d_psize))(dumpdev);
    707   1.1      gwr 	if (psize == -1) {
    708   1.1      gwr 		printf("dump area unavailable\n");
    709   1.1      gwr 		return;
    710   1.1      gwr 	}
    711   1.1      gwr 
    712   1.1      gwr 	printf("\ndumping to dev %x, offset %d\n",
    713   1.1      gwr 		   (int) dumpdev, (int) dumplo);
    714   1.1      gwr 
    715   1.1      gwr 	/*
    716  1.10      gwr 	 * We put the dump header is in physical page zero,
    717  1.10      gwr 	 * so there is no extra work here to write it out.
    718   1.1      gwr 	 */
    719  1.10      gwr 	kseg_p = (kcore_seg_t *)KERNBASE;
    720  1.10      gwr 	chdr_p = (cpu_kcore_hdr_t *) (kseg_p + 1);
    721  1.14  thorpej 	sh = &chdr_p->un._sun3x;
    722  1.10      gwr 	CORE_SETMAGIC(*kseg_p, KCORE_MAGIC, MID_MACHINE, CORE_CPU);
    723  1.10      gwr 	kseg_p->c_size = sizeof(*chdr_p);
    724  1.10      gwr 	pmap_set_kcore_hdr(chdr_p);
    725  1.10      gwr 
    726  1.10      gwr 	/*
    727  1.10      gwr 	 * Now dump physical memory.  Note that physical memory
    728  1.10      gwr 	 * might NOT be congiguous, so do it by segments.
    729  1.10      gwr 	 */
    730  1.10      gwr 
    731   1.1      gwr 	blkno = dumplo;
    732   1.1      gwr 	todo = dumpsize;	/* pages */
    733  1.10      gwr 	vaddr = (char*)vmmap;	/* Borrow /dev/mem VA */
    734   1.1      gwr 
    735  1.14  thorpej 	for (seg = 0; seg < SUN3X_NPHYS_RAM_SEGS; seg++) {
    736  1.14  thorpej 		crs_p = &sh->ram_segs[seg];
    737  1.10      gwr 		paddr = crs_p->start;
    738  1.10      gwr 		segsz = crs_p->size;
    739  1.10      gwr 		/*
    740  1.10      gwr 		 * Our header lives in the first little bit of
    741  1.10      gwr 		 * physical memory (not written separately), so
    742  1.10      gwr 		 * we have to adjust the first ram segment size
    743  1.10      gwr 		 * and start address to reflect the stolen RAM.
    744  1.10      gwr 		 * (Nothing interesing in that RAM anyway 8^).
    745  1.10      gwr 		 */
    746  1.10      gwr 		if (seg == 0) {
    747  1.10      gwr 			int adj = sizeof(*kseg_p) + sizeof(*chdr_p);
    748  1.10      gwr 			crs_p->start += adj;
    749  1.10      gwr 			crs_p->size  -= adj;
    750  1.10      gwr 		}
    751   1.1      gwr 
    752  1.10      gwr 		while (todo && (segsz > 0)) {
    753   1.1      gwr 
    754  1.10      gwr 			/* Print pages left after every 16. */
    755  1.10      gwr 			if ((todo & 0xf) == 0)
    756  1.10      gwr 				printf("\r%4d", todo);
    757  1.10      gwr 
    758  1.10      gwr 			/* Make a temporary mapping for the page. */
    759  1.10      gwr 			pmap_enter(pmap_kernel(), vmmap, paddr | PMAP_NC,
    760  1.10      gwr 					   VM_PROT_READ, FALSE);
    761  1.10      gwr 			error = (*dsw->d_dump)(dumpdev, blkno, vaddr, NBPG);
    762  1.10      gwr 			pmap_remove(pmap_kernel(), vmmap, vmmap + NBPG);
    763  1.10      gwr 			if (error)
    764  1.10      gwr 				goto fail;
    765  1.10      gwr 			paddr += NBPG;
    766  1.10      gwr 			segsz -= NBPG;
    767  1.10      gwr 			blkno += btodb(NBPG);
    768  1.10      gwr 			todo--;
    769  1.10      gwr 		}
    770  1.10      gwr 	}
    771   1.1      gwr 	printf("\rdump succeeded\n");
    772   1.1      gwr 	return;
    773   1.1      gwr fail:
    774   1.1      gwr 	printf(" dump error=%d\n", error);
    775   1.1      gwr }
    776   1.1      gwr 
    777   1.1      gwr static void
    778   1.1      gwr initcpu()
    779   1.1      gwr {
    780   1.1      gwr 	/* XXX: Enable RAM parity/ECC checking? */
    781   1.1      gwr 	/* XXX: parityenable(); */
    782   1.1      gwr 
    783   1.1      gwr #ifdef	HAVECACHE
    784   1.1      gwr 	cache_enable();
    785   1.1      gwr #endif
    786   1.1      gwr }
    787   1.1      gwr 
    788   1.8      gwr /* straptrap() in trap.c */
    789   1.1      gwr 
    790   1.1      gwr /* from hp300: badaddr() */
    791  1.15      gwr /* peek_byte(), peek_word() moved to bus_subr.c */
    792   1.1      gwr 
    793   1.1      gwr /* XXX: parityenable() ? */
    794   1.7      gwr /* regdump() moved to regdump.c */
    795   1.1      gwr 
    796   1.1      gwr /*
    797   1.1      gwr  * cpu_exec_aout_makecmds():
    798   1.1      gwr  *	cpu-dependent a.out format hook for execve().
    799   1.1      gwr  *
    800   1.1      gwr  * Determine if the given exec package refers to something which we
    801   1.1      gwr  * understand and, if so, set up the vmcmds for it.
    802   1.1      gwr  */
    803   1.1      gwr int
    804   1.1      gwr cpu_exec_aout_makecmds(p, epp)
    805   1.1      gwr 	struct proc *p;
    806   1.1      gwr 	struct exec_package *epp;
    807   1.1      gwr {
    808   1.1      gwr 	int error = ENOEXEC;
    809   1.1      gwr 
    810   1.1      gwr #ifdef COMPAT_SUNOS
    811   1.1      gwr 	extern sunos_exec_aout_makecmds
    812   1.1      gwr 		__P((struct proc *, struct exec_package *));
    813   1.1      gwr 	if ((error = sunos_exec_aout_makecmds(p, epp)) == 0)
    814   1.1      gwr 		return 0;
    815   1.1      gwr #endif
    816   1.1      gwr 	return error;
    817   1.1      gwr }
    818