machdep.c revision 1.15 1 1.15 thorpej /* $NetBSD: machdep.c,v 1.15 1998/02/02 03:01:28 thorpej Exp $ */
2 1.1 ws
3 1.1 ws /*
4 1.1 ws * Copyright (C) 1995, 1996 Wolfgang Solfrank.
5 1.1 ws * Copyright (C) 1995, 1996 TooLs GmbH.
6 1.1 ws * All rights reserved.
7 1.1 ws *
8 1.1 ws * Redistribution and use in source and binary forms, with or without
9 1.1 ws * modification, are permitted provided that the following conditions
10 1.1 ws * are met:
11 1.1 ws * 1. Redistributions of source code must retain the above copyright
12 1.1 ws * notice, this list of conditions and the following disclaimer.
13 1.1 ws * 2. Redistributions in binary form must reproduce the above copyright
14 1.1 ws * notice, this list of conditions and the following disclaimer in the
15 1.1 ws * documentation and/or other materials provided with the distribution.
16 1.1 ws * 3. All advertising materials mentioning features or use of this software
17 1.1 ws * must display the following acknowledgement:
18 1.1 ws * This product includes software developed by TooLs GmbH.
19 1.1 ws * 4. The name of TooLs GmbH may not be used to endorse or promote products
20 1.1 ws * derived from this software without specific prior written permission.
21 1.1 ws *
22 1.1 ws * THIS SOFTWARE IS PROVIDED BY TOOLS GMBH ``AS IS'' AND ANY EXPRESS OR
23 1.1 ws * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
24 1.1 ws * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
25 1.1 ws * IN NO EVENT SHALL TOOLS GMBH BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
26 1.1 ws * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
27 1.1 ws * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
28 1.1 ws * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
29 1.1 ws * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
30 1.1 ws * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
31 1.1 ws * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32 1.1 ws */
33 1.4 ws #include "ipkdb.h"
34 1.1 ws
35 1.1 ws #include <sys/param.h>
36 1.1 ws #include <sys/buf.h>
37 1.1 ws #include <sys/callout.h>
38 1.1 ws #include <sys/exec.h>
39 1.1 ws #include <sys/malloc.h>
40 1.1 ws #include <sys/map.h>
41 1.1 ws #include <sys/mbuf.h>
42 1.1 ws #include <sys/mount.h>
43 1.1 ws #include <sys/msgbuf.h>
44 1.1 ws #include <sys/proc.h>
45 1.1 ws #include <sys/reboot.h>
46 1.1 ws #include <sys/syscallargs.h>
47 1.1 ws #include <sys/syslog.h>
48 1.1 ws #include <sys/systm.h>
49 1.1 ws #include <sys/user.h>
50 1.1 ws
51 1.1 ws #include <vm/vm.h>
52 1.1 ws #include <vm/vm_kern.h>
53 1.1 ws
54 1.1 ws #include <net/netisr.h>
55 1.1 ws
56 1.1 ws #include <machine/bat.h>
57 1.1 ws #include <machine/pmap.h>
58 1.1 ws #include <machine/powerpc.h>
59 1.1 ws #include <machine/trap.h>
60 1.1 ws
61 1.1 ws /*
62 1.1 ws * Global variables used here and there
63 1.1 ws */
64 1.1 ws struct pcb *curpcb;
65 1.1 ws struct pmap *curpm;
66 1.1 ws struct proc *fpuproc;
67 1.1 ws
68 1.1 ws extern struct user *proc0paddr;
69 1.1 ws
70 1.1 ws struct bat battable[16];
71 1.1 ws
72 1.1 ws int astpending;
73 1.1 ws
74 1.1 ws char *bootpath;
75 1.1 ws
76 1.1 ws /*
77 1.1 ws * We use the page just above the interrupt vector as message buffer
78 1.1 ws */
79 1.7 thorpej #if 0
80 1.1 ws struct msgbuf *msgbufp = (struct msgbuf *)0x3000;
81 1.1 ws int msgbufmapped = 1; /* message buffer is always mapped */
82 1.7 thorpej #else
83 1.7 thorpej int msgbufmapped = 0;
84 1.7 thorpej #endif
85 1.1 ws
86 1.1 ws caddr_t allocsys __P((caddr_t));
87 1.1 ws
88 1.7 thorpej static int fake_spl __P((void));
89 1.7 thorpej static int fake_splx __P((int));
90 1.7 thorpej static void fake_setsoft __P((void));
91 1.7 thorpej static void fake_clock_return __P((struct clockframe *, int));
92 1.1 ws static void fake_irq_establish __P((int, int, void (*)(void *), void *));
93 1.1 ws
94 1.1 ws struct machvec machine_interface = {
95 1.7 thorpej fake_spl,
96 1.7 thorpej fake_spl,
97 1.7 thorpej fake_spl,
98 1.7 thorpej fake_spl,
99 1.7 thorpej fake_spl,
100 1.7 thorpej fake_spl,
101 1.7 thorpej fake_spl,
102 1.7 thorpej fake_spl,
103 1.7 thorpej fake_spl,
104 1.1 ws fake_splx,
105 1.7 thorpej fake_setsoft,
106 1.7 thorpej fake_setsoft,
107 1.7 thorpej fake_clock_return,
108 1.1 ws fake_irq_establish,
109 1.1 ws };
110 1.1 ws
111 1.1 ws int cold = 1;
112 1.1 ws
113 1.1 ws void
114 1.1 ws initppc(startkernel, endkernel, args)
115 1.1 ws u_int startkernel, endkernel;
116 1.1 ws char *args;
117 1.1 ws {
118 1.1 ws int phandle, qhandle;
119 1.1 ws char name[32];
120 1.1 ws struct machvec *mp;
121 1.1 ws extern trapcode, trapsize;
122 1.1 ws extern dsitrap, dsisize;
123 1.1 ws extern isitrap, isisize;
124 1.1 ws extern decrint, decrsize;
125 1.1 ws extern tlbimiss, tlbimsize;
126 1.1 ws extern tlbdlmiss, tlbdlmsize;
127 1.1 ws extern tlbdsmiss, tlbdsmsize;
128 1.14 sakamoto #ifdef DDB
129 1.14 sakamoto extern ddblow, ddbsize;
130 1.14 sakamoto extern void *startsym, *endsym;
131 1.14 sakamoto #endif
132 1.4 ws #if NIPKDB > 0
133 1.4 ws extern ipkdblow, ipkdbsize;
134 1.1 ws #endif
135 1.1 ws extern void consinit __P((void));
136 1.1 ws extern void callback __P((void *));
137 1.1 ws int exc, scratch;
138 1.1 ws
139 1.1 ws proc0.p_addr = proc0paddr;
140 1.1 ws bzero(proc0.p_addr, sizeof *proc0.p_addr);
141 1.1 ws
142 1.1 ws curpcb = &proc0paddr->u_pcb;
143 1.1 ws
144 1.1 ws curpm = curpcb->pcb_pmreal = curpcb->pcb_pm = pmap_kernel();
145 1.1 ws
146 1.1 ws /*
147 1.1 ws * i386 port says, that this shouldn't be here,
148 1.1 ws * but I really think the console should be initialized
149 1.1 ws * as early as possible.
150 1.1 ws */
151 1.1 ws consinit();
152 1.1 ws
153 1.1 ws #ifdef __notyet__ /* Needs some rethinking regarding real/virtual OFW */
154 1.1 ws OF_set_callback(callback);
155 1.1 ws #endif
156 1.1 ws /*
157 1.1 ws * Initialize BAT registers to unmapped to not generate
158 1.1 ws * overlapping mappings below.
159 1.1 ws */
160 1.1 ws asm volatile ("mtibatu 0,%0" :: "r"(0));
161 1.1 ws asm volatile ("mtibatu 1,%0" :: "r"(0));
162 1.1 ws asm volatile ("mtibatu 2,%0" :: "r"(0));
163 1.1 ws asm volatile ("mtibatu 3,%0" :: "r"(0));
164 1.1 ws asm volatile ("mtdbatu 0,%0" :: "r"(0));
165 1.1 ws asm volatile ("mtdbatu 1,%0" :: "r"(0));
166 1.1 ws asm volatile ("mtdbatu 2,%0" :: "r"(0));
167 1.1 ws asm volatile ("mtdbatu 3,%0" :: "r"(0));
168 1.1 ws
169 1.1 ws /*
170 1.1 ws * Set up initial BAT table to only map the lowest 256 MB area
171 1.1 ws */
172 1.1 ws battable[0].batl = BATL(0x00000000, BAT_M);
173 1.1 ws battable[0].batu = BATU(0x00000000);
174 1.1 ws
175 1.1 ws /*
176 1.1 ws * Now setup fixed bat registers
177 1.1 ws *
178 1.1 ws * Note that we still run in real mode, and the BAT
179 1.1 ws * registers were cleared above.
180 1.1 ws */
181 1.1 ws /* IBAT0 used for initial 256 MB segment */
182 1.1 ws asm volatile ("mtibatl 0,%0; mtibatu 0,%1"
183 1.1 ws :: "r"(battable[0].batl), "r"(battable[0].batu));
184 1.1 ws /* DBAT0 used similar */
185 1.1 ws asm volatile ("mtdbatl 0,%0; mtdbatu 0,%1"
186 1.1 ws :: "r"(battable[0].batl), "r"(battable[0].batu));
187 1.1 ws
188 1.1 ws /*
189 1.1 ws * Set up trap vectors
190 1.1 ws */
191 1.1 ws for (exc = EXC_RSVD; exc <= EXC_LAST; exc += 0x100)
192 1.1 ws switch (exc) {
193 1.1 ws default:
194 1.1 ws bcopy(&trapcode, (void *)exc, (size_t)&trapsize);
195 1.1 ws break;
196 1.1 ws case EXC_EXI:
197 1.1 ws /*
198 1.1 ws * This one is (potentially) installed during autoconf
199 1.1 ws */
200 1.1 ws break;
201 1.1 ws case EXC_DSI:
202 1.1 ws bcopy(&dsitrap, (void *)EXC_DSI, (size_t)&dsisize);
203 1.1 ws break;
204 1.1 ws case EXC_ISI:
205 1.1 ws bcopy(&isitrap, (void *)EXC_ISI, (size_t)&isisize);
206 1.1 ws break;
207 1.1 ws case EXC_DECR:
208 1.1 ws bcopy(&decrint, (void *)EXC_DECR, (size_t)&decrsize);
209 1.1 ws break;
210 1.1 ws case EXC_IMISS:
211 1.1 ws bcopy(&tlbimiss, (void *)EXC_IMISS, (size_t)&tlbimsize);
212 1.1 ws break;
213 1.1 ws case EXC_DLMISS:
214 1.1 ws bcopy(&tlbdlmiss, (void *)EXC_DLMISS, (size_t)&tlbdlmsize);
215 1.1 ws break;
216 1.1 ws case EXC_DSMISS:
217 1.1 ws bcopy(&tlbdsmiss, (void *)EXC_DSMISS, (size_t)&tlbdsmsize);
218 1.1 ws break;
219 1.15 thorpej #if defined(DDB) || NIPKDB > 0
220 1.14 sakamoto case EXC_PGM:
221 1.14 sakamoto case EXC_TRC:
222 1.14 sakamoto case EXC_BPT:
223 1.15 thorpej #if defined(DDB)
224 1.14 sakamoto bcopy(&ddblow, (void *)exc, (size_t)&ddbsize);
225 1.15 thorpej #else
226 1.15 thorpej bcopy(&ipkdblow, (void *)exc, (size_t)&ipkdbsize);
227 1.14 sakamoto #endif
228 1.1 ws break;
229 1.15 thorpej #endif /* DDB || NIPKDB > 0 */
230 1.1 ws }
231 1.1 ws
232 1.1 ws syncicache((void *)EXC_RST, EXC_LAST - EXC_RST + 0x100);
233 1.1 ws
234 1.1 ws /*
235 1.1 ws * Now enable translation (and machine checks/recoverable interrupts).
236 1.1 ws */
237 1.1 ws asm volatile ("mfmsr %0; ori %0,%0,%1; mtmsr %0; isync"
238 1.1 ws : "=r"(scratch) : "K"(PSL_IR|PSL_DR|PSL_ME|PSL_RI));
239 1.1 ws
240 1.1 ws /*
241 1.1 ws * Parse arg string.
242 1.1 ws */
243 1.1 ws bootpath = args;
244 1.7 thorpej while (*++args && *args != ' ');
245 1.1 ws if (*args) {
246 1.1 ws *args++ = 0;
247 1.1 ws while (*args) {
248 1.1 ws switch (*args++) {
249 1.1 ws case 'a':
250 1.1 ws boothowto |= RB_ASKNAME;
251 1.1 ws break;
252 1.1 ws case 's':
253 1.1 ws boothowto |= RB_SINGLE;
254 1.1 ws break;
255 1.1 ws case 'd':
256 1.1 ws boothowto |= RB_KDB;
257 1.1 ws break;
258 1.1 ws }
259 1.1 ws }
260 1.1 ws }
261 1.1 ws
262 1.14 sakamoto #ifdef DDB
263 1.14 sakamoto /* ddb_init(startsym, endsym); */
264 1.14 sakamoto #endif
265 1.4 ws #if NIPKDB > 0
266 1.1 ws /*
267 1.4 ws * Now trap to IPKDB
268 1.1 ws */
269 1.4 ws ipkdb_init();
270 1.1 ws if (boothowto & RB_KDB)
271 1.4 ws ipkdb_connect(0);
272 1.1 ws #endif
273 1.1 ws
274 1.1 ws /*
275 1.1 ws * Initialize pmap module.
276 1.1 ws */
277 1.1 ws pmap_bootstrap(startkernel, endkernel);
278 1.1 ws }
279 1.1 ws
280 1.1 ws /*
281 1.1 ws * This should probably be in autoconf! XXX
282 1.1 ws */
283 1.1 ws int cpu;
284 1.1 ws char cpu_model[80];
285 1.9 veego char machine[] = MACHINE; /* from <machine/param.h> */
286 1.9 veego char machine_arch[] = MACHINE_ARCH; /* from <machine/param.h> */
287 1.1 ws
288 1.1 ws void
289 1.1 ws identifycpu()
290 1.1 ws {
291 1.1 ws int phandle, pvr;
292 1.1 ws char name[32];
293 1.1 ws
294 1.1 ws /*
295 1.1 ws * Find cpu type (Do it by OpenFirmware?)
296 1.1 ws */
297 1.1 ws asm ("mfpvr %0" : "=r"(pvr));
298 1.1 ws cpu = pvr >> 16;
299 1.1 ws switch (cpu) {
300 1.1 ws case 1:
301 1.3 christos sprintf(cpu_model, "601");
302 1.1 ws break;
303 1.1 ws case 3:
304 1.3 christos sprintf(cpu_model, "603");
305 1.1 ws break;
306 1.1 ws case 4:
307 1.3 christos sprintf(cpu_model, "604");
308 1.1 ws break;
309 1.1 ws case 5:
310 1.3 christos sprintf(cpu_model, "602");
311 1.1 ws break;
312 1.1 ws case 6:
313 1.3 christos sprintf(cpu_model, "603e");
314 1.1 ws break;
315 1.1 ws case 7:
316 1.3 christos sprintf(cpu_model, "603ev");
317 1.1 ws break;
318 1.1 ws case 9:
319 1.3 christos sprintf(cpu_model, "604ev");
320 1.1 ws break;
321 1.1 ws case 20:
322 1.3 christos sprintf(cpu_model, "620");
323 1.1 ws break;
324 1.1 ws default:
325 1.3 christos sprintf(cpu_model, "Version %x", cpu);
326 1.1 ws break;
327 1.1 ws }
328 1.1 ws sprintf(cpu_model + strlen(cpu_model), " (Revision %x)", pvr & 0xffff);
329 1.3 christos printf("CPU: %s\n", cpu_model);
330 1.1 ws }
331 1.1 ws
332 1.1 ws void
333 1.1 ws install_extint(handler)
334 1.1 ws void (*handler) __P((void));
335 1.1 ws {
336 1.1 ws extern extint, extsize;
337 1.1 ws extern u_long extint_call;
338 1.1 ws u_long offset = (u_long)handler - (u_long)&extint_call;
339 1.1 ws int omsr, msr;
340 1.1 ws
341 1.1 ws #ifdef DIAGNOSTIC
342 1.1 ws if (offset > 0x1ffffff)
343 1.1 ws panic("install_extint: too far away");
344 1.1 ws #endif
345 1.7 thorpej asm volatile ("mfmsr %0; andi. %1,%0,%2; mtmsr %1"
346 1.1 ws : "=r"(omsr), "=r"(msr) : "K"((u_short)~PSL_EE));
347 1.1 ws extint_call = (extint_call & 0xfc000003) | offset;
348 1.1 ws bcopy(&extint, (void *)EXC_EXI, (size_t)&extsize);
349 1.1 ws syncicache((void *)&extint_call, sizeof extint_call);
350 1.1 ws syncicache((void *)EXC_EXI, (int)&extsize);
351 1.1 ws asm volatile ("mtmsr %0" :: "r"(omsr));
352 1.1 ws }
353 1.1 ws
354 1.1 ws /*
355 1.1 ws * Machine dependent startup code.
356 1.1 ws */
357 1.1 ws void
358 1.1 ws cpu_startup()
359 1.1 ws {
360 1.1 ws int sz, i;
361 1.1 ws caddr_t v;
362 1.1 ws vm_offset_t minaddr, maxaddr;
363 1.1 ws int base, residual;
364 1.1 ws
365 1.1 ws proc0.p_addr = proc0paddr;
366 1.1 ws v = (caddr_t)proc0paddr + USPACE;
367 1.1 ws
368 1.3 christos printf("%s", version);
369 1.1 ws identifycpu();
370 1.1 ws
371 1.3 christos printf("real mem = %d\n", ctob(physmem));
372 1.1 ws
373 1.1 ws /*
374 1.1 ws * Find out how much space we need, allocate it,
375 1.1 ws * and then give everything true virtual addresses.
376 1.1 ws */
377 1.1 ws sz = (int)allocsys((caddr_t)0);
378 1.1 ws if ((v = (caddr_t)kmem_alloc(kernel_map, round_page(sz))) == 0)
379 1.1 ws panic("startup: no room for tables");
380 1.1 ws if (allocsys(v) - v != sz)
381 1.1 ws panic("startup: table size inconsistency");
382 1.1 ws
383 1.1 ws /*
384 1.1 ws * Now allocate buffers proper. They are different than the above
385 1.1 ws * in that they usually occupy more virtual memory than physical.
386 1.1 ws */
387 1.1 ws sz = MAXBSIZE * nbuf;
388 1.1 ws buffer_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr, sz, TRUE);
389 1.1 ws buffers = (char *)minaddr;
390 1.1 ws if (vm_map_find(buffer_map, vm_object_allocate(sz), (vm_offset_t)0,
391 1.1 ws &minaddr, sz, FALSE) != KERN_SUCCESS)
392 1.1 ws panic("startup: cannot allocate buffers");
393 1.1 ws base = bufpages / nbuf;
394 1.1 ws residual = bufpages % nbuf;
395 1.1 ws if (base >= MAXBSIZE) {
396 1.1 ws /* Don't want to alloc more physical mem than ever needed */
397 1.1 ws base = MAXBSIZE;
398 1.1 ws residual = 0;
399 1.1 ws }
400 1.1 ws for (i = 0; i < nbuf; i++) {
401 1.1 ws vm_size_t curbufsize;
402 1.1 ws vm_offset_t curbuf;
403 1.1 ws
404 1.1 ws curbuf = (vm_offset_t)buffers + i * MAXBSIZE;
405 1.1 ws curbufsize = CLBYTES * (i < residual ? base + 1 : base);
406 1.1 ws vm_map_pageable(buffer_map, curbuf, curbuf + curbufsize, FALSE);
407 1.1 ws vm_map_simplify(buffer_map, curbuf);
408 1.1 ws }
409 1.1 ws
410 1.1 ws /*
411 1.1 ws * Allocate a submap for exec arguments. This map effectively
412 1.1 ws * limits the number of processes exec'ing at any time.
413 1.1 ws */
414 1.1 ws exec_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr,
415 1.1 ws 16*NCARGS, TRUE);
416 1.1 ws
417 1.1 ws /*
418 1.1 ws * Allocate a submap for physio
419 1.1 ws */
420 1.1 ws phys_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr,
421 1.1 ws VM_PHYS_SIZE, TRUE);
422 1.1 ws
423 1.1 ws /*
424 1.6 thorpej * Finally, allocate mbuf cluster submap.
425 1.1 ws */
426 1.1 ws mb_map = kmem_suballoc(kernel_map, (vm_offset_t *)&mbutl, &maxaddr,
427 1.1 ws VM_MBUF_SIZE, FALSE);
428 1.1 ws
429 1.1 ws /*
430 1.1 ws * Initialize callouts.
431 1.1 ws */
432 1.1 ws callfree = callout;
433 1.1 ws for (i = 1; i < ncallout; i++)
434 1.1 ws callout[i - 1].c_next = &callout[i];
435 1.1 ws
436 1.3 christos printf("avail mem = %d\n", ptoa(cnt.v_free_count));
437 1.3 christos printf("using %d buffers containing %d bytes of memory\n",
438 1.1 ws nbuf, bufpages * CLBYTES);
439 1.1 ws
440 1.1 ws /*
441 1.1 ws * Set up the buffers.
442 1.1 ws */
443 1.1 ws bufinit();
444 1.1 ws
445 1.1 ws /*
446 1.7 thorpej * For now, use soft spl handling.
447 1.7 thorpej */
448 1.7 thorpej {
449 1.7 thorpej extern struct machvec soft_machvec;
450 1.7 thorpej
451 1.7 thorpej machine_interface = soft_machvec;
452 1.7 thorpej }
453 1.7 thorpej
454 1.7 thorpej /*
455 1.1 ws * Now allow hardware interrupts.
456 1.1 ws */
457 1.1 ws {
458 1.1 ws int msr;
459 1.1 ws
460 1.1 ws splhigh();
461 1.7 thorpej asm volatile ("mfmsr %0; ori %0,%0,%1; mtmsr %0"
462 1.7 thorpej : "=r"(msr) : "K"((u_short)(PSL_EE|PSL_RI)));
463 1.1 ws }
464 1.1 ws
465 1.1 ws /*
466 1.1 ws * Configure devices.
467 1.1 ws */
468 1.1 ws configure();
469 1.1 ws }
470 1.1 ws
471 1.1 ws /*
472 1.1 ws * Allocate space for system data structures.
473 1.1 ws */
474 1.1 ws caddr_t
475 1.1 ws allocsys(v)
476 1.1 ws caddr_t v;
477 1.1 ws {
478 1.1 ws #define valloc(name, type, num) \
479 1.1 ws v = (caddr_t)(((name) = (type *)v) + (num))
480 1.1 ws
481 1.1 ws valloc(callout, struct callout, ncallout);
482 1.1 ws #ifdef SYSVSHM
483 1.1 ws valloc(shmsegs, struct shmid_ds, shminfo.shmmni);
484 1.1 ws #endif
485 1.1 ws #ifdef SYSVSEM
486 1.1 ws valloc(sema, struct semid_ds, seminfo.semmni);
487 1.1 ws valloc(sem, struct sem, seminfo.semmns);
488 1.1 ws valloc(semu, int, (seminfo.semmnu * seminfo.semusz) / sizeof(int));
489 1.1 ws #endif
490 1.1 ws #ifdef SYSVMSG
491 1.1 ws valloc(msgpool, char, msginfo.msgmax);
492 1.1 ws valloc(msgmaps, struct msgmap, msginfo.msgseg);
493 1.1 ws valloc(msghdrs, struct msg, msginfo.msgtql);
494 1.1 ws valloc(msqids, struct msqid_ds, msginfo.msgmni);
495 1.1 ws #endif
496 1.1 ws
497 1.1 ws /*
498 1.1 ws * Decide on buffer space to use.
499 1.1 ws */
500 1.1 ws if (bufpages == 0)
501 1.1 ws bufpages = (physmem / 20) / CLSIZE;
502 1.1 ws if (nbuf == 0) {
503 1.1 ws nbuf = bufpages;
504 1.1 ws if (nbuf < 16)
505 1.1 ws nbuf = 16;
506 1.1 ws }
507 1.1 ws if (nswbuf == 0) {
508 1.1 ws nswbuf = (nbuf / 2) & ~1;
509 1.1 ws if (nswbuf > 256)
510 1.1 ws nswbuf = 256;
511 1.1 ws }
512 1.1 ws valloc(swbuf, struct buf, nswbuf);
513 1.1 ws valloc(buf, struct buf, nbuf);
514 1.1 ws
515 1.1 ws return v;
516 1.1 ws }
517 1.1 ws
518 1.1 ws /*
519 1.1 ws * consinit
520 1.1 ws * Initialize system console.
521 1.1 ws */
522 1.1 ws void
523 1.1 ws consinit()
524 1.1 ws {
525 1.1 ws static int initted;
526 1.1 ws
527 1.1 ws if (initted)
528 1.1 ws return;
529 1.1 ws initted = 1;
530 1.1 ws cninit();
531 1.1 ws }
532 1.1 ws
533 1.1 ws /*
534 1.7 thorpej * Set set up registers on exec.
535 1.1 ws */
536 1.1 ws void
537 1.11 mycroft setregs(p, pack, stack)
538 1.1 ws struct proc *p;
539 1.1 ws struct exec_package *pack;
540 1.1 ws u_long stack;
541 1.1 ws {
542 1.1 ws struct trapframe *tf = trapframe(p);
543 1.7 thorpej struct ps_strings arginfo;
544 1.1 ws
545 1.1 ws bzero(tf, sizeof *tf);
546 1.1 ws tf->fixreg[1] = -roundup(-stack + 8, 16);
547 1.7 thorpej
548 1.7 thorpej /*
549 1.7 thorpej * XXX Machine-independent code has already copied arguments and
550 1.7 thorpej * XXX environment to userland. Get them back here.
551 1.7 thorpej */
552 1.7 thorpej (void)copyin((char *)PS_STRINGS, &arginfo, sizeof(arginfo));
553 1.7 thorpej
554 1.7 thorpej /*
555 1.7 thorpej * Set up arguments for _start():
556 1.7 thorpej * _start(argc, argv, envp, obj, cleanup, ps_strings);
557 1.7 thorpej *
558 1.7 thorpej * Notes:
559 1.7 thorpej * - obj and cleanup are the auxilliary and termination
560 1.7 thorpej * vectors. They are fixed up by ld.elf_so.
561 1.7 thorpej * - ps_strings is a NetBSD extention, and will be
562 1.7 thorpej * ignored by executables which are strictly
563 1.7 thorpej * compliant with the SVR4 ABI.
564 1.7 thorpej *
565 1.7 thorpej * XXX We have to set both regs and retval here due to different
566 1.7 thorpej * XXX calling convention in trap.c and init_main.c.
567 1.7 thorpej */
568 1.12 mycroft tf->fixreg[3] = arginfo.ps_nargvstr;
569 1.12 mycroft tf->fixreg[4] = (register_t)arginfo.ps_argvstr;
570 1.7 thorpej tf->fixreg[5] = (register_t)arginfo.ps_envstr;
571 1.7 thorpej tf->fixreg[6] = 0; /* auxillary vector */
572 1.7 thorpej tf->fixreg[7] = 0; /* termination vector */
573 1.7 thorpej tf->fixreg[8] = (register_t)PS_STRINGS; /* NetBSD extension */
574 1.7 thorpej
575 1.1 ws tf->srr0 = pack->ep_entry;
576 1.1 ws tf->srr1 = PSL_MBO | PSL_USERSET | PSL_FE_DFLT;
577 1.1 ws p->p_addr->u_pcb.pcb_flags = 0;
578 1.1 ws }
579 1.1 ws
580 1.1 ws /*
581 1.1 ws * Send a signal to process.
582 1.1 ws */
583 1.1 ws void
584 1.1 ws sendsig(catcher, sig, mask, code)
585 1.1 ws sig_t catcher;
586 1.1 ws int sig, mask;
587 1.1 ws u_long code;
588 1.1 ws {
589 1.1 ws struct proc *p = curproc;
590 1.1 ws struct trapframe *tf;
591 1.1 ws struct sigframe *fp, frame;
592 1.1 ws struct sigacts *psp = p->p_sigacts;
593 1.1 ws int oldonstack;
594 1.1 ws
595 1.1 ws frame.sf_signum = sig;
596 1.1 ws
597 1.1 ws tf = trapframe(p);
598 1.1 ws oldonstack = psp->ps_sigstk.ss_flags & SS_ONSTACK;
599 1.1 ws
600 1.1 ws /*
601 1.1 ws * Allocate stack space for signal handler.
602 1.1 ws */
603 1.1 ws if ((psp->ps_flags & SAS_ALTSTACK)
604 1.1 ws && !oldonstack
605 1.1 ws && (psp->ps_sigonstack & sigmask(sig))) {
606 1.1 ws fp = (struct sigframe *)(psp->ps_sigstk.ss_sp
607 1.1 ws + psp->ps_sigstk.ss_size);
608 1.1 ws psp->ps_sigstk.ss_flags |= SS_ONSTACK;
609 1.1 ws } else
610 1.1 ws fp = (struct sigframe *)tf->fixreg[1];
611 1.1 ws fp = (struct sigframe *)((int)(fp - 1) & ~0xf);
612 1.1 ws
613 1.1 ws frame.sf_code = code;
614 1.1 ws
615 1.1 ws /*
616 1.1 ws * Generate signal context for SYS_sigreturn.
617 1.1 ws */
618 1.1 ws frame.sf_sc.sc_onstack = oldonstack;
619 1.1 ws frame.sf_sc.sc_mask = mask;
620 1.1 ws bcopy(tf, &frame.sf_sc.sc_frame, sizeof *tf);
621 1.1 ws if (copyout(&frame, fp, sizeof frame) != 0)
622 1.1 ws sigexit(p, SIGILL);
623 1.1 ws
624 1.1 ws tf->fixreg[1] = (int)fp;
625 1.1 ws tf->lr = (int)catcher;
626 1.1 ws tf->fixreg[3] = (int)sig;
627 1.1 ws tf->fixreg[4] = (int)code;
628 1.1 ws tf->fixreg[5] = (int)&frame.sf_sc;
629 1.1 ws tf->srr0 = (int)(((char *)PS_STRINGS)
630 1.1 ws - (p->p_emul->e_esigcode - p->p_emul->e_sigcode));
631 1.1 ws }
632 1.1 ws
633 1.1 ws /*
634 1.1 ws * System call to cleanup state after a signal handler returns.
635 1.1 ws */
636 1.1 ws int
637 1.1 ws sys_sigreturn(p, v, retval)
638 1.1 ws struct proc *p;
639 1.1 ws void *v;
640 1.1 ws register_t *retval;
641 1.1 ws {
642 1.1 ws struct sys_sigreturn_args /* {
643 1.1 ws syscallarg(struct sigcontext *) sigcntxp;
644 1.1 ws } */ *uap = v;
645 1.1 ws struct sigcontext sc;
646 1.1 ws struct trapframe *tf;
647 1.1 ws int error;
648 1.1 ws
649 1.1 ws if (error = copyin(SCARG(uap, sigcntxp), &sc, sizeof sc))
650 1.1 ws return error;
651 1.1 ws tf = trapframe(p);
652 1.1 ws if ((sc.sc_frame.srr1 & PSL_USERSTATIC) != (tf->srr1 & PSL_USERSTATIC))
653 1.1 ws return EINVAL;
654 1.1 ws bcopy(&sc.sc_frame, tf, sizeof *tf);
655 1.1 ws if (sc.sc_onstack & 1)
656 1.1 ws p->p_sigacts->ps_sigstk.ss_flags |= SS_ONSTACK;
657 1.1 ws else
658 1.1 ws p->p_sigacts->ps_sigstk.ss_flags &= ~SS_ONSTACK;
659 1.1 ws p->p_sigmask = sc.sc_mask & ~sigcantmask;
660 1.1 ws return EJUSTRETURN;
661 1.1 ws }
662 1.1 ws
663 1.1 ws /*
664 1.1 ws * Machine dependent system variables.
665 1.1 ws * None for now.
666 1.1 ws */
667 1.1 ws int
668 1.1 ws cpu_sysctl(name, namelen, oldp, oldlenp, newp, newlen, p)
669 1.1 ws int *name;
670 1.1 ws u_int namelen;
671 1.1 ws void *oldp;
672 1.1 ws size_t *oldlenp;
673 1.1 ws void *newp;
674 1.1 ws size_t newlen;
675 1.1 ws struct proc *p;
676 1.1 ws {
677 1.1 ws /* all sysctl names at this level are terminal */
678 1.1 ws if (namelen != 1)
679 1.1 ws return ENOTDIR;
680 1.1 ws switch (name[0]) {
681 1.1 ws default:
682 1.1 ws return EOPNOTSUPP;
683 1.1 ws }
684 1.1 ws }
685 1.1 ws
686 1.1 ws /*
687 1.1 ws * Crash dump handling.
688 1.1 ws */
689 1.1 ws u_long dumpmag = 0x8fca0101; /* magic number */
690 1.1 ws int dumpsize = 0; /* size of dump in pages */
691 1.1 ws long dumplo = -1; /* blocks */
692 1.1 ws
693 1.1 ws void
694 1.1 ws dumpsys()
695 1.1 ws {
696 1.3 christos printf("dumpsys: TBD\n");
697 1.1 ws }
698 1.1 ws
699 1.1 ws /*
700 1.1 ws * Soft networking interrupts.
701 1.1 ws */
702 1.1 ws void
703 1.1 ws softnet()
704 1.1 ws {
705 1.1 ws int isr = netisr;
706 1.1 ws
707 1.1 ws netisr = 0;
708 1.1 ws #ifdef INET
709 1.13 veego #include "arp.h"
710 1.13 veego #if NARP > 0
711 1.1 ws if (isr & (1 << NETISR_ARP))
712 1.1 ws arpintr();
713 1.1 ws #endif
714 1.1 ws if (isr & (1 << NETISR_IP))
715 1.1 ws ipintr();
716 1.1 ws #endif
717 1.1 ws #ifdef IMP
718 1.1 ws if (isr & (1 << NETISR_IMP))
719 1.1 ws impintr();
720 1.1 ws #endif
721 1.1 ws #ifdef NS
722 1.1 ws if (isr & (1 << NETISR_NS))
723 1.1 ws nsintr();
724 1.1 ws #endif
725 1.1 ws #ifdef ISO
726 1.1 ws if (isr & (1 << NETISR_ISO))
727 1.1 ws clnlintr();
728 1.1 ws #endif
729 1.1 ws #ifdef CCITT
730 1.1 ws if (isr & (1 << NETISR_CCITT))
731 1.1 ws ccittintr();
732 1.1 ws #endif
733 1.1 ws #include "ppp.h"
734 1.1 ws #if NPPP > 0
735 1.1 ws if (isr & (1 << NETISR_PPP))
736 1.1 ws pppintr();
737 1.1 ws #endif
738 1.1 ws }
739 1.1 ws
740 1.1 ws /*
741 1.1 ws * Stray interrupts.
742 1.1 ws */
743 1.1 ws void
744 1.1 ws strayintr(irq)
745 1.1 ws int irq;
746 1.1 ws {
747 1.1 ws log(LOG_ERR, "stray interrupt %d\n", irq);
748 1.1 ws }
749 1.1 ws
750 1.1 ws /*
751 1.1 ws * Halt or reboot the machine after syncing/dumping according to howto.
752 1.1 ws */
753 1.1 ws void
754 1.5 gwr cpu_reboot(howto, what)
755 1.1 ws int howto;
756 1.1 ws char *what;
757 1.1 ws {
758 1.1 ws static int syncing;
759 1.1 ws static char str[256];
760 1.1 ws char *ap = str, *ap1 = ap;
761 1.1 ws
762 1.1 ws boothowto = howto;
763 1.1 ws if (!cold && !(howto & RB_NOSYNC) && !syncing) {
764 1.1 ws syncing = 1;
765 1.1 ws vfs_shutdown(); /* sync */
766 1.1 ws resettodr(); /* set wall clock */
767 1.1 ws }
768 1.1 ws splhigh();
769 1.1 ws if (howto & RB_HALT) {
770 1.1 ws doshutdownhooks();
771 1.3 christos printf("halted\n\n");
772 1.1 ws ppc_exit();
773 1.1 ws }
774 1.1 ws if (!cold && (howto & RB_DUMP))
775 1.1 ws dumpsys();
776 1.1 ws doshutdownhooks();
777 1.3 christos printf("rebooting\n\n");
778 1.1 ws if (what && *what) {
779 1.1 ws if (strlen(what) > sizeof str - 5)
780 1.3 christos printf("boot string too large, ignored\n");
781 1.1 ws else {
782 1.1 ws strcpy(str, what);
783 1.1 ws ap1 = ap = str + strlen(str);
784 1.1 ws *ap++ = ' ';
785 1.1 ws }
786 1.1 ws }
787 1.1 ws *ap++ = '-';
788 1.1 ws if (howto & RB_SINGLE)
789 1.1 ws *ap++ = 's';
790 1.1 ws if (howto & RB_KDB)
791 1.1 ws *ap++ = 'd';
792 1.1 ws *ap++ = 0;
793 1.1 ws if (ap[-2] == '-')
794 1.1 ws *ap1 = 0;
795 1.1 ws ppc_boot(str);
796 1.1 ws }
797 1.1 ws
798 1.1 ws /*
799 1.1 ws * OpenFirmware callback routine
800 1.1 ws */
801 1.1 ws void
802 1.1 ws callback(p)
803 1.1 ws void *p;
804 1.1 ws {
805 1.1 ws panic("callback"); /* for now XXX */
806 1.1 ws }
807 1.1 ws
808 1.1 ws /*
809 1.7 thorpej * Initial Machine Interface.
810 1.1 ws */
811 1.7 thorpej static int
812 1.7 thorpej fake_spl()
813 1.7 thorpej {
814 1.7 thorpej int scratch;
815 1.7 thorpej
816 1.7 thorpej asm volatile ("mfmsr %0; andi. %0,%0,%1; mtmsr %0; isync"
817 1.7 thorpej : "=r"(scratch) : "K"((u_short)~(PSL_EE|PSL_ME)));
818 1.7 thorpej return -1;
819 1.7 thorpej }
820 1.7 thorpej
821 1.1 ws static void
822 1.7 thorpej fake_setsoft()
823 1.7 thorpej {
824 1.7 thorpej /* Do nothing */
825 1.7 thorpej }
826 1.7 thorpej
827 1.7 thorpej static int
828 1.1 ws fake_splx(new)
829 1.1 ws int new;
830 1.1 ws {
831 1.7 thorpej return fake_spl();
832 1.7 thorpej }
833 1.7 thorpej
834 1.7 thorpej static void
835 1.7 thorpej fake_clock_return(frame, nticks)
836 1.7 thorpej struct clockframe *frame;
837 1.7 thorpej int nticks;
838 1.7 thorpej {
839 1.7 thorpej /* Do nothing */
840 1.1 ws }
841 1.1 ws
842 1.1 ws static void
843 1.1 ws fake_irq_establish(irq, level, handler, arg)
844 1.1 ws int irq, level;
845 1.1 ws void (*handler) __P((void *));
846 1.1 ws void *arg;
847 1.1 ws {
848 1.1 ws panic("fake_irq_establish");
849 1.1 ws }
850