machdep.c revision 1.14 1 1.14 sakamoto /* $NetBSD: machdep.c,v 1.14 1998/01/27 09:16:02 sakamoto 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.14 sakamoto #ifdef DDB
220 1.14 sakamoto case EXC_PGM:
221 1.14 sakamoto case EXC_TRC:
222 1.14 sakamoto case EXC_BPT:
223 1.14 sakamoto bcopy(&ddblow, (void *)exc, (size_t)&ddbsize);
224 1.14 sakamoto break;
225 1.14 sakamoto #endif
226 1.4 ws #if NIPKDB > 0
227 1.1 ws case EXC_PGM:
228 1.1 ws case EXC_TRC:
229 1.1 ws case EXC_BPT:
230 1.4 ws bcopy(&ipkdblow, (void *)exc, (size_t)&ipkdbsize);
231 1.1 ws break;
232 1.1 ws #endif
233 1.1 ws }
234 1.1 ws
235 1.1 ws syncicache((void *)EXC_RST, EXC_LAST - EXC_RST + 0x100);
236 1.1 ws
237 1.1 ws /*
238 1.1 ws * Now enable translation (and machine checks/recoverable interrupts).
239 1.1 ws */
240 1.1 ws asm volatile ("mfmsr %0; ori %0,%0,%1; mtmsr %0; isync"
241 1.1 ws : "=r"(scratch) : "K"(PSL_IR|PSL_DR|PSL_ME|PSL_RI));
242 1.1 ws
243 1.1 ws /*
244 1.1 ws * Parse arg string.
245 1.1 ws */
246 1.1 ws bootpath = args;
247 1.7 thorpej while (*++args && *args != ' ');
248 1.1 ws if (*args) {
249 1.1 ws *args++ = 0;
250 1.1 ws while (*args) {
251 1.1 ws switch (*args++) {
252 1.1 ws case 'a':
253 1.1 ws boothowto |= RB_ASKNAME;
254 1.1 ws break;
255 1.1 ws case 's':
256 1.1 ws boothowto |= RB_SINGLE;
257 1.1 ws break;
258 1.1 ws case 'd':
259 1.1 ws boothowto |= RB_KDB;
260 1.1 ws break;
261 1.1 ws }
262 1.1 ws }
263 1.1 ws }
264 1.1 ws
265 1.14 sakamoto #ifdef DDB
266 1.14 sakamoto /* ddb_init(startsym, endsym); */
267 1.14 sakamoto #endif
268 1.4 ws #if NIPKDB > 0
269 1.1 ws /*
270 1.4 ws * Now trap to IPKDB
271 1.1 ws */
272 1.4 ws ipkdb_init();
273 1.1 ws if (boothowto & RB_KDB)
274 1.4 ws ipkdb_connect(0);
275 1.1 ws #endif
276 1.1 ws
277 1.1 ws /*
278 1.1 ws * Initialize pmap module.
279 1.1 ws */
280 1.1 ws pmap_bootstrap(startkernel, endkernel);
281 1.1 ws }
282 1.1 ws
283 1.1 ws /*
284 1.1 ws * This should probably be in autoconf! XXX
285 1.1 ws */
286 1.1 ws int cpu;
287 1.1 ws char cpu_model[80];
288 1.9 veego char machine[] = MACHINE; /* from <machine/param.h> */
289 1.9 veego char machine_arch[] = MACHINE_ARCH; /* from <machine/param.h> */
290 1.1 ws
291 1.1 ws void
292 1.1 ws identifycpu()
293 1.1 ws {
294 1.1 ws int phandle, pvr;
295 1.1 ws char name[32];
296 1.1 ws
297 1.1 ws /*
298 1.1 ws * Find cpu type (Do it by OpenFirmware?)
299 1.1 ws */
300 1.1 ws asm ("mfpvr %0" : "=r"(pvr));
301 1.1 ws cpu = pvr >> 16;
302 1.1 ws switch (cpu) {
303 1.1 ws case 1:
304 1.3 christos sprintf(cpu_model, "601");
305 1.1 ws break;
306 1.1 ws case 3:
307 1.3 christos sprintf(cpu_model, "603");
308 1.1 ws break;
309 1.1 ws case 4:
310 1.3 christos sprintf(cpu_model, "604");
311 1.1 ws break;
312 1.1 ws case 5:
313 1.3 christos sprintf(cpu_model, "602");
314 1.1 ws break;
315 1.1 ws case 6:
316 1.3 christos sprintf(cpu_model, "603e");
317 1.1 ws break;
318 1.1 ws case 7:
319 1.3 christos sprintf(cpu_model, "603ev");
320 1.1 ws break;
321 1.1 ws case 9:
322 1.3 christos sprintf(cpu_model, "604ev");
323 1.1 ws break;
324 1.1 ws case 20:
325 1.3 christos sprintf(cpu_model, "620");
326 1.1 ws break;
327 1.1 ws default:
328 1.3 christos sprintf(cpu_model, "Version %x", cpu);
329 1.1 ws break;
330 1.1 ws }
331 1.1 ws sprintf(cpu_model + strlen(cpu_model), " (Revision %x)", pvr & 0xffff);
332 1.3 christos printf("CPU: %s\n", cpu_model);
333 1.1 ws }
334 1.1 ws
335 1.1 ws void
336 1.1 ws install_extint(handler)
337 1.1 ws void (*handler) __P((void));
338 1.1 ws {
339 1.1 ws extern extint, extsize;
340 1.1 ws extern u_long extint_call;
341 1.1 ws u_long offset = (u_long)handler - (u_long)&extint_call;
342 1.1 ws int omsr, msr;
343 1.1 ws
344 1.1 ws #ifdef DIAGNOSTIC
345 1.1 ws if (offset > 0x1ffffff)
346 1.1 ws panic("install_extint: too far away");
347 1.1 ws #endif
348 1.7 thorpej asm volatile ("mfmsr %0; andi. %1,%0,%2; mtmsr %1"
349 1.1 ws : "=r"(omsr), "=r"(msr) : "K"((u_short)~PSL_EE));
350 1.1 ws extint_call = (extint_call & 0xfc000003) | offset;
351 1.1 ws bcopy(&extint, (void *)EXC_EXI, (size_t)&extsize);
352 1.1 ws syncicache((void *)&extint_call, sizeof extint_call);
353 1.1 ws syncicache((void *)EXC_EXI, (int)&extsize);
354 1.1 ws asm volatile ("mtmsr %0" :: "r"(omsr));
355 1.1 ws }
356 1.1 ws
357 1.1 ws /*
358 1.1 ws * Machine dependent startup code.
359 1.1 ws */
360 1.1 ws void
361 1.1 ws cpu_startup()
362 1.1 ws {
363 1.1 ws int sz, i;
364 1.1 ws caddr_t v;
365 1.1 ws vm_offset_t minaddr, maxaddr;
366 1.1 ws int base, residual;
367 1.1 ws
368 1.1 ws proc0.p_addr = proc0paddr;
369 1.1 ws v = (caddr_t)proc0paddr + USPACE;
370 1.1 ws
371 1.3 christos printf("%s", version);
372 1.1 ws identifycpu();
373 1.1 ws
374 1.3 christos printf("real mem = %d\n", ctob(physmem));
375 1.1 ws
376 1.1 ws /*
377 1.1 ws * Find out how much space we need, allocate it,
378 1.1 ws * and then give everything true virtual addresses.
379 1.1 ws */
380 1.1 ws sz = (int)allocsys((caddr_t)0);
381 1.1 ws if ((v = (caddr_t)kmem_alloc(kernel_map, round_page(sz))) == 0)
382 1.1 ws panic("startup: no room for tables");
383 1.1 ws if (allocsys(v) - v != sz)
384 1.1 ws panic("startup: table size inconsistency");
385 1.1 ws
386 1.1 ws /*
387 1.1 ws * Now allocate buffers proper. They are different than the above
388 1.1 ws * in that they usually occupy more virtual memory than physical.
389 1.1 ws */
390 1.1 ws sz = MAXBSIZE * nbuf;
391 1.1 ws buffer_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr, sz, TRUE);
392 1.1 ws buffers = (char *)minaddr;
393 1.1 ws if (vm_map_find(buffer_map, vm_object_allocate(sz), (vm_offset_t)0,
394 1.1 ws &minaddr, sz, FALSE) != KERN_SUCCESS)
395 1.1 ws panic("startup: cannot allocate buffers");
396 1.1 ws base = bufpages / nbuf;
397 1.1 ws residual = bufpages % nbuf;
398 1.1 ws if (base >= MAXBSIZE) {
399 1.1 ws /* Don't want to alloc more physical mem than ever needed */
400 1.1 ws base = MAXBSIZE;
401 1.1 ws residual = 0;
402 1.1 ws }
403 1.1 ws for (i = 0; i < nbuf; i++) {
404 1.1 ws vm_size_t curbufsize;
405 1.1 ws vm_offset_t curbuf;
406 1.1 ws
407 1.1 ws curbuf = (vm_offset_t)buffers + i * MAXBSIZE;
408 1.1 ws curbufsize = CLBYTES * (i < residual ? base + 1 : base);
409 1.1 ws vm_map_pageable(buffer_map, curbuf, curbuf + curbufsize, FALSE);
410 1.1 ws vm_map_simplify(buffer_map, curbuf);
411 1.1 ws }
412 1.1 ws
413 1.1 ws /*
414 1.1 ws * Allocate a submap for exec arguments. This map effectively
415 1.1 ws * limits the number of processes exec'ing at any time.
416 1.1 ws */
417 1.1 ws exec_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr,
418 1.1 ws 16*NCARGS, TRUE);
419 1.1 ws
420 1.1 ws /*
421 1.1 ws * Allocate a submap for physio
422 1.1 ws */
423 1.1 ws phys_map = kmem_suballoc(kernel_map, &minaddr, &maxaddr,
424 1.1 ws VM_PHYS_SIZE, TRUE);
425 1.1 ws
426 1.1 ws /*
427 1.6 thorpej * Finally, allocate mbuf cluster submap.
428 1.1 ws */
429 1.1 ws mb_map = kmem_suballoc(kernel_map, (vm_offset_t *)&mbutl, &maxaddr,
430 1.1 ws VM_MBUF_SIZE, FALSE);
431 1.1 ws
432 1.1 ws /*
433 1.1 ws * Initialize callouts.
434 1.1 ws */
435 1.1 ws callfree = callout;
436 1.1 ws for (i = 1; i < ncallout; i++)
437 1.1 ws callout[i - 1].c_next = &callout[i];
438 1.1 ws
439 1.3 christos printf("avail mem = %d\n", ptoa(cnt.v_free_count));
440 1.3 christos printf("using %d buffers containing %d bytes of memory\n",
441 1.1 ws nbuf, bufpages * CLBYTES);
442 1.1 ws
443 1.1 ws /*
444 1.1 ws * Set up the buffers.
445 1.1 ws */
446 1.1 ws bufinit();
447 1.1 ws
448 1.1 ws /*
449 1.7 thorpej * For now, use soft spl handling.
450 1.7 thorpej */
451 1.7 thorpej {
452 1.7 thorpej extern struct machvec soft_machvec;
453 1.7 thorpej
454 1.7 thorpej machine_interface = soft_machvec;
455 1.7 thorpej }
456 1.7 thorpej
457 1.7 thorpej /*
458 1.1 ws * Now allow hardware interrupts.
459 1.1 ws */
460 1.1 ws {
461 1.1 ws int msr;
462 1.1 ws
463 1.1 ws splhigh();
464 1.7 thorpej asm volatile ("mfmsr %0; ori %0,%0,%1; mtmsr %0"
465 1.7 thorpej : "=r"(msr) : "K"((u_short)(PSL_EE|PSL_RI)));
466 1.1 ws }
467 1.1 ws
468 1.1 ws /*
469 1.1 ws * Configure devices.
470 1.1 ws */
471 1.1 ws configure();
472 1.1 ws }
473 1.1 ws
474 1.1 ws /*
475 1.1 ws * Allocate space for system data structures.
476 1.1 ws */
477 1.1 ws caddr_t
478 1.1 ws allocsys(v)
479 1.1 ws caddr_t v;
480 1.1 ws {
481 1.1 ws #define valloc(name, type, num) \
482 1.1 ws v = (caddr_t)(((name) = (type *)v) + (num))
483 1.1 ws
484 1.1 ws valloc(callout, struct callout, ncallout);
485 1.1 ws #ifdef SYSVSHM
486 1.1 ws valloc(shmsegs, struct shmid_ds, shminfo.shmmni);
487 1.1 ws #endif
488 1.1 ws #ifdef SYSVSEM
489 1.1 ws valloc(sema, struct semid_ds, seminfo.semmni);
490 1.1 ws valloc(sem, struct sem, seminfo.semmns);
491 1.1 ws valloc(semu, int, (seminfo.semmnu * seminfo.semusz) / sizeof(int));
492 1.1 ws #endif
493 1.1 ws #ifdef SYSVMSG
494 1.1 ws valloc(msgpool, char, msginfo.msgmax);
495 1.1 ws valloc(msgmaps, struct msgmap, msginfo.msgseg);
496 1.1 ws valloc(msghdrs, struct msg, msginfo.msgtql);
497 1.1 ws valloc(msqids, struct msqid_ds, msginfo.msgmni);
498 1.1 ws #endif
499 1.1 ws
500 1.1 ws /*
501 1.1 ws * Decide on buffer space to use.
502 1.1 ws */
503 1.1 ws if (bufpages == 0)
504 1.1 ws bufpages = (physmem / 20) / CLSIZE;
505 1.1 ws if (nbuf == 0) {
506 1.1 ws nbuf = bufpages;
507 1.1 ws if (nbuf < 16)
508 1.1 ws nbuf = 16;
509 1.1 ws }
510 1.1 ws if (nswbuf == 0) {
511 1.1 ws nswbuf = (nbuf / 2) & ~1;
512 1.1 ws if (nswbuf > 256)
513 1.1 ws nswbuf = 256;
514 1.1 ws }
515 1.1 ws valloc(swbuf, struct buf, nswbuf);
516 1.1 ws valloc(buf, struct buf, nbuf);
517 1.1 ws
518 1.1 ws return v;
519 1.1 ws }
520 1.1 ws
521 1.1 ws /*
522 1.1 ws * consinit
523 1.1 ws * Initialize system console.
524 1.1 ws */
525 1.1 ws void
526 1.1 ws consinit()
527 1.1 ws {
528 1.1 ws static int initted;
529 1.1 ws
530 1.1 ws if (initted)
531 1.1 ws return;
532 1.1 ws initted = 1;
533 1.1 ws cninit();
534 1.1 ws }
535 1.1 ws
536 1.1 ws /*
537 1.7 thorpej * Set set up registers on exec.
538 1.1 ws */
539 1.1 ws void
540 1.11 mycroft setregs(p, pack, stack)
541 1.1 ws struct proc *p;
542 1.1 ws struct exec_package *pack;
543 1.1 ws u_long stack;
544 1.1 ws {
545 1.1 ws struct trapframe *tf = trapframe(p);
546 1.7 thorpej struct ps_strings arginfo;
547 1.1 ws
548 1.1 ws bzero(tf, sizeof *tf);
549 1.1 ws tf->fixreg[1] = -roundup(-stack + 8, 16);
550 1.7 thorpej
551 1.7 thorpej /*
552 1.7 thorpej * XXX Machine-independent code has already copied arguments and
553 1.7 thorpej * XXX environment to userland. Get them back here.
554 1.7 thorpej */
555 1.7 thorpej (void)copyin((char *)PS_STRINGS, &arginfo, sizeof(arginfo));
556 1.7 thorpej
557 1.7 thorpej /*
558 1.7 thorpej * Set up arguments for _start():
559 1.7 thorpej * _start(argc, argv, envp, obj, cleanup, ps_strings);
560 1.7 thorpej *
561 1.7 thorpej * Notes:
562 1.7 thorpej * - obj and cleanup are the auxilliary and termination
563 1.7 thorpej * vectors. They are fixed up by ld.elf_so.
564 1.7 thorpej * - ps_strings is a NetBSD extention, and will be
565 1.7 thorpej * ignored by executables which are strictly
566 1.7 thorpej * compliant with the SVR4 ABI.
567 1.7 thorpej *
568 1.7 thorpej * XXX We have to set both regs and retval here due to different
569 1.7 thorpej * XXX calling convention in trap.c and init_main.c.
570 1.7 thorpej */
571 1.12 mycroft tf->fixreg[3] = arginfo.ps_nargvstr;
572 1.12 mycroft tf->fixreg[4] = (register_t)arginfo.ps_argvstr;
573 1.7 thorpej tf->fixreg[5] = (register_t)arginfo.ps_envstr;
574 1.7 thorpej tf->fixreg[6] = 0; /* auxillary vector */
575 1.7 thorpej tf->fixreg[7] = 0; /* termination vector */
576 1.7 thorpej tf->fixreg[8] = (register_t)PS_STRINGS; /* NetBSD extension */
577 1.7 thorpej
578 1.1 ws tf->srr0 = pack->ep_entry;
579 1.1 ws tf->srr1 = PSL_MBO | PSL_USERSET | PSL_FE_DFLT;
580 1.1 ws p->p_addr->u_pcb.pcb_flags = 0;
581 1.1 ws }
582 1.1 ws
583 1.1 ws /*
584 1.1 ws * Send a signal to process.
585 1.1 ws */
586 1.1 ws void
587 1.1 ws sendsig(catcher, sig, mask, code)
588 1.1 ws sig_t catcher;
589 1.1 ws int sig, mask;
590 1.1 ws u_long code;
591 1.1 ws {
592 1.1 ws struct proc *p = curproc;
593 1.1 ws struct trapframe *tf;
594 1.1 ws struct sigframe *fp, frame;
595 1.1 ws struct sigacts *psp = p->p_sigacts;
596 1.1 ws int oldonstack;
597 1.1 ws
598 1.1 ws frame.sf_signum = sig;
599 1.1 ws
600 1.1 ws tf = trapframe(p);
601 1.1 ws oldonstack = psp->ps_sigstk.ss_flags & SS_ONSTACK;
602 1.1 ws
603 1.1 ws /*
604 1.1 ws * Allocate stack space for signal handler.
605 1.1 ws */
606 1.1 ws if ((psp->ps_flags & SAS_ALTSTACK)
607 1.1 ws && !oldonstack
608 1.1 ws && (psp->ps_sigonstack & sigmask(sig))) {
609 1.1 ws fp = (struct sigframe *)(psp->ps_sigstk.ss_sp
610 1.1 ws + psp->ps_sigstk.ss_size);
611 1.1 ws psp->ps_sigstk.ss_flags |= SS_ONSTACK;
612 1.1 ws } else
613 1.1 ws fp = (struct sigframe *)tf->fixreg[1];
614 1.1 ws fp = (struct sigframe *)((int)(fp - 1) & ~0xf);
615 1.1 ws
616 1.1 ws frame.sf_code = code;
617 1.1 ws
618 1.1 ws /*
619 1.1 ws * Generate signal context for SYS_sigreturn.
620 1.1 ws */
621 1.1 ws frame.sf_sc.sc_onstack = oldonstack;
622 1.1 ws frame.sf_sc.sc_mask = mask;
623 1.1 ws bcopy(tf, &frame.sf_sc.sc_frame, sizeof *tf);
624 1.1 ws if (copyout(&frame, fp, sizeof frame) != 0)
625 1.1 ws sigexit(p, SIGILL);
626 1.1 ws
627 1.1 ws tf->fixreg[1] = (int)fp;
628 1.1 ws tf->lr = (int)catcher;
629 1.1 ws tf->fixreg[3] = (int)sig;
630 1.1 ws tf->fixreg[4] = (int)code;
631 1.1 ws tf->fixreg[5] = (int)&frame.sf_sc;
632 1.1 ws tf->srr0 = (int)(((char *)PS_STRINGS)
633 1.1 ws - (p->p_emul->e_esigcode - p->p_emul->e_sigcode));
634 1.1 ws }
635 1.1 ws
636 1.1 ws /*
637 1.1 ws * System call to cleanup state after a signal handler returns.
638 1.1 ws */
639 1.1 ws int
640 1.1 ws sys_sigreturn(p, v, retval)
641 1.1 ws struct proc *p;
642 1.1 ws void *v;
643 1.1 ws register_t *retval;
644 1.1 ws {
645 1.1 ws struct sys_sigreturn_args /* {
646 1.1 ws syscallarg(struct sigcontext *) sigcntxp;
647 1.1 ws } */ *uap = v;
648 1.1 ws struct sigcontext sc;
649 1.1 ws struct trapframe *tf;
650 1.1 ws int error;
651 1.1 ws
652 1.1 ws if (error = copyin(SCARG(uap, sigcntxp), &sc, sizeof sc))
653 1.1 ws return error;
654 1.1 ws tf = trapframe(p);
655 1.1 ws if ((sc.sc_frame.srr1 & PSL_USERSTATIC) != (tf->srr1 & PSL_USERSTATIC))
656 1.1 ws return EINVAL;
657 1.1 ws bcopy(&sc.sc_frame, tf, sizeof *tf);
658 1.1 ws if (sc.sc_onstack & 1)
659 1.1 ws p->p_sigacts->ps_sigstk.ss_flags |= SS_ONSTACK;
660 1.1 ws else
661 1.1 ws p->p_sigacts->ps_sigstk.ss_flags &= ~SS_ONSTACK;
662 1.1 ws p->p_sigmask = sc.sc_mask & ~sigcantmask;
663 1.1 ws return EJUSTRETURN;
664 1.1 ws }
665 1.1 ws
666 1.1 ws /*
667 1.1 ws * Machine dependent system variables.
668 1.1 ws * None for now.
669 1.1 ws */
670 1.1 ws int
671 1.1 ws cpu_sysctl(name, namelen, oldp, oldlenp, newp, newlen, p)
672 1.1 ws int *name;
673 1.1 ws u_int namelen;
674 1.1 ws void *oldp;
675 1.1 ws size_t *oldlenp;
676 1.1 ws void *newp;
677 1.1 ws size_t newlen;
678 1.1 ws struct proc *p;
679 1.1 ws {
680 1.1 ws /* all sysctl names at this level are terminal */
681 1.1 ws if (namelen != 1)
682 1.1 ws return ENOTDIR;
683 1.1 ws switch (name[0]) {
684 1.1 ws default:
685 1.1 ws return EOPNOTSUPP;
686 1.1 ws }
687 1.1 ws }
688 1.1 ws
689 1.1 ws /*
690 1.1 ws * Crash dump handling.
691 1.1 ws */
692 1.1 ws u_long dumpmag = 0x8fca0101; /* magic number */
693 1.1 ws int dumpsize = 0; /* size of dump in pages */
694 1.1 ws long dumplo = -1; /* blocks */
695 1.1 ws
696 1.1 ws void
697 1.1 ws dumpsys()
698 1.1 ws {
699 1.3 christos printf("dumpsys: TBD\n");
700 1.1 ws }
701 1.1 ws
702 1.1 ws /*
703 1.1 ws * Soft networking interrupts.
704 1.1 ws */
705 1.1 ws void
706 1.1 ws softnet()
707 1.1 ws {
708 1.1 ws int isr = netisr;
709 1.1 ws
710 1.1 ws netisr = 0;
711 1.1 ws #ifdef INET
712 1.13 veego #include "arp.h"
713 1.13 veego #if NARP > 0
714 1.1 ws if (isr & (1 << NETISR_ARP))
715 1.1 ws arpintr();
716 1.1 ws #endif
717 1.1 ws if (isr & (1 << NETISR_IP))
718 1.1 ws ipintr();
719 1.1 ws #endif
720 1.1 ws #ifdef IMP
721 1.1 ws if (isr & (1 << NETISR_IMP))
722 1.1 ws impintr();
723 1.1 ws #endif
724 1.1 ws #ifdef NS
725 1.1 ws if (isr & (1 << NETISR_NS))
726 1.1 ws nsintr();
727 1.1 ws #endif
728 1.1 ws #ifdef ISO
729 1.1 ws if (isr & (1 << NETISR_ISO))
730 1.1 ws clnlintr();
731 1.1 ws #endif
732 1.1 ws #ifdef CCITT
733 1.1 ws if (isr & (1 << NETISR_CCITT))
734 1.1 ws ccittintr();
735 1.1 ws #endif
736 1.1 ws #include "ppp.h"
737 1.1 ws #if NPPP > 0
738 1.1 ws if (isr & (1 << NETISR_PPP))
739 1.1 ws pppintr();
740 1.1 ws #endif
741 1.1 ws }
742 1.1 ws
743 1.1 ws /*
744 1.1 ws * Stray interrupts.
745 1.1 ws */
746 1.1 ws void
747 1.1 ws strayintr(irq)
748 1.1 ws int irq;
749 1.1 ws {
750 1.1 ws log(LOG_ERR, "stray interrupt %d\n", irq);
751 1.1 ws }
752 1.1 ws
753 1.1 ws /*
754 1.1 ws * Halt or reboot the machine after syncing/dumping according to howto.
755 1.1 ws */
756 1.1 ws void
757 1.5 gwr cpu_reboot(howto, what)
758 1.1 ws int howto;
759 1.1 ws char *what;
760 1.1 ws {
761 1.1 ws static int syncing;
762 1.1 ws static char str[256];
763 1.1 ws char *ap = str, *ap1 = ap;
764 1.1 ws
765 1.1 ws boothowto = howto;
766 1.1 ws if (!cold && !(howto & RB_NOSYNC) && !syncing) {
767 1.1 ws syncing = 1;
768 1.1 ws vfs_shutdown(); /* sync */
769 1.1 ws resettodr(); /* set wall clock */
770 1.1 ws }
771 1.1 ws splhigh();
772 1.1 ws if (howto & RB_HALT) {
773 1.1 ws doshutdownhooks();
774 1.3 christos printf("halted\n\n");
775 1.1 ws ppc_exit();
776 1.1 ws }
777 1.1 ws if (!cold && (howto & RB_DUMP))
778 1.1 ws dumpsys();
779 1.1 ws doshutdownhooks();
780 1.3 christos printf("rebooting\n\n");
781 1.1 ws if (what && *what) {
782 1.1 ws if (strlen(what) > sizeof str - 5)
783 1.3 christos printf("boot string too large, ignored\n");
784 1.1 ws else {
785 1.1 ws strcpy(str, what);
786 1.1 ws ap1 = ap = str + strlen(str);
787 1.1 ws *ap++ = ' ';
788 1.1 ws }
789 1.1 ws }
790 1.1 ws *ap++ = '-';
791 1.1 ws if (howto & RB_SINGLE)
792 1.1 ws *ap++ = 's';
793 1.1 ws if (howto & RB_KDB)
794 1.1 ws *ap++ = 'd';
795 1.1 ws *ap++ = 0;
796 1.1 ws if (ap[-2] == '-')
797 1.1 ws *ap1 = 0;
798 1.1 ws ppc_boot(str);
799 1.1 ws }
800 1.1 ws
801 1.1 ws /*
802 1.1 ws * OpenFirmware callback routine
803 1.1 ws */
804 1.1 ws void
805 1.1 ws callback(p)
806 1.1 ws void *p;
807 1.1 ws {
808 1.1 ws panic("callback"); /* for now XXX */
809 1.1 ws }
810 1.1 ws
811 1.1 ws /*
812 1.7 thorpej * Initial Machine Interface.
813 1.1 ws */
814 1.7 thorpej static int
815 1.7 thorpej fake_spl()
816 1.7 thorpej {
817 1.7 thorpej int scratch;
818 1.7 thorpej
819 1.7 thorpej asm volatile ("mfmsr %0; andi. %0,%0,%1; mtmsr %0; isync"
820 1.7 thorpej : "=r"(scratch) : "K"((u_short)~(PSL_EE|PSL_ME)));
821 1.7 thorpej return -1;
822 1.7 thorpej }
823 1.7 thorpej
824 1.1 ws static void
825 1.7 thorpej fake_setsoft()
826 1.7 thorpej {
827 1.7 thorpej /* Do nothing */
828 1.7 thorpej }
829 1.7 thorpej
830 1.7 thorpej static int
831 1.1 ws fake_splx(new)
832 1.1 ws int new;
833 1.1 ws {
834 1.7 thorpej return fake_spl();
835 1.7 thorpej }
836 1.7 thorpej
837 1.7 thorpej static void
838 1.7 thorpej fake_clock_return(frame, nticks)
839 1.7 thorpej struct clockframe *frame;
840 1.7 thorpej int nticks;
841 1.7 thorpej {
842 1.7 thorpej /* Do nothing */
843 1.1 ws }
844 1.1 ws
845 1.1 ws static void
846 1.1 ws fake_irq_establish(irq, level, handler, arg)
847 1.1 ws int irq, level;
848 1.1 ws void (*handler) __P((void *));
849 1.1 ws void *arg;
850 1.1 ws {
851 1.1 ws panic("fake_irq_establish");
852 1.1 ws }
853