xref: /netbsd-src/sys/arch/evbppc/virtex/machdep.c (revision 267197ec1eebfcb9810ea27a89625b6ddf68e3e7) 
1 /*	$NetBSD: machdep.c,v 1.5 2007/10/17 19:54:20 garbled Exp $ */
2 
3 /*
4  * Copyright (c) 2006 Jachym Holecek
5  * All rights reserved.
6  *
7  * Written for DFC Design, s.r.o.
8  *
9  * Redistribution and use in source and binary forms, with or without
10  * modification, are permitted provided that the following conditions
11  * are met:
12  *
13  * 1. Redistributions of source code must retain the above copyright
14  *    notice, this list of conditions and the following disclaimer.
15  *
16  * 2. Redistributions in binary form must reproduce the above copyright
17  *    notice, this list of conditions and the following disclaimer in the
18  *    documentation and/or other materials provided with the distribution.
19  *
20  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
21  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
22  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
23  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
24  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
25  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
26  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
27  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
28  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
29  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30  */
31 
32 /*
33  * Based on Walnut and Explora.
34  */
35 
36 #include <sys/cdefs.h>
37 __KERNEL_RCSID(0, "$NetBSD: machdep.c,v 1.5 2007/10/17 19:54:20 garbled Exp $");
38 
39 #include "opt_compat_netbsd.h"
40 #include "opt_ddb.h"
41 #include "opt_ipkdb.h"
42 #include "opt_virtex.h"
43 #include "opt_kgdb.h"
44 
45 #include <sys/param.h>
46 #include <sys/buf.h>
47 #include <sys/exec.h>
48 #include <sys/malloc.h>
49 #include <sys/mbuf.h>
50 #include <sys/mount.h>
51 #include <sys/msgbuf.h>
52 #include <sys/proc.h>
53 #include <sys/reboot.h>
54 #include <sys/syscallargs.h>
55 #include <sys/syslog.h>
56 #include <sys/systm.h>
57 #include <sys/kernel.h>
58 #include <sys/user.h>
59 #include <sys/boot_flag.h>
60 #include <sys/ksyms.h>
61 
62 #include <uvm/uvm_extern.h>
63 
64 #include <net/netisr.h>
65 
66 #include <dev/cons.h>
67 
68 #include <machine/bus.h>
69 #include <machine/powerpc.h>
70 #include <machine/trap.h>
71 
72 #include <powerpc/spr.h>
73 
74 #include <evbppc/virtex/dcr.h>
75 #include <evbppc/virtex/virtex.h>
76 
77 #include "ksyms.h"
78 
79 #if defined(DDB)
80 #include <machine/db_machdep.h>
81 #include <ddb/db_extern.h>
82 #endif
83 
84 #if defined(KGDB)
85 #include <sys/kgdb.h>
86 #endif
87 
88 /*
89  * Global variables used here and there
90  */
91 struct vm_map *exec_map = NULL;
92 struct vm_map *mb_map = NULL;
93 struct vm_map *phys_map = NULL;
94 
95 /*
96  * This should probably be in autoconf!				XXX
97  */
98 char cpu_model[80];
99 char machine[] = MACHINE;		/* from <machine/param.h> */
100 char machine_arch[] = MACHINE_ARCH;	/* from <machine/param.h> */
101 
102 extern struct user *proc0paddr;
103 
104 char bootpath[256];
105 paddr_t msgbuf_paddr;
106 vaddr_t msgbuf_vaddr;
107 
108 #if NKSYMS || defined(DDB) || defined(LKM)
109 void *startsym, *endsym;
110 #endif
111 
112 int lcsplx(int);
113 void initppc(u_int, u_int);
114 
115 static void dumpsys(void);
116 static void install_extint(void (*)(void));
117 static void trapcpy(int, void *, size_t);
118 
119 
120 /* These two live in powerpc/powerpc/trap_subr.S */
121 extern int 		extint, extsize;
122 extern u_long 		extint_call;
123 
124 extern int defaulttrap, defaultsize;
125 extern int sctrap, scsize;
126 extern int alitrap, alisize;
127 extern int dsitrap, dsisize;
128 extern int isitrap, isisize;
129 extern int mchktrap, mchksize;
130 extern int tlbimiss4xx, tlbim4size;
131 extern int tlbdmiss4xx, tlbdm4size;
132 extern int pitfitwdog, pitfitwdogsize;
133 extern int debugtrap, debugsize;
134 extern int errata51handler, errata51size;
135 #ifdef DDB
136 extern int ddblow, ddbsize;
137 #endif
138 #ifdef IPKDB
139 extern int ipkdblow, ipkdbsize;
140 #endif
141 
142 /* BSS segment start & end. */
143 extern char 		edata[], end[];
144 
145 /* One region holds all memory, the other is terminator expected by 405 pmap. */
146 #define MEMREGIONS 	2
147 struct mem_region 	physmemr[MEMREGIONS];
148 struct mem_region 	availmemr[MEMREGIONS];
149 
150 static struct {
151 	int 	vector;
152 	void 	*addr;
153 	void 	*size;
154 } traps[] = {
155 	/* EXC_EXI handled by install_extint(). */
156 	{ EXC_SC, 	&sctrap, 	&scsize 	},
157 	{ EXC_ALI, 	&alitrap, 	&alisize 	},
158 	{ EXC_DSI, 	&dsitrap, 	&dsisize 	},
159 	{ EXC_ISI, 	&isitrap, 	&isisize 	},
160 	{ EXC_MCHK, 	&mchktrap, 	&mchksize 	},
161 	{ EXC_ITMISS, 	&tlbimiss4xx, 	&tlbim4size 	},
162 	{ EXC_DTMISS, 	&tlbdmiss4xx, 	&tlbdm4size 	},
163 
164 	/* EXC_{PIT, FIT, WDOG} handlers are spaced by 0x10 bytes only.. */
165 	{ EXC_PIT, 	&pitfitwdog, 	&pitfitwdogsize },
166 	{ EXC_DEBUG, 	&debugtrap, 	&debugsize	},
167 
168 	/* PPC405GP Rev D errata item 51 */
169 	{ EXC_DTMISS|EXC_ALI, &errata51handler, &errata51size },
170 
171 #if defined(DDB)
172 	{ EXC_PGM, 	&ddblow, 	&ddbsize 	},
173 #elif defined(IPKDB)
174 	{ EXC_PGM, 	&ipkdblow, 	&ipkdbsize 	},
175 #endif
176 };
177 
178 /* Maximum TLB page size. */
179 #define TLB_PG_SIZE 	(16*1024*1024)
180 
181 void
182 initppc(u_int startkernel, u_int endkernel)
183 {
184 	struct cpu_info * const ci = curcpu();
185 	u_int 			addr, memsize;
186 	int 			exc, dbcr0, i;
187 
188         /* Initialize cache info for memcpy, memset, etc. */
189         cpu_probe_cache();
190 
191 	memset(physmemr, 0, sizeof(physmemr)); 		/* [1].size = 0 */
192 	memset(availmemr, 0, sizeof(availmemr)); 	/* [1].size = 0 */
193 
194 	memsize = (PHYSMEM * 1024 * 1024) & ~PGOFSET;
195 
196 	physmemr[0].start 	= 0;
197 	physmemr[0].size 	= memsize;
198 
199 	availmemr[0].start 	= startkernel;
200 	availmemr[0].size 	= memsize - availmemr[0].start;
201 
202 	/* Map kernel memory linearly. */
203 	for (addr = 0; addr < endkernel; addr += TLB_PG_SIZE)
204 		ppc4xx_tlb_reserve(addr, addr, TLB_PG_SIZE, TLB_EX);
205 
206 	/* Give design-specific code a hint for reserved mappings. */
207 	virtex_machdep_init(roundup(memsize, TLB_PG_SIZE), TLB_PG_SIZE,
208 	    physmemr, availmemr);
209 
210 	lwp0.l_cpu = ci;
211 	lwp0.l_addr = proc0paddr;
212 	memset(lwp0.l_addr, 0, sizeof(*lwp0.l_addr));
213 
214 	curpcb = &proc0paddr->u_pcb;
215 	curpcb->pcb_pm = pmap_kernel();
216 
217 	for (exc = EXC_RSVD; exc <= EXC_LAST; exc += 0x100)
218 		trapcpy(exc, &defaulttrap, (size_t)&defaultsize);
219 
220 	for (i = 0; i < __arraycount(traps); i++)
221 		trapcpy(traps[i].vector, traps[i].addr, (size_t)traps[i].size);
222 
223 	__syncicache((void *)EXC_RST, EXC_LAST - EXC_RST + 0x100);
224 
225 	/* set exception vector base */
226 	mtspr(SPR_EVPR, 0);
227 
228 	/* handle trap instruction as PGM exception */
229 	dbcr0 = mfspr(SPR_DBCR0) & ~DBCR0_TDE;
230 	mtspr(SPR_DBCR0, dbcr0);
231 
232 	install_extint(ext_intr);
233 
234 	/* enable translation */
235 	__asm volatile (
236 	    "	mfmsr %0 	\n"
237 	    "	ori %0,%0,%1 	\n"
238 	    "	mtmsr %0 	\n"
239 	    "   sync 		\n"
240 	    "	isync		\n"
241 	    : : "r"(0), "K"(PSL_IR | PSL_DR | PSL_ME));
242 
243 	/* now that we enabled MMU, we can map console */
244 	consinit();
245 
246 	uvm_setpagesize();
247 	pmap_bootstrap(startkernel, endkernel);
248 
249 #if NKSYMS || defined(DDB) || defined(LKM)
250 	ksyms_init((int)((u_int)endsym - (u_int)startsym), startsym, endsym);
251 #endif
252 #ifdef DDB
253 	if (boothowto & RB_KDB)
254 		Debugger();
255 #endif
256 #ifdef IPKDB
257 	/*
258 	 * Now trap to IPKDB
259 	 */
260 	ipkdb_init();
261 	if (boothowto & RB_KDB)
262 		ipkdb_connect(0);
263 #endif
264 #ifdef KGDB
265 	/*
266 	 * Now trap to KGDB
267 	 */
268 	kgdb_connect(1);
269 #endif /* KGDB */
270 }
271 
272 /*
273  * trapcpy:
274  *
275  * 	Install a trap vector. We cannot use memcpy because the
276  * 	destination may be zero. Borrowed from Explora.
277  */
278 static void
279 trapcpy(int dest, void *src, size_t len)
280 {
281 	uint32_t 		*dest_p = (void *)dest;
282 	uint32_t 		*src_p = src;
283 
284 	while (len > 0) {
285 		*dest_p++ = *src_p++;
286 		len -= sizeof(uint32_t);
287 	}
288 }
289 
290 static void
291 install_extint(void (*handler)(void))
292 {
293 	u_long 			offset = (u_long)handler - (u_long)&extint_call;
294 
295 #ifdef DIAGNOSTIC
296 	if (offset > 0x1ffffff)
297 		panic("install_extint: too far away");
298 #endif
299 
300 	/* Patch branch target in EXC_EXI handler. */
301 	extint_call = (extint_call & 0xfc000003) | offset;
302 
303 	memcpy((void *)EXC_EXI, &extint, (size_t)&extsize);
304 	__syncicache((void *)&extint_call, sizeof(extint_call));
305 	__syncicache((void *)EXC_EXI, (int)&extsize);
306 }
307 
308 /*
309  * Machine dependent startup code.
310  */
311 
312 char msgbuf[MSGBUFSIZE];
313 
314 void
315 cpu_startup(void)
316 {
317 	/* For use by propdb. */
318 	static u_int 	memsize = PHYSMEM * 1024 * 1024;
319 	static u_int 	cpuspeed = CPUFREQ * 1000 * 1000;
320 	prop_number_t 	pn;
321 
322 	vaddr_t 	minaddr, maxaddr;
323 	char 		pbuf[9];
324 
325 	curcpu()->ci_khz = cpuspeed / 1000;
326 
327 	/* Initialize error message buffer. */
328 	initmsgbuf((void *)msgbuf, round_page(MSGBUFSIZE));
329 
330 	printf("%s%s", copyright, version);
331 
332 	format_bytes(pbuf, sizeof(pbuf), ctob(physmem));
333 	printf("total memory = %s\n", pbuf);
334 
335 	minaddr = 0;
336 	/*
337 	 * Allocate a submap for exec arguments.  This map effectively
338 	 * limits the number of processes exec'ing at any time.
339 	 */
340 	exec_map = uvm_km_suballoc(kernel_map, &minaddr, &maxaddr,
341 				 16*NCARGS, VM_MAP_PAGEABLE, false, NULL);
342 
343 	/*
344 	 * Allocate a submap for physio
345 	 */
346 	phys_map = uvm_km_suballoc(kernel_map, &minaddr, &maxaddr,
347 				 VM_PHYS_SIZE, 0, false, NULL);
348 
349 	/*
350 	 * No need to allocate an mbuf cluster submap.  Mbuf clusters
351 	 * are allocated via the pool allocator, and we use direct-mapped
352 	 * pool pages.
353 	 */
354 
355 	format_bytes(pbuf, sizeof(pbuf), ptoa(uvmexp.free));
356 	printf("avail memory = %s\n", pbuf);
357 
358 	/*
359 	 * Set up the board properties database.
360 	 */
361 	board_info_init();
362 
363 	pn = prop_number_create_integer(memsize);
364 	KASSERT(pn != NULL);
365 	if (prop_dictionary_set(board_properties, "mem-size", pn) == false)
366 		panic("setting mem-size");
367 	prop_object_release(pn);
368 
369 	pn = prop_number_create_integer(cpuspeed);
370 	KASSERT(pn != NULL);
371 	if (prop_dictionary_set(board_properties, "processor-frequency",
372 	    pn) == false)
373 		panic("setting processor-frequency");
374 	prop_object_release(pn);
375 
376 	/*
377 	 * Now that we have VM, malloc()s are OK in bus_space.
378 	 */
379 	bus_space_mallocok();
380 	fake_mapiodev = 0;
381 }
382 
383 
384 static void
385 dumpsys(void)
386 {
387 	printf("dumpsys: TBD\n");
388 }
389 
390 /* Hook used by 405 pmap module. */
391 void
392 mem_regions(struct mem_region **mem, struct mem_region **avail)
393 {
394 	*mem 	= physmemr;
395 	*avail 	= availmemr;
396 }
397 
398 /*
399  * Halt or reboot the machine after syncing/dumping according to howto.
400  */
401 void
402 cpu_reboot(int howto, char *what)
403 {
404 	static int syncing;
405 	static char str[256];
406 	char *ap = str, *ap1 = ap;
407 
408 	boothowto = howto;
409 	if (!cold && !(howto & RB_NOSYNC) && !syncing) {
410 		syncing = 1;
411 		vfs_shutdown();		/* sync */
412 		resettodr();		/* set wall clock */
413 	}
414 
415 	splhigh();
416 
417 	if (!cold && (howto & RB_DUMP))
418 		dumpsys();
419 
420 	doshutdownhooks();
421 
422 	if ((howto & RB_POWERDOWN) == RB_POWERDOWN) {
423 		/* Power off here if we know how...*/
424 	}
425 
426 	if (howto & RB_HALT) {
427 		printf("halted\n\n");
428 
429 		goto reboot;	/* XXX for now... */
430 
431 #ifdef DDB
432 		printf("dropping to debugger\n");
433 		while(1)
434 			Debugger();
435 #endif
436 #ifdef KGDB
437 		printf("dropping to kgdb\n");
438 		while(1)
439 			kgdb_connect(1);
440 #endif
441 	}
442 
443 	printf("rebooting\n\n");
444 	if (what && *what) {
445 		if (strlen(what) > sizeof str - 5)
446 			printf("boot string too large, ignored\n");
447 		else {
448 			strcpy(str, what);
449 			ap1 = ap = str + strlen(str);
450 			*ap++ = ' ';
451 		}
452 	}
453 	*ap++ = '-';
454 	if (howto & RB_SINGLE)
455 		*ap++ = 's';
456 	if (howto & RB_KDB)
457 		*ap++ = 'd';
458 	*ap++ = 0;
459 	if (ap[-2] == '-')
460 		*ap1 = 0;
461 
462 	/* flush cache for msgbuf */
463 	__syncicache((void *)msgbuf_paddr, round_page(MSGBUFSIZE));
464 
465  reboot:
466 	ppc4xx_reset();
467 
468 	printf("ppc4xx_reset() failed!\n");
469 #ifdef DDB
470 	while(1)
471 		Debugger();
472 #endif
473 #ifdef KGDB
474 	while(1)
475 		kgdb_connect(1);
476 #else
477 	while (1)
478 		/* nothing */;
479 #endif
480 }
481 
482 int
483 lcsplx(int ipl)
484 {
485 	return spllower(ipl); 	/* XXX */
486 }
487