]>
Commit | Line | Data |
---|---|---|
1 | /* | |
2 | * linux/arch/alpha/kernel/core_lca.c | |
3 | * | |
4 | * Written by David Mosberger (davidm@cs.arizona.edu) with some code | |
5 | * taken from Dave Rusling's (david.rusling@reo.mts.dec.com) 32-bit | |
6 | * bios code. | |
7 | * | |
8 | * Code common to all LCA core logic chips. | |
9 | */ | |
10 | ||
11 | #define __EXTERN_INLINE inline | |
12 | #include <asm/io.h> | |
13 | #include <asm/core_lca.h> | |
14 | #undef __EXTERN_INLINE | |
15 | ||
16 | #include <linux/types.h> | |
17 | #include <linux/pci.h> | |
18 | #include <linux/init.h> | |
19 | #include <linux/tty.h> | |
20 | ||
21 | #include <asm/ptrace.h> | |
22 | #include <asm/irq_regs.h> | |
23 | #include <asm/smp.h> | |
24 | ||
25 | #include "proto.h" | |
26 | #include "pci_impl.h" | |
27 | ||
28 | ||
29 | /* | |
30 | * BIOS32-style PCI interface: | |
31 | */ | |
32 | ||
33 | /* | |
34 | * Machine check reasons. Defined according to PALcode sources | |
35 | * (osf.h and platform.h). | |
36 | */ | |
37 | #define MCHK_K_TPERR 0x0080 | |
38 | #define MCHK_K_TCPERR 0x0082 | |
39 | #define MCHK_K_HERR 0x0084 | |
40 | #define MCHK_K_ECC_C 0x0086 | |
41 | #define MCHK_K_ECC_NC 0x0088 | |
42 | #define MCHK_K_UNKNOWN 0x008A | |
43 | #define MCHK_K_CACKSOFT 0x008C | |
44 | #define MCHK_K_BUGCHECK 0x008E | |
45 | #define MCHK_K_OS_BUGCHECK 0x0090 | |
46 | #define MCHK_K_DCPERR 0x0092 | |
47 | #define MCHK_K_ICPERR 0x0094 | |
48 | ||
49 | ||
50 | /* | |
51 | * Platform-specific machine-check reasons: | |
52 | */ | |
53 | #define MCHK_K_SIO_SERR 0x204 /* all platforms so far */ | |
54 | #define MCHK_K_SIO_IOCHK 0x206 /* all platforms so far */ | |
55 | #define MCHK_K_DCSR 0x208 /* all but Noname */ | |
56 | ||
57 | ||
58 | /* | |
59 | * Given a bus, device, and function number, compute resulting | |
60 | * configuration space address and setup the LCA_IOC_CONF register | |
61 | * accordingly. It is therefore not safe to have concurrent | |
62 | * invocations to configuration space access routines, but there | |
63 | * really shouldn't be any need for this. | |
64 | * | |
65 | * Type 0: | |
66 | * | |
67 | * 3 3|3 3 2 2|2 2 2 2|2 2 2 2|1 1 1 1|1 1 1 1|1 1 | |
68 | * 3 2|1 0 9 8|7 6 5 4|3 2 1 0|9 8 7 6|5 4 3 2|1 0 9 8|7 6 5 4|3 2 1 0 | |
69 | * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | |
70 | * | | | | | | | | | | | | | | | | | | | | | | | |F|F|F|R|R|R|R|R|R|0|0| | |
71 | * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | |
72 | * | |
73 | * 31:11 Device select bit. | |
74 | * 10:8 Function number | |
75 | * 7:2 Register number | |
76 | * | |
77 | * Type 1: | |
78 | * | |
79 | * 3 3|3 3 2 2|2 2 2 2|2 2 2 2|1 1 1 1|1 1 1 1|1 1 | |
80 | * 3 2|1 0 9 8|7 6 5 4|3 2 1 0|9 8 7 6|5 4 3 2|1 0 9 8|7 6 5 4|3 2 1 0 | |
81 | * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | |
82 | * | | | | | | | | | | |B|B|B|B|B|B|B|B|D|D|D|D|D|F|F|F|R|R|R|R|R|R|0|1| | |
83 | * +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ | |
84 | * | |
85 | * 31:24 reserved | |
86 | * 23:16 bus number (8 bits = 128 possible buses) | |
87 | * 15:11 Device number (5 bits) | |
88 | * 10:8 function number | |
89 | * 7:2 register number | |
90 | * | |
91 | * Notes: | |
92 | * The function number selects which function of a multi-function device | |
93 | * (e.g., SCSI and Ethernet). | |
94 | * | |
95 | * The register selects a DWORD (32 bit) register offset. Hence it | |
96 | * doesn't get shifted by 2 bits as we want to "drop" the bottom two | |
97 | * bits. | |
98 | */ | |
99 | ||
100 | static int | |
101 | mk_conf_addr(struct pci_bus *pbus, unsigned int device_fn, int where, | |
102 | unsigned long *pci_addr) | |
103 | { | |
104 | unsigned long addr; | |
105 | u8 bus = pbus->number; | |
106 | ||
107 | if (bus == 0) { | |
108 | int device = device_fn >> 3; | |
109 | int func = device_fn & 0x7; | |
110 | ||
111 | /* Type 0 configuration cycle. */ | |
112 | ||
113 | if (device > 12) { | |
114 | return -1; | |
115 | } | |
116 | ||
117 | *(vulp)LCA_IOC_CONF = 0; | |
118 | addr = (1 << (11 + device)) | (func << 8) | where; | |
119 | } else { | |
120 | /* Type 1 configuration cycle. */ | |
121 | *(vulp)LCA_IOC_CONF = 1; | |
122 | addr = (bus << 16) | (device_fn << 8) | where; | |
123 | } | |
124 | *pci_addr = addr; | |
125 | return 0; | |
126 | } | |
127 | ||
128 | static unsigned int | |
129 | conf_read(unsigned long addr) | |
130 | { | |
131 | unsigned long flags, code, stat0; | |
132 | unsigned int value; | |
133 | ||
134 | local_irq_save(flags); | |
135 | ||
136 | /* Reset status register to avoid losing errors. */ | |
137 | stat0 = *(vulp)LCA_IOC_STAT0; | |
138 | *(vulp)LCA_IOC_STAT0 = stat0; | |
139 | mb(); | |
140 | ||
141 | /* Access configuration space. */ | |
142 | value = *(vuip)addr; | |
143 | draina(); | |
144 | ||
145 | stat0 = *(vulp)LCA_IOC_STAT0; | |
146 | if (stat0 & LCA_IOC_STAT0_ERR) { | |
147 | code = ((stat0 >> LCA_IOC_STAT0_CODE_SHIFT) | |
148 | & LCA_IOC_STAT0_CODE_MASK); | |
149 | if (code != 1) { | |
150 | printk("lca.c:conf_read: got stat0=%lx\n", stat0); | |
151 | } | |
152 | ||
153 | /* Reset error status. */ | |
154 | *(vulp)LCA_IOC_STAT0 = stat0; | |
155 | mb(); | |
156 | ||
157 | /* Reset machine check. */ | |
158 | wrmces(0x7); | |
159 | ||
160 | value = 0xffffffff; | |
161 | } | |
162 | local_irq_restore(flags); | |
163 | return value; | |
164 | } | |
165 | ||
166 | static void | |
167 | conf_write(unsigned long addr, unsigned int value) | |
168 | { | |
169 | unsigned long flags, code, stat0; | |
170 | ||
171 | local_irq_save(flags); /* avoid getting hit by machine check */ | |
172 | ||
173 | /* Reset status register to avoid losing errors. */ | |
174 | stat0 = *(vulp)LCA_IOC_STAT0; | |
175 | *(vulp)LCA_IOC_STAT0 = stat0; | |
176 | mb(); | |
177 | ||
178 | /* Access configuration space. */ | |
179 | *(vuip)addr = value; | |
180 | draina(); | |
181 | ||
182 | stat0 = *(vulp)LCA_IOC_STAT0; | |
183 | if (stat0 & LCA_IOC_STAT0_ERR) { | |
184 | code = ((stat0 >> LCA_IOC_STAT0_CODE_SHIFT) | |
185 | & LCA_IOC_STAT0_CODE_MASK); | |
186 | if (code != 1) { | |
187 | printk("lca.c:conf_write: got stat0=%lx\n", stat0); | |
188 | } | |
189 | ||
190 | /* Reset error status. */ | |
191 | *(vulp)LCA_IOC_STAT0 = stat0; | |
192 | mb(); | |
193 | ||
194 | /* Reset machine check. */ | |
195 | wrmces(0x7); | |
196 | } | |
197 | local_irq_restore(flags); | |
198 | } | |
199 | ||
200 | static int | |
201 | lca_read_config(struct pci_bus *bus, unsigned int devfn, int where, | |
202 | int size, u32 *value) | |
203 | { | |
204 | unsigned long addr, pci_addr; | |
205 | long mask; | |
206 | int shift; | |
207 | ||
208 | if (mk_conf_addr(bus, devfn, where, &pci_addr)) | |
209 | return PCIBIOS_DEVICE_NOT_FOUND; | |
210 | ||
211 | shift = (where & 3) * 8; | |
212 | mask = (size - 1) * 8; | |
213 | addr = (pci_addr << 5) + mask + LCA_CONF; | |
214 | *value = conf_read(addr) >> (shift); | |
215 | return PCIBIOS_SUCCESSFUL; | |
216 | } | |
217 | ||
218 | static int | |
219 | lca_write_config(struct pci_bus *bus, unsigned int devfn, int where, int size, | |
220 | u32 value) | |
221 | { | |
222 | unsigned long addr, pci_addr; | |
223 | long mask; | |
224 | ||
225 | if (mk_conf_addr(bus, devfn, where, &pci_addr)) | |
226 | return PCIBIOS_DEVICE_NOT_FOUND; | |
227 | ||
228 | mask = (size - 1) * 8; | |
229 | addr = (pci_addr << 5) + mask + LCA_CONF; | |
230 | conf_write(addr, value << ((where & 3) * 8)); | |
231 | return PCIBIOS_SUCCESSFUL; | |
232 | } | |
233 | ||
234 | struct pci_ops lca_pci_ops = | |
235 | { | |
236 | .read = lca_read_config, | |
237 | .write = lca_write_config, | |
238 | }; | |
239 | \f | |
240 | void | |
241 | lca_pci_tbi(struct pci_controller *hose, dma_addr_t start, dma_addr_t end) | |
242 | { | |
243 | wmb(); | |
244 | *(vulp)LCA_IOC_TBIA = 0; | |
245 | mb(); | |
246 | } | |
247 | \f | |
248 | void __init | |
249 | lca_init_arch(void) | |
250 | { | |
251 | struct pci_controller *hose; | |
252 | ||
253 | /* | |
254 | * Create our single hose. | |
255 | */ | |
256 | ||
257 | pci_isa_hose = hose = alloc_pci_controller(); | |
258 | hose->io_space = &ioport_resource; | |
259 | hose->mem_space = &iomem_resource; | |
260 | hose->index = 0; | |
261 | ||
262 | hose->sparse_mem_base = LCA_SPARSE_MEM - IDENT_ADDR; | |
263 | hose->dense_mem_base = LCA_DENSE_MEM - IDENT_ADDR; | |
264 | hose->sparse_io_base = LCA_IO - IDENT_ADDR; | |
265 | hose->dense_io_base = 0; | |
266 | ||
267 | /* | |
268 | * Set up the PCI to main memory translation windows. | |
269 | * | |
270 | * Mimic the SRM settings for the direct-map window. | |
271 | * Window 0 is scatter-gather 8MB at 8MB (for isa). | |
272 | * Window 1 is direct access 1GB at 1GB. | |
273 | * | |
274 | * Note that we do not try to save any of the DMA window CSRs | |
275 | * before setting them, since we cannot read those CSRs on LCA. | |
276 | */ | |
277 | hose->sg_isa = iommu_arena_new(hose, 0x00800000, 0x00800000, 0); | |
278 | hose->sg_pci = NULL; | |
279 | __direct_map_base = 0x40000000; | |
280 | __direct_map_size = 0x40000000; | |
281 | ||
282 | *(vulp)LCA_IOC_W_BASE0 = hose->sg_isa->dma_base | (3UL << 32); | |
283 | *(vulp)LCA_IOC_W_MASK0 = (hose->sg_isa->size - 1) & 0xfff00000; | |
284 | *(vulp)LCA_IOC_T_BASE0 = virt_to_phys(hose->sg_isa->ptes); | |
285 | ||
286 | *(vulp)LCA_IOC_W_BASE1 = __direct_map_base | (2UL << 32); | |
287 | *(vulp)LCA_IOC_W_MASK1 = (__direct_map_size - 1) & 0xfff00000; | |
288 | *(vulp)LCA_IOC_T_BASE1 = 0; | |
289 | ||
290 | *(vulp)LCA_IOC_TB_ENA = 0x80; | |
291 | ||
292 | lca_pci_tbi(hose, 0, -1); | |
293 | ||
294 | /* | |
295 | * Disable PCI parity for now. The NCR53c810 chip has | |
296 | * troubles meeting the PCI spec which results in | |
297 | * data parity errors. | |
298 | */ | |
299 | *(vulp)LCA_IOC_PAR_DIS = 1UL<<5; | |
300 | ||
301 | /* | |
302 | * Finally, set up for restoring the correct HAE if using SRM. | |
303 | * Again, since we cannot read many of the CSRs on the LCA, | |
304 | * one of which happens to be the HAE, we save the value that | |
305 | * the SRM will expect... | |
306 | */ | |
307 | if (alpha_using_srm) | |
308 | srm_hae = 0x80000000UL; | |
309 | } | |
310 | ||
311 | /* | |
312 | * Constants used during machine-check handling. I suppose these | |
313 | * could be moved into lca.h but I don't see much reason why anybody | |
314 | * else would want to use them. | |
315 | */ | |
316 | ||
317 | #define ESR_EAV (1UL<< 0) /* error address valid */ | |
318 | #define ESR_CEE (1UL<< 1) /* correctable error */ | |
319 | #define ESR_UEE (1UL<< 2) /* uncorrectable error */ | |
320 | #define ESR_WRE (1UL<< 3) /* write-error */ | |
321 | #define ESR_SOR (1UL<< 4) /* error source */ | |
322 | #define ESR_CTE (1UL<< 7) /* cache-tag error */ | |
323 | #define ESR_MSE (1UL<< 9) /* multiple soft errors */ | |
324 | #define ESR_MHE (1UL<<10) /* multiple hard errors */ | |
325 | #define ESR_NXM (1UL<<12) /* non-existent memory */ | |
326 | ||
327 | #define IOC_ERR ( 1<<4) /* ioc logs an error */ | |
328 | #define IOC_CMD_SHIFT 0 | |
329 | #define IOC_CMD (0xf<<IOC_CMD_SHIFT) | |
330 | #define IOC_CODE_SHIFT 8 | |
331 | #define IOC_CODE (0xf<<IOC_CODE_SHIFT) | |
332 | #define IOC_LOST ( 1<<5) | |
333 | #define IOC_P_NBR ((__u32) ~((1<<13) - 1)) | |
334 | ||
335 | static void | |
336 | mem_error(unsigned long esr, unsigned long ear) | |
337 | { | |
338 | printk(" %s %s error to %s occurred at address %x\n", | |
339 | ((esr & ESR_CEE) ? "Correctable" : | |
340 | (esr & ESR_UEE) ? "Uncorrectable" : "A"), | |
341 | (esr & ESR_WRE) ? "write" : "read", | |
342 | (esr & ESR_SOR) ? "memory" : "b-cache", | |
343 | (unsigned) (ear & 0x1ffffff8)); | |
344 | if (esr & ESR_CTE) { | |
345 | printk(" A b-cache tag parity error was detected.\n"); | |
346 | } | |
347 | if (esr & ESR_MSE) { | |
348 | printk(" Several other correctable errors occurred.\n"); | |
349 | } | |
350 | if (esr & ESR_MHE) { | |
351 | printk(" Several other uncorrectable errors occurred.\n"); | |
352 | } | |
353 | if (esr & ESR_NXM) { | |
354 | printk(" Attempted to access non-existent memory.\n"); | |
355 | } | |
356 | } | |
357 | ||
358 | static void | |
359 | ioc_error(__u32 stat0, __u32 stat1) | |
360 | { | |
361 | static const char * const pci_cmd[] = { | |
362 | "Interrupt Acknowledge", "Special", "I/O Read", "I/O Write", | |
363 | "Rsvd 1", "Rsvd 2", "Memory Read", "Memory Write", "Rsvd3", | |
364 | "Rsvd4", "Configuration Read", "Configuration Write", | |
365 | "Memory Read Multiple", "Dual Address", "Memory Read Line", | |
366 | "Memory Write and Invalidate" | |
367 | }; | |
368 | static const char * const err_name[] = { | |
369 | "exceeded retry limit", "no device", "bad data parity", | |
370 | "target abort", "bad address parity", "page table read error", | |
371 | "invalid page", "data error" | |
372 | }; | |
373 | unsigned code = (stat0 & IOC_CODE) >> IOC_CODE_SHIFT; | |
374 | unsigned cmd = (stat0 & IOC_CMD) >> IOC_CMD_SHIFT; | |
375 | ||
376 | printk(" %s initiated PCI %s cycle to address %x" | |
377 | " failed due to %s.\n", | |
378 | code > 3 ? "PCI" : "CPU", pci_cmd[cmd], stat1, err_name[code]); | |
379 | ||
380 | if (code == 5 || code == 6) { | |
381 | printk(" (Error occurred at PCI memory address %x.)\n", | |
382 | (stat0 & ~IOC_P_NBR)); | |
383 | } | |
384 | if (stat0 & IOC_LOST) { | |
385 | printk(" Other PCI errors occurred simultaneously.\n"); | |
386 | } | |
387 | } | |
388 | ||
389 | void | |
390 | lca_machine_check(unsigned long vector, unsigned long la_ptr) | |
391 | { | |
392 | const char * reason; | |
393 | union el_lca el; | |
394 | ||
395 | el.c = (struct el_common *) la_ptr; | |
396 | ||
397 | wrmces(rdmces()); /* reset machine check pending flag */ | |
398 | ||
399 | printk(KERN_CRIT "LCA machine check: vector=%#lx pc=%#lx code=%#x\n", | |
400 | vector, get_irq_regs()->pc, (unsigned int) el.c->code); | |
401 | ||
402 | /* | |
403 | * The first quadword after the common header always seems to | |
404 | * be the machine check reason---don't know why this isn't | |
405 | * part of the common header instead. In the case of a long | |
406 | * logout frame, the upper 32 bits is the machine check | |
407 | * revision level, which we ignore for now. | |
408 | */ | |
409 | switch ((unsigned int) el.c->code) { | |
410 | case MCHK_K_TPERR: reason = "tag parity error"; break; | |
411 | case MCHK_K_TCPERR: reason = "tag control parity error"; break; | |
412 | case MCHK_K_HERR: reason = "access to non-existent memory"; break; | |
413 | case MCHK_K_ECC_C: reason = "correctable ECC error"; break; | |
414 | case MCHK_K_ECC_NC: reason = "non-correctable ECC error"; break; | |
415 | case MCHK_K_CACKSOFT: reason = "MCHK_K_CACKSOFT"; break; | |
416 | case MCHK_K_BUGCHECK: reason = "illegal exception in PAL mode"; break; | |
417 | case MCHK_K_OS_BUGCHECK: reason = "callsys in kernel mode"; break; | |
418 | case MCHK_K_DCPERR: reason = "d-cache parity error"; break; | |
419 | case MCHK_K_ICPERR: reason = "i-cache parity error"; break; | |
420 | case MCHK_K_SIO_SERR: reason = "SIO SERR occurred on PCI bus"; break; | |
421 | case MCHK_K_SIO_IOCHK: reason = "SIO IOCHK occurred on ISA bus"; break; | |
422 | case MCHK_K_DCSR: reason = "MCHK_K_DCSR"; break; | |
423 | case MCHK_K_UNKNOWN: | |
424 | default: reason = "unknown"; break; | |
425 | } | |
426 | ||
427 | switch (el.c->size) { | |
428 | case sizeof(struct el_lca_mcheck_short): | |
429 | printk(KERN_CRIT | |
430 | " Reason: %s (short frame%s, dc_stat=%#lx):\n", | |
431 | reason, el.c->retry ? ", retryable" : "", | |
432 | el.s->dc_stat); | |
433 | if (el.s->esr & ESR_EAV) { | |
434 | mem_error(el.s->esr, el.s->ear); | |
435 | } | |
436 | if (el.s->ioc_stat0 & IOC_ERR) { | |
437 | ioc_error(el.s->ioc_stat0, el.s->ioc_stat1); | |
438 | } | |
439 | break; | |
440 | ||
441 | case sizeof(struct el_lca_mcheck_long): | |
442 | printk(KERN_CRIT " Reason: %s (long frame%s):\n", | |
443 | reason, el.c->retry ? ", retryable" : ""); | |
444 | printk(KERN_CRIT | |
445 | " reason: %#lx exc_addr: %#lx dc_stat: %#lx\n", | |
446 | el.l->pt[0], el.l->exc_addr, el.l->dc_stat); | |
447 | printk(KERN_CRIT " car: %#lx\n", el.l->car); | |
448 | if (el.l->esr & ESR_EAV) { | |
449 | mem_error(el.l->esr, el.l->ear); | |
450 | } | |
451 | if (el.l->ioc_stat0 & IOC_ERR) { | |
452 | ioc_error(el.l->ioc_stat0, el.l->ioc_stat1); | |
453 | } | |
454 | break; | |
455 | ||
456 | default: | |
457 | printk(KERN_CRIT " Unknown errorlog size %d\n", el.c->size); | |
458 | } | |
459 | ||
460 | /* Dump the logout area to give all info. */ | |
461 | #ifdef CONFIG_VERBOSE_MCHECK | |
462 | if (alpha_verbose_mcheck > 1) { | |
463 | unsigned long * ptr = (unsigned long *) la_ptr; | |
464 | long i; | |
465 | for (i = 0; i < el.c->size / sizeof(long); i += 2) { | |
466 | printk(KERN_CRIT " +%8lx %016lx %016lx\n", | |
467 | i*sizeof(long), ptr[i], ptr[i+1]); | |
468 | } | |
469 | } | |
470 | #endif /* CONFIG_VERBOSE_MCHECK */ | |
471 | } | |
472 | ||
473 | /* | |
474 | * The following routines are needed to support the SPEED changing | |
475 | * necessary to successfully manage the thermal problem on the AlphaBook1. | |
476 | */ | |
477 | ||
478 | void | |
479 | lca_clock_print(void) | |
480 | { | |
481 | long pmr_reg; | |
482 | ||
483 | pmr_reg = LCA_READ_PMR; | |
484 | ||
485 | printk("Status of clock control:\n"); | |
486 | printk("\tPrimary clock divisor\t0x%lx\n", LCA_GET_PRIMARY(pmr_reg)); | |
487 | printk("\tOverride clock divisor\t0x%lx\n", LCA_GET_OVERRIDE(pmr_reg)); | |
488 | printk("\tInterrupt override is %s\n", | |
489 | (pmr_reg & LCA_PMR_INTO) ? "on" : "off"); | |
490 | printk("\tDMA override is %s\n", | |
491 | (pmr_reg & LCA_PMR_DMAO) ? "on" : "off"); | |
492 | ||
493 | } | |
494 | ||
495 | int | |
496 | lca_get_clock(void) | |
497 | { | |
498 | long pmr_reg; | |
499 | ||
500 | pmr_reg = LCA_READ_PMR; | |
501 | return(LCA_GET_PRIMARY(pmr_reg)); | |
502 | ||
503 | } | |
504 | ||
505 | void | |
506 | lca_clock_fiddle(int divisor) | |
507 | { | |
508 | long pmr_reg; | |
509 | ||
510 | pmr_reg = LCA_READ_PMR; | |
511 | LCA_SET_PRIMARY_CLOCK(pmr_reg, divisor); | |
512 | /* lca_norm_clock = divisor; */ | |
513 | LCA_WRITE_PMR(pmr_reg); | |
514 | mb(); | |
515 | } |