Home | History | Annotate | Line # | Download | only in sun3x
machdep.c revision 1.15.2.2
      1  1.15.2.2      mrg /*	$NetBSD: machdep.c,v 1.15.2.2 1997/06/01 05:22:37 mrg 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 #ifdef SYSVSHM
    191       1.1      gwr 	valloc(shmsegs, struct shmid_ds, shminfo.shmmni);
    192       1.1      gwr #endif
    193       1.1      gwr #ifdef SYSVSEM
    194       1.1      gwr 	valloc(sema, struct semid_ds, seminfo.semmni);
    195       1.1      gwr 	valloc(sem, struct sem, seminfo.semmns);
    196       1.1      gwr 	/* This is pretty disgusting! */
    197       1.1      gwr 	valloc(semu, int, (seminfo.semmnu * seminfo.semusz) / sizeof(int));
    198       1.1      gwr #endif
    199       1.1      gwr #ifdef SYSVMSG
    200       1.1      gwr 	valloc(msgpool, char, msginfo.msgmax);
    201       1.1      gwr 	valloc(msgmaps, struct msgmap, msginfo.msgseg);
    202       1.1      gwr 	valloc(msghdrs, struct msg, msginfo.msgtql);
    203       1.1      gwr 	valloc(msqids, struct msqid_ds, msginfo.msgmni);
    204       1.1      gwr #endif
    205       1.1      gwr 
    206       1.1      gwr 	/*
    207       1.1      gwr 	 * Determine how many buffers to allocate. We allocate
    208       1.1      gwr 	 * the BSD standard of use 10% of memory for the first 2 Meg,
    209       1.1      gwr 	 * 5% of remaining. Insure a minimum of 16 buffers.
    210       1.1      gwr 	 * Allocate 1/2 as many swap buffer headers as file i/o buffers.
    211       1.1      gwr 	 */
    212       1.1      gwr 	if (bufpages == 0) {
    213       1.1      gwr 		/* We always have more than 2MB of memory. */
    214       1.1      gwr 		bufpages = ((btoc(2 * 1024 * 1024) + physmem) /
    215       1.1      gwr 		            (20 * CLSIZE));
    216       1.1      gwr 	}
    217       1.1      gwr 	if (nbuf == 0) {
    218       1.1      gwr 		nbuf = bufpages;
    219       1.1      gwr 		if (nbuf < 16)
    220       1.1      gwr 			nbuf = 16;
    221       1.1      gwr 	}
    222       1.1      gwr 	if (nswbuf == 0) {
    223       1.1      gwr 		nswbuf = (nbuf / 2) &~ 1;	/* force even */
    224       1.1      gwr 		if (nswbuf > 256)
    225       1.1      gwr 			nswbuf = 256;		/* sanity */
    226       1.1      gwr 	}
    227       1.1      gwr 	valloc(swbuf, struct buf, nswbuf);
    228       1.1      gwr 	valloc(buf, struct buf, nbuf);
    229       1.1      gwr 	return v;
    230       1.1      gwr }
    231       1.1      gwr #undef	valloc
    232       1.1      gwr 
    233       1.1      gwr /*
    234       1.1      gwr  * cpu_startup: allocate memory for variable-sized tables,
    235       1.1      gwr  * initialize cpu, and do autoconfiguration.
    236       1.1      gwr  *
    237       1.1      gwr  * This is called early in init_main.c:main(), after the
    238       1.1      gwr  * kernel memory allocator is ready for use, but before
    239       1.1      gwr  * the creation of processes 1,2, and mountroot, etc.
    240       1.1      gwr  */
    241       1.1      gwr void
    242       1.1      gwr cpu_startup()
    243       1.1      gwr {
    244       1.1      gwr 	caddr_t v;
    245       1.1      gwr 	int sz, i;
    246       1.1      gwr 	vm_size_t size;
    247       1.1      gwr 	int base, residual;
    248       1.1      gwr 	vm_offset_t minaddr, maxaddr;
    249       1.1      gwr 
    250       1.1      gwr 	/*
    251       1.1      gwr 	 * Initialize message buffer (for kernel printf).
    252       1.1      gwr 	 * This is put in physical page zero so it will
    253       1.1      gwr 	 * always be in the same place after a reboot.
    254       1.1      gwr 	 * Its mapping was prepared in pmap_bootstrap().
    255       1.1      gwr 	 * Also, offset some to avoid PROM scribbles.
    256       1.1      gwr 	 */
    257       1.1      gwr 	v = (caddr_t) KERNBASE;
    258       1.1      gwr 	msgbufp = (struct msgbuf *)(v + 0x1000);
    259       1.1      gwr 	msgbufmapped = 1;
    260       1.1      gwr 
    261       1.1      gwr 	/*
    262       1.1      gwr 	 * Good {morning,afternoon,evening,night}.
    263       1.1      gwr 	 */
    264       1.1      gwr 	printf(version);
    265       1.1      gwr 	identifycpu();
    266       1.1      gwr 	initfpu();	/* also prints FPU type */
    267       1.1      gwr 
    268       1.1      gwr 	printf("real mem = %d\n", ctob(physmem));
    269       1.1      gwr 
    270       1.1      gwr 	/*
    271       1.1      gwr 	 * Find out how much space we need, allocate it,
    272       1.1      gwr 	 * and then give everything true virtual addresses.
    273       1.1      gwr 	 */
    274       1.1      gwr 	sz = (int)allocsys((caddr_t)0);
    275       1.1      gwr 	if ((v = (caddr_t)kmem_alloc(kernel_map, round_page(sz))) == 0)
    276       1.1      gwr 		panic("startup: no room for tables");
    277       1.1      gwr 	if (allocsys(v) - v != sz)
    278       1.1      gwr 		panic("startup: table size inconsistency");
    279       1.1      gwr 
    280       1.1      gwr 	/*
    281       1.1      gwr 	 * Now allocate buffers proper.  They are different than the above
    282       1.1      gwr 	 * in that they usually occupy more virtual memory than physical.
    283       1.1      gwr 	 */
    284       1.1      gwr 	size = MAXBSIZE * nbuf;
    285       1.1      gwr 	buffer_map = kmem_suballoc(kernel_map, (vm_offset_t *)&buffers,
    286       1.1      gwr 				   &maxaddr, size, TRUE);
    287       1.1      gwr 	minaddr = (vm_offset_t)buffers;
    288       1.1      gwr 	if (vm_map_find(buffer_map, vm_object_allocate(size), (vm_offset_t)0,
    289       1.1      gwr 			&minaddr, size, FALSE) != KERN_SUCCESS)
    290       1.1      gwr 		panic("startup: cannot allocate buffers");
    291       1.1      gwr 	if ((bufpages / nbuf) >= btoc(MAXBSIZE)) {
    292       1.1      gwr 		/* don't want to alloc more physical mem than needed */
    293       1.1      gwr 		bufpages = btoc(MAXBSIZE) * nbuf;
    294       1.1      gwr 	}
    295       1.1      gwr 	base = bufpages / nbuf;
    296       1.1      gwr 	residual = bufpages % nbuf;
    297       1.1      gwr 	for (i = 0; i < nbuf; i++) {
    298       1.1      gwr 		vm_size_t curbufsize;
    299       1.1      gwr 		vm_offset_t curbuf;
    300       1.1      gwr 
    301       1.1      gwr 		/*
    302       1.1      gwr 		 * First <residual> buffers get (base+1) physical pages
    303       1.1      gwr 		 * allocated for them.  The rest get (base) physical pages.
    304       1.1      gwr 		 *
    305       1.1      gwr 		 * The rest of each buffer occupies virtual space,
    306       1.1      gwr 		 * but has no physical memory allocated for it.
    307       1.1      gwr 		 */
    308       1.1      gwr 		curbuf = (vm_offset_t)buffers + i * MAXBSIZE;
    309       1.1      gwr 		curbufsize = CLBYTES * (i < residual ? base+1 : base);
    310       1.1      gwr 		vm_map_pageable(buffer_map, curbuf, curbuf+curbufsize, FALSE);
    311       1.1      gwr 		vm_map_simplify(buffer_map, curbuf);
    312       1.1      gwr 	}
    313       1.1      gwr 
    314       1.1      gwr 	/*
    315       1.1      gwr 	 * Allocate a submap for exec arguments.  This map effectively
    316       1.1      gwr 	 * limits the number of processes exec'ing at any time.
    317       1.1      gwr 	 */
    318       1.1      gwr 	exec_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr,
    319       1.1      gwr 				 16*NCARGS, TRUE);
    320       1.1      gwr 
    321       1.1      gwr 	/*
    322       1.1      gwr 	 * We don't use a submap for physio, and use a separate map
    323       1.1      gwr 	 * for DVMA allocations.  Our vmapbuf just maps pages into
    324       1.1      gwr 	 * the kernel map (any kernel mapping is OK) and then the
    325       1.1      gwr 	 * device drivers clone the kernel mappings into DVMA space.
    326       1.1      gwr 	 */
    327       1.1      gwr 
    328       1.1      gwr 	/*
    329      1.12  thorpej 	 * Finally, allocate mbuf cluster submap.
    330       1.1      gwr 	 */
    331       1.1      gwr 	mb_map = kmem_suballoc(kernel_map, (vm_offset_t *)&mbutl, &maxaddr,
    332       1.1      gwr 			       VM_MBUF_SIZE, FALSE);
    333       1.1      gwr 
    334       1.1      gwr 	/*
    335       1.1      gwr 	 * Initialize callouts
    336       1.1      gwr 	 */
    337       1.1      gwr 	callfree = callout;
    338       1.1      gwr 	for (i = 1; i < ncallout; i++)
    339       1.1      gwr 		callout[i-1].c_next = &callout[i];
    340       1.1      gwr 	callout[i-1].c_next = NULL;
    341       1.1      gwr 
    342       1.1      gwr 	printf("avail mem = %d\n", (int) ptoa(cnt.v_free_count));
    343       1.1      gwr 	printf("using %d buffers containing %d bytes of memory\n",
    344       1.1      gwr 		   nbuf, bufpages * CLBYTES);
    345       1.1      gwr 
    346       1.1      gwr 	/*
    347       1.1      gwr 	 * Tell the VM system that writing to kernel text isn't allowed.
    348       1.1      gwr 	 * If we don't, we might end up COW'ing the text segment!
    349       1.1      gwr 	 */
    350       1.1      gwr 	if (vm_map_protect(kernel_map, (vm_offset_t) kernel_text,
    351       1.5      gwr 					   trunc_page((vm_offset_t) etext),
    352       1.1      gwr 					   VM_PROT_READ|VM_PROT_EXECUTE, TRUE)
    353       1.1      gwr 		!= KERN_SUCCESS)
    354       1.1      gwr 		panic("can't protect kernel text");
    355       1.1      gwr 
    356       1.1      gwr 	/*
    357       1.1      gwr 	 * Allocate a virtual page (for use by /dev/mem)
    358       1.1      gwr 	 * This page is handed to pmap_enter() therefore
    359       1.1      gwr 	 * it has to be in the normal kernel VA range.
    360       1.1      gwr 	 */
    361       1.1      gwr 	vmmap = kmem_alloc_wait(kernel_map, NBPG);
    362       1.1      gwr 
    363       1.1      gwr 	/*
    364       1.1      gwr 	 * Create the DVMA maps.
    365       1.1      gwr 	 */
    366       1.1      gwr 	dvma_init();
    367       1.1      gwr 
    368       1.1      gwr 	/*
    369       1.1      gwr 	 * Set up CPU-specific registers, cache, etc.
    370       1.1      gwr 	 */
    371       1.1      gwr 	initcpu();
    372       1.1      gwr 
    373       1.1      gwr 	/*
    374       1.1      gwr 	 * Set up buffers, so they can be used to read disk labels.
    375       1.1      gwr 	 */
    376       1.1      gwr 	bufinit();
    377       1.1      gwr 
    378       1.1      gwr 	/*
    379       1.1      gwr 	 * Configure the system.
    380       1.1      gwr 	 */
    381       1.1      gwr 	configure();
    382       1.1      gwr }
    383       1.1      gwr 
    384       1.1      gwr /*
    385       1.1      gwr  * Set registers on exec.
    386       1.1      gwr  * XXX Should clear registers except sp, pc,
    387       1.1      gwr  * but would break init; should be fixed soon.
    388       1.1      gwr  */
    389       1.1      gwr void
    390       1.1      gwr setregs(p, pack, stack, retval)
    391       1.1      gwr 	register struct proc *p;
    392       1.1      gwr 	struct exec_package *pack;
    393       1.1      gwr 	u_long stack;
    394       1.1      gwr 	register_t *retval;
    395       1.1      gwr {
    396       1.5      gwr 	struct trapframe *tf = (struct trapframe *)p->p_md.md_regs;
    397       1.1      gwr 
    398       1.5      gwr 	tf->tf_pc = pack->ep_entry & ~1;
    399       1.5      gwr 	tf->tf_regs[SP] = stack;
    400       1.5      gwr 	tf->tf_regs[A2] = (int)PS_STRINGS;
    401       1.1      gwr 
    402       1.1      gwr 	/* restore a null state frame */
    403       1.1      gwr 	p->p_addr->u_pcb.pcb_fpregs.fpf_null = 0;
    404       1.9      gwr 	if (fputype) {
    405       1.1      gwr 		m68881_restore(&p->p_addr->u_pcb.pcb_fpregs);
    406       1.1      gwr 	}
    407       1.1      gwr 	p->p_md.md_flags = 0;
    408       1.1      gwr 	/* XXX - HPUX sigcode hack would go here... */
    409       1.1      gwr }
    410       1.1      gwr 
    411       1.1      gwr /*
    412       1.1      gwr  * Info for CTL_HW
    413       1.1      gwr  */
    414       1.1      gwr char	machine[] = "sun3x";		/* cpu "architecture" */
    415       1.1      gwr char	cpu_model[120];
    416      1.15      gwr 
    417      1.15      gwr /*
    418      1.15      gwr  * XXX - Should empirically estimate the divisor...
    419      1.15      gwr  * Note that the value of delay_divisor is roughly
    420      1.15      gwr  * 2048 / cpuclock	(where cpuclock is in MHz).
    421      1.15      gwr  */
    422  1.15.2.2      mrg int delay_divisor = 62;		/* assume the fastest (33 MHz) */
    423       1.1      gwr 
    424       1.1      gwr void
    425       1.1      gwr identifycpu()
    426       1.1      gwr {
    427      1.15      gwr 	unsigned char machtype;
    428      1.15      gwr 
    429      1.15      gwr 	/* Find the IDPROM and copy it to memory. */
    430      1.15      gwr 	/* Note: this needs to use peek_byte(). */
    431      1.15      gwr 	idprom_init();
    432       1.1      gwr 
    433      1.15      gwr 	machtype = identity_prom.idp_machtype;
    434      1.15      gwr 	if ((machtype & CPU_ARCH_MASK) != SUN3X_ARCH) {
    435      1.15      gwr 		printf("not a sun3x?\n");
    436      1.15      gwr 		sunmon_abort();
    437      1.15      gwr 	}
    438      1.15      gwr 
    439      1.15      gwr 	cpu_machine_id = machtype & SUN3X_IMPL_MASK;
    440      1.15      gwr 	switch (cpu_machine_id) {
    441      1.15      gwr 
    442      1.15      gwr 	case SUN3X_MACH_80:
    443      1.15      gwr 		cpu_string = "80";  	/* Hydra */
    444  1.15.2.2      mrg 		delay_divisor = 102;	/* 20 MHz */
    445      1.15      gwr 		cpu_has_vme = FALSE;
    446      1.15      gwr 		break;
    447      1.15      gwr 
    448      1.15      gwr 	case SUN3X_MACH_470:
    449      1.15      gwr 		cpu_string = "470"; 	/* Pegasus */
    450      1.15      gwr 		delay_divisor = 62; 	/* 33 MHz */
    451      1.15      gwr 		cpu_has_vme = TRUE;
    452      1.15      gwr 		break;
    453      1.15      gwr 
    454      1.15      gwr 	default:
    455      1.15      gwr 		printf("unknown sun3x model\n");
    456      1.15      gwr 		sunmon_abort();
    457      1.15      gwr 	}
    458      1.15      gwr 
    459      1.15      gwr 	/* Other stuff? (VAC, mc6888x version, etc.) */
    460      1.15      gwr 	sprintf(cpu_model, "Sun 3/%s", cpu_string);
    461       1.1      gwr 
    462       1.1      gwr 	printf("Model: %s (hostid %x)\n", cpu_model, (int) hostid);
    463       1.1      gwr }
    464       1.1      gwr 
    465       1.1      gwr /*
    466       1.1      gwr  * machine dependent system variables.
    467       1.1      gwr  */
    468       1.1      gwr int
    469       1.1      gwr cpu_sysctl(name, namelen, oldp, oldlenp, newp, newlen, p)
    470       1.1      gwr 	int *name;
    471       1.1      gwr 	u_int namelen;
    472       1.1      gwr 	void *oldp;
    473       1.1      gwr 	size_t *oldlenp;
    474       1.1      gwr 	void *newp;
    475       1.1      gwr 	size_t newlen;
    476       1.1      gwr 	struct proc *p;
    477       1.1      gwr {
    478       1.1      gwr 	int error;
    479       1.1      gwr 	dev_t consdev;
    480       1.1      gwr 
    481       1.1      gwr 	/* all sysctl names at this level are terminal */
    482       1.1      gwr 	if (namelen != 1)
    483       1.1      gwr 		return (ENOTDIR);		/* overloaded */
    484       1.1      gwr 
    485       1.1      gwr 	switch (name[0]) {
    486       1.1      gwr 	case CPU_CONSDEV:
    487       1.1      gwr 		if (cn_tab != NULL)
    488       1.1      gwr 			consdev = cn_tab->cn_dev;
    489       1.1      gwr 		else
    490       1.1      gwr 			consdev = NODEV;
    491       1.1      gwr 		error = sysctl_rdstruct(oldp, oldlenp, newp,
    492       1.1      gwr 		    &consdev, sizeof consdev);
    493       1.1      gwr 		break;
    494       1.1      gwr 
    495       1.1      gwr #if 0	/* XXX - Not yet... */
    496       1.1      gwr 	case CPU_ROOT_DEVICE:
    497       1.1      gwr 		error = sysctl_rdstring(oldp, oldlenp, newp, root_device);
    498       1.1      gwr 		break;
    499       1.1      gwr 
    500       1.1      gwr 	case CPU_BOOTED_KERNEL:
    501       1.1      gwr 		error = sysctl_rdstring(oldp, oldlenp, newp, booted_kernel);
    502       1.1      gwr 		break;
    503       1.1      gwr #endif
    504       1.1      gwr 
    505       1.1      gwr 	default:
    506       1.1      gwr 		error = EOPNOTSUPP;
    507       1.1      gwr 	}
    508       1.1      gwr 	return (error);
    509       1.1      gwr }
    510       1.1      gwr 
    511       1.7      gwr /* See: sig_machdep.c */
    512       1.1      gwr 
    513       1.1      gwr /*
    514       1.1      gwr  * Do a sync in preparation for a reboot.
    515       1.1      gwr  * XXX - This could probably be common code.
    516       1.1      gwr  * XXX - And now, most of it is in vfs_shutdown()
    517       1.1      gwr  * XXX - Put waittime checks in there too?
    518       1.1      gwr  */
    519       1.1      gwr int waittime = -1;	/* XXX - Who else looks at this? -gwr */
    520       1.1      gwr static void
    521       1.1      gwr reboot_sync __P((void))
    522       1.1      gwr {
    523       1.1      gwr 
    524       1.1      gwr 	/* Check waittime here to localize its use to this function. */
    525       1.1      gwr 	if (waittime >= 0)
    526       1.1      gwr 		return;
    527       1.1      gwr 	waittime = 0;
    528       1.1      gwr 	vfs_shutdown();
    529       1.1      gwr }
    530       1.1      gwr 
    531       1.1      gwr /*
    532       1.1      gwr  * Common part of the BSD and SunOS reboot system calls.
    533       1.1      gwr  */
    534       1.1      gwr __dead void
    535      1.11      gwr cpu_reboot(howto, user_boot_string)
    536       1.1      gwr 	int howto;
    537       1.1      gwr 	char *user_boot_string;
    538       1.1      gwr {
    539       1.2      gwr 	/* Note: this string MUST be static! */
    540       1.2      gwr 	static char bootstr[128];
    541       1.2      gwr 	char *p;
    542       1.1      gwr 
    543       1.1      gwr 	/* If system is cold, just halt. (early panic?) */
    544       1.1      gwr 	if (cold)
    545       1.1      gwr 		goto haltsys;
    546       1.1      gwr 
    547       1.1      gwr 	if ((howto & RB_NOSYNC) == 0) {
    548       1.1      gwr 		reboot_sync();
    549       1.1      gwr 		/*
    550       1.1      gwr 		 * If we've been adjusting the clock, the todr
    551       1.1      gwr 		 * will be out of synch; adjust it now.
    552       1.1      gwr 		 *
    553       1.1      gwr 		 * XXX - However, if the kernel has been sitting in ddb,
    554       1.1      gwr 		 * the time will be way off, so don't set the HW clock!
    555       1.1      gwr 		 * XXX - Should do sanity check against HW clock. -gwr
    556       1.1      gwr 		 */
    557       1.1      gwr 		/* resettodr(); */
    558       1.1      gwr 	}
    559       1.1      gwr 
    560       1.1      gwr 	/* Disable interrupts. */
    561       1.1      gwr 	splhigh();
    562       1.1      gwr 
    563       1.1      gwr 	/* Write out a crash dump if asked. */
    564       1.1      gwr 	if (howto & RB_DUMP)
    565       1.1      gwr 		dumpsys();
    566       1.1      gwr 
    567       1.1      gwr 	/* run any shutdown hooks */
    568       1.1      gwr 	doshutdownhooks();
    569       1.1      gwr 
    570       1.1      gwr 	if (howto & RB_HALT) {
    571       1.1      gwr 	haltsys:
    572       1.1      gwr 		printf("Kernel halted.\n");
    573      1.15      gwr #if 0
    574      1.15      gwr 		/*
    575      1.15      gwr 		 * This calls the PROM monitor "exit_to_mon" function
    576      1.15      gwr 		 * which appears to have problems...  SunOS uses the
    577      1.15      gwr 		 * "abort" function when you halt (bug work-around?)
    578      1.15      gwr 		 * so we might as well do the same.
    579      1.15      gwr 		 */
    580      1.15      gwr 		sunmon_halt(); /* provokes PROM monitor bug */
    581      1.15      gwr #else
    582      1.15      gwr 		sunmon_abort();
    583      1.15      gwr #endif
    584       1.1      gwr 	}
    585       1.1      gwr 
    586       1.1      gwr 	/*
    587       1.1      gwr 	 * Automatic reboot.
    588       1.1      gwr 	 */
    589       1.2      gwr 	if (user_boot_string)
    590       1.2      gwr 		strncpy(bootstr, user_boot_string, sizeof(bootstr));
    591       1.2      gwr 	else {
    592       1.1      gwr 		/*
    593       1.1      gwr 		 * Build our own boot string with an empty
    594       1.1      gwr 		 * boot device/file and (maybe) some flags.
    595       1.1      gwr 		 * The PROM will supply the device/file name.
    596       1.1      gwr 		 */
    597       1.2      gwr 		p = bootstr;
    598       1.2      gwr 		*p = '\0';
    599       1.1      gwr 		if (howto & (RB_KDB|RB_ASKNAME|RB_SINGLE)) {
    600       1.1      gwr 			/* Append the boot flags. */
    601       1.1      gwr 			*p++ = ' ';
    602       1.1      gwr 			*p++ = '-';
    603       1.1      gwr 			if (howto & RB_KDB)
    604       1.1      gwr 				*p++ = 'd';
    605       1.1      gwr 			if (howto & RB_ASKNAME)
    606       1.1      gwr 				*p++ = 'a';
    607       1.1      gwr 			if (howto & RB_SINGLE)
    608       1.1      gwr 				*p++ = 's';
    609       1.1      gwr 			*p = '\0';
    610       1.1      gwr 		}
    611       1.1      gwr 	}
    612       1.1      gwr 	printf("Kernel rebooting...\n");
    613       1.3      gwr 	sunmon_reboot(bootstr);
    614       1.1      gwr 	for (;;) ;
    615       1.1      gwr 	/*NOTREACHED*/
    616       1.1      gwr }
    617       1.1      gwr 
    618       1.1      gwr /*
    619       1.1      gwr  * These variables are needed by /sbin/savecore
    620       1.1      gwr  */
    621       1.1      gwr u_long	dumpmag = 0x8fca0101;	/* magic number */
    622       1.1      gwr int 	dumpsize = 0;		/* pages */
    623       1.1      gwr long	dumplo = 0; 		/* blocks */
    624       1.1      gwr 
    625       1.1      gwr /*
    626      1.11      gwr  * This is called by main to set dumplo, dumpsize.
    627       1.1      gwr  * Dumps always skip the first CLBYTES of disk space
    628       1.1      gwr  * in case there might be a disk label stored there.
    629       1.1      gwr  * If there is extra space, put dump at the end to
    630       1.1      gwr  * reduce the chance that swapping trashes it.
    631       1.1      gwr  */
    632       1.1      gwr void
    633      1.11      gwr cpu_dumpconf()
    634       1.1      gwr {
    635       1.1      gwr 	int nblks;	/* size of dump area */
    636       1.1      gwr 	int maj;
    637       1.1      gwr 	int (*getsize)__P((dev_t));
    638       1.1      gwr 
    639       1.1      gwr 	if (dumpdev == NODEV)
    640       1.1      gwr 		return;
    641       1.1      gwr 
    642       1.1      gwr 	maj = major(dumpdev);
    643       1.1      gwr 	if (maj < 0 || maj >= nblkdev)
    644       1.1      gwr 		panic("dumpconf: bad dumpdev=0x%x", dumpdev);
    645       1.1      gwr 	getsize = bdevsw[maj].d_psize;
    646       1.1      gwr 	if (getsize == NULL)
    647       1.1      gwr 		return;
    648       1.1      gwr 	nblks = (*getsize)(dumpdev);
    649       1.1      gwr 	if (nblks <= ctod(1))
    650       1.1      gwr 		return;
    651       1.1      gwr 
    652       1.1      gwr 	/* Position dump image near end of space, page aligned. */
    653       1.1      gwr 	dumpsize = physmem; 	/* pages */
    654       1.1      gwr 	dumplo = nblks - ctod(dumpsize);
    655       1.1      gwr 	dumplo &= ~(ctod(1)-1);
    656       1.1      gwr 
    657       1.1      gwr 	/* If it does not fit, truncate it by moving dumplo. */
    658       1.1      gwr 	/* Note: Must force signed comparison. */
    659       1.1      gwr 	if (dumplo < ((long)ctod(1))) {
    660       1.1      gwr 		dumplo = ctod(1);
    661       1.1      gwr 		dumpsize = dtoc(nblks - dumplo);
    662       1.1      gwr 	}
    663       1.1      gwr }
    664       1.1      gwr 
    665      1.13      gwr /* Note: gdb looks for "dumppcb" in a kernel crash dump. */
    666       1.1      gwr struct pcb dumppcb;
    667       1.1      gwr 
    668       1.1      gwr /*
    669       1.1      gwr  * Write a crash dump.  The format while in swap is:
    670       1.1      gwr  *   kcore_seg_t cpu_hdr;
    671       1.1      gwr  *   cpu_kcore_hdr_t cpu_data;
    672       1.1      gwr  *   padding (NBPG-sizeof(kcore_seg_t))
    673       1.1      gwr  *   pagemap (2*NBPG)
    674       1.1      gwr  *   physical memory...
    675       1.1      gwr  */
    676       1.1      gwr void
    677       1.1      gwr dumpsys()
    678       1.1      gwr {
    679       1.1      gwr 	struct bdevsw *dsw;
    680      1.10      gwr 	kcore_seg_t	*kseg_p;
    681      1.10      gwr 	cpu_kcore_hdr_t *chdr_p;
    682      1.14  thorpej 	struct sun3x_kcore_hdr *sh;
    683      1.14  thorpej 	phys_ram_seg_t *crs_p;
    684       1.1      gwr 	char *vaddr;
    685       1.1      gwr 	vm_offset_t paddr;
    686      1.10      gwr 	int psize, todo, seg, segsz;
    687       1.1      gwr 	daddr_t blkno;
    688       1.1      gwr 	int error = 0;
    689       1.1      gwr 
    690       1.1      gwr 	msgbufmapped = 0;
    691       1.1      gwr 	if (dumpdev == NODEV)
    692       1.1      gwr 		return;
    693       1.1      gwr 
    694       1.1      gwr 	/*
    695       1.1      gwr 	 * For dumps during autoconfiguration,
    696       1.1      gwr 	 * if dump device has already configured...
    697       1.1      gwr 	 */
    698       1.1      gwr 	if (dumpsize == 0)
    699      1.11      gwr 		cpu_dumpconf();
    700       1.1      gwr 	if (dumplo <= 0)
    701       1.1      gwr 		return;
    702       1.1      gwr 	savectx(&dumppcb);
    703       1.1      gwr 
    704       1.1      gwr 	dsw = &bdevsw[major(dumpdev)];
    705       1.1      gwr 	psize = (*(dsw->d_psize))(dumpdev);
    706       1.1      gwr 	if (psize == -1) {
    707       1.1      gwr 		printf("dump area unavailable\n");
    708       1.1      gwr 		return;
    709       1.1      gwr 	}
    710       1.1      gwr 
    711       1.1      gwr 	printf("\ndumping to dev %x, offset %d\n",
    712       1.1      gwr 		   (int) dumpdev, (int) dumplo);
    713       1.1      gwr 
    714       1.1      gwr 	/*
    715      1.10      gwr 	 * We put the dump header is in physical page zero,
    716      1.10      gwr 	 * so there is no extra work here to write it out.
    717       1.1      gwr 	 */
    718      1.10      gwr 	kseg_p = (kcore_seg_t *)KERNBASE;
    719      1.10      gwr 	chdr_p = (cpu_kcore_hdr_t *) (kseg_p + 1);
    720      1.14  thorpej 	sh = &chdr_p->un._sun3x;
    721      1.10      gwr 	CORE_SETMAGIC(*kseg_p, KCORE_MAGIC, MID_MACHINE, CORE_CPU);
    722      1.10      gwr 	kseg_p->c_size = sizeof(*chdr_p);
    723      1.10      gwr 	pmap_set_kcore_hdr(chdr_p);
    724      1.10      gwr 
    725      1.10      gwr 	/*
    726      1.10      gwr 	 * Now dump physical memory.  Note that physical memory
    727      1.10      gwr 	 * might NOT be congiguous, so do it by segments.
    728      1.10      gwr 	 */
    729      1.10      gwr 
    730       1.1      gwr 	blkno = dumplo;
    731       1.1      gwr 	todo = dumpsize;	/* pages */
    732      1.10      gwr 	vaddr = (char*)vmmap;	/* Borrow /dev/mem VA */
    733       1.1      gwr 
    734      1.14  thorpej 	for (seg = 0; seg < SUN3X_NPHYS_RAM_SEGS; seg++) {
    735      1.14  thorpej 		crs_p = &sh->ram_segs[seg];
    736      1.10      gwr 		paddr = crs_p->start;
    737      1.10      gwr 		segsz = crs_p->size;
    738      1.10      gwr 		/*
    739      1.10      gwr 		 * Our header lives in the first little bit of
    740      1.10      gwr 		 * physical memory (not written separately), so
    741      1.10      gwr 		 * we have to adjust the first ram segment size
    742      1.10      gwr 		 * and start address to reflect the stolen RAM.
    743      1.10      gwr 		 * (Nothing interesing in that RAM anyway 8^).
    744      1.10      gwr 		 */
    745      1.10      gwr 		if (seg == 0) {
    746      1.10      gwr 			int adj = sizeof(*kseg_p) + sizeof(*chdr_p);
    747      1.10      gwr 			crs_p->start += adj;
    748      1.10      gwr 			crs_p->size  -= adj;
    749      1.10      gwr 		}
    750       1.1      gwr 
    751      1.10      gwr 		while (todo && (segsz > 0)) {
    752       1.1      gwr 
    753      1.10      gwr 			/* Print pages left after every 16. */
    754      1.10      gwr 			if ((todo & 0xf) == 0)
    755      1.10      gwr 				printf("\r%4d", todo);
    756      1.10      gwr 
    757      1.10      gwr 			/* Make a temporary mapping for the page. */
    758      1.10      gwr 			pmap_enter(pmap_kernel(), vmmap, paddr | PMAP_NC,
    759      1.10      gwr 					   VM_PROT_READ, FALSE);
    760      1.10      gwr 			error = (*dsw->d_dump)(dumpdev, blkno, vaddr, NBPG);
    761      1.10      gwr 			pmap_remove(pmap_kernel(), vmmap, vmmap + NBPG);
    762      1.10      gwr 			if (error)
    763      1.10      gwr 				goto fail;
    764      1.10      gwr 			paddr += NBPG;
    765      1.10      gwr 			segsz -= NBPG;
    766      1.10      gwr 			blkno += btodb(NBPG);
    767      1.10      gwr 			todo--;
    768      1.10      gwr 		}
    769      1.10      gwr 	}
    770       1.1      gwr 	printf("\rdump succeeded\n");
    771       1.1      gwr 	return;
    772       1.1      gwr fail:
    773       1.1      gwr 	printf(" dump error=%d\n", error);
    774       1.1      gwr }
    775       1.1      gwr 
    776       1.1      gwr static void
    777       1.1      gwr initcpu()
    778       1.1      gwr {
    779       1.1      gwr 	/* XXX: Enable RAM parity/ECC checking? */
    780       1.1      gwr 	/* XXX: parityenable(); */
    781       1.1      gwr 
    782       1.1      gwr #ifdef	HAVECACHE
    783       1.1      gwr 	cache_enable();
    784       1.1      gwr #endif
    785       1.1      gwr }
    786       1.1      gwr 
    787       1.8      gwr /* straptrap() in trap.c */
    788       1.1      gwr 
    789       1.1      gwr /* from hp300: badaddr() */
    790      1.15      gwr /* peek_byte(), peek_word() moved to bus_subr.c */
    791       1.1      gwr 
    792       1.1      gwr /* XXX: parityenable() ? */
    793       1.7      gwr /* regdump() moved to regdump.c */
    794       1.1      gwr 
    795       1.1      gwr /*
    796       1.1      gwr  * cpu_exec_aout_makecmds():
    797       1.1      gwr  *	cpu-dependent a.out format hook for execve().
    798       1.1      gwr  *
    799       1.1      gwr  * Determine if the given exec package refers to something which we
    800       1.1      gwr  * understand and, if so, set up the vmcmds for it.
    801       1.1      gwr  */
    802       1.1      gwr int
    803       1.1      gwr cpu_exec_aout_makecmds(p, epp)
    804       1.1      gwr 	struct proc *p;
    805       1.1      gwr 	struct exec_package *epp;
    806       1.1      gwr {
    807       1.1      gwr 	int error = ENOEXEC;
    808       1.1      gwr 
    809       1.1      gwr #ifdef COMPAT_SUNOS
    810       1.1      gwr 	extern sunos_exec_aout_makecmds
    811       1.1      gwr 		__P((struct proc *, struct exec_package *));
    812       1.1      gwr 	if ((error = sunos_exec_aout_makecmds(p, epp)) == 0)
    813       1.1      gwr 		return 0;
    814       1.1      gwr #endif
    815       1.1      gwr 	return error;
    816       1.1      gwr }
    817