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