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