Merge git://git.kernel.org/pub/scm/linux/kernel/git/mingo/linux-2.6-sched
[linux-2.6] / arch / powerpc / platforms / pseries / eeh.c
1 /*
2  * eeh.c
3  * Copyright IBM Corporation 2001, 2005, 2006
4  * Copyright Dave Engebretsen & Todd Inglett 2001
5  * Copyright Linas Vepstas 2005, 2006
6  *
7  * This program is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 2 of the License, or
10  * (at your option) any later version.
11  *
12  * This program is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
20  *
21  * Please address comments and feedback to Linas Vepstas <linas@austin.ibm.com>
22  */
23
24 #include <linux/delay.h>
25 #include <linux/init.h>
26 #include <linux/list.h>
27 #include <linux/pci.h>
28 #include <linux/proc_fs.h>
29 #include <linux/rbtree.h>
30 #include <linux/seq_file.h>
31 #include <linux/spinlock.h>
32 #include <asm/atomic.h>
33 #include <asm/eeh.h>
34 #include <asm/eeh_event.h>
35 #include <asm/io.h>
36 #include <asm/machdep.h>
37 #include <asm/ppc-pci.h>
38 #include <asm/rtas.h>
39
40 #undef DEBUG
41
42 /** Overview:
43  *  EEH, or "Extended Error Handling" is a PCI bridge technology for
44  *  dealing with PCI bus errors that can't be dealt with within the
45  *  usual PCI framework, except by check-stopping the CPU.  Systems
46  *  that are designed for high-availability/reliability cannot afford
47  *  to crash due to a "mere" PCI error, thus the need for EEH.
48  *  An EEH-capable bridge operates by converting a detected error
49  *  into a "slot freeze", taking the PCI adapter off-line, making
50  *  the slot behave, from the OS'es point of view, as if the slot
51  *  were "empty": all reads return 0xff's and all writes are silently
52  *  ignored.  EEH slot isolation events can be triggered by parity
53  *  errors on the address or data busses (e.g. during posted writes),
54  *  which in turn might be caused by low voltage on the bus, dust,
55  *  vibration, humidity, radioactivity or plain-old failed hardware.
56  *
57  *  Note, however, that one of the leading causes of EEH slot
58  *  freeze events are buggy device drivers, buggy device microcode,
59  *  or buggy device hardware.  This is because any attempt by the
60  *  device to bus-master data to a memory address that is not
61  *  assigned to the device will trigger a slot freeze.   (The idea
62  *  is to prevent devices-gone-wild from corrupting system memory).
63  *  Buggy hardware/drivers will have a miserable time co-existing
64  *  with EEH.
65  *
66  *  Ideally, a PCI device driver, when suspecting that an isolation
67  *  event has occured (e.g. by reading 0xff's), will then ask EEH
68  *  whether this is the case, and then take appropriate steps to
69  *  reset the PCI slot, the PCI device, and then resume operations.
70  *  However, until that day,  the checking is done here, with the
71  *  eeh_check_failure() routine embedded in the MMIO macros.  If
72  *  the slot is found to be isolated, an "EEH Event" is synthesized
73  *  and sent out for processing.
74  */
75
76 /* If a device driver keeps reading an MMIO register in an interrupt
77  * handler after a slot isolation event has occurred, we assume it
78  * is broken and panic.  This sets the threshold for how many read
79  * attempts we allow before panicking.
80  */
81 #define EEH_MAX_FAILS   2100000
82
83 /* Time to wait for a PCI slot to report status, in milliseconds */
84 #define PCI_BUS_RESET_WAIT_MSEC (60*1000)
85
86 /* RTAS tokens */
87 static int ibm_set_eeh_option;
88 static int ibm_set_slot_reset;
89 static int ibm_read_slot_reset_state;
90 static int ibm_read_slot_reset_state2;
91 static int ibm_slot_error_detail;
92 static int ibm_get_config_addr_info;
93 static int ibm_get_config_addr_info2;
94 static int ibm_configure_bridge;
95
96 int eeh_subsystem_enabled;
97 EXPORT_SYMBOL(eeh_subsystem_enabled);
98
99 /* Lock to avoid races due to multiple reports of an error */
100 static DEFINE_SPINLOCK(confirm_error_lock);
101
102 /* Buffer for reporting slot-error-detail rtas calls. Its here
103  * in BSS, and not dynamically alloced, so that it ends up in
104  * RMO where RTAS can access it.
105  */
106 static unsigned char slot_errbuf[RTAS_ERROR_LOG_MAX];
107 static DEFINE_SPINLOCK(slot_errbuf_lock);
108 static int eeh_error_buf_size;
109
110 /* Buffer for reporting pci register dumps. Its here in BSS, and
111  * not dynamically alloced, so that it ends up in RMO where RTAS
112  * can access it.
113  */
114 #define EEH_PCI_REGS_LOG_LEN 4096
115 static unsigned char pci_regs_buf[EEH_PCI_REGS_LOG_LEN];
116
117 /* System monitoring statistics */
118 static unsigned long no_device;
119 static unsigned long no_dn;
120 static unsigned long no_cfg_addr;
121 static unsigned long ignored_check;
122 static unsigned long total_mmio_ffs;
123 static unsigned long false_positives;
124 static unsigned long slot_resets;
125
126 #define IS_BRIDGE(class_code) (((class_code)<<16) == PCI_BASE_CLASS_BRIDGE)
127
128 /* --------------------------------------------------------------- */
129 /* Below lies the EEH event infrastructure */
130
131 static void rtas_slot_error_detail(struct pci_dn *pdn, int severity,
132                                    char *driver_log, size_t loglen)
133 {
134         int config_addr;
135         unsigned long flags;
136         int rc;
137
138         /* Log the error with the rtas logger */
139         spin_lock_irqsave(&slot_errbuf_lock, flags);
140         memset(slot_errbuf, 0, eeh_error_buf_size);
141
142         /* Use PE configuration address, if present */
143         config_addr = pdn->eeh_config_addr;
144         if (pdn->eeh_pe_config_addr)
145                 config_addr = pdn->eeh_pe_config_addr;
146
147         rc = rtas_call(ibm_slot_error_detail,
148                        8, 1, NULL, config_addr,
149                        BUID_HI(pdn->phb->buid),
150                        BUID_LO(pdn->phb->buid),
151                        virt_to_phys(driver_log), loglen,
152                        virt_to_phys(slot_errbuf),
153                        eeh_error_buf_size,
154                        severity);
155
156         if (rc == 0)
157                 log_error(slot_errbuf, ERR_TYPE_RTAS_LOG, 0);
158         spin_unlock_irqrestore(&slot_errbuf_lock, flags);
159 }
160
161 /**
162  * gather_pci_data - copy assorted PCI config space registers to buff
163  * @pdn: device to report data for
164  * @buf: point to buffer in which to log
165  * @len: amount of room in buffer
166  *
167  * This routine captures assorted PCI configuration space data,
168  * and puts them into a buffer for RTAS error logging.
169  */
170 static size_t gather_pci_data(struct pci_dn *pdn, char * buf, size_t len)
171 {
172         struct device_node *dn;
173         struct pci_dev *dev = pdn->pcidev;
174         u32 cfg;
175         int cap, i;
176         int n = 0;
177
178         n += scnprintf(buf+n, len-n, "%s\n", pdn->node->full_name);
179         printk(KERN_WARNING "EEH: of node=%s\n", pdn->node->full_name);
180
181         rtas_read_config(pdn, PCI_VENDOR_ID, 4, &cfg);
182         n += scnprintf(buf+n, len-n, "dev/vend:%08x\n", cfg);
183         printk(KERN_WARNING "EEH: PCI device/vendor: %08x\n", cfg);
184
185         rtas_read_config(pdn, PCI_COMMAND, 4, &cfg);
186         n += scnprintf(buf+n, len-n, "cmd/stat:%x\n", cfg);
187         printk(KERN_WARNING "EEH: PCI cmd/status register: %08x\n", cfg);
188
189         if (!dev) {
190                 printk(KERN_WARNING "EEH: no PCI device for this of node\n");
191                 return n;
192         }
193
194         /* Gather bridge-specific registers */
195         if (dev->class >> 16 == PCI_BASE_CLASS_BRIDGE) {
196                 rtas_read_config(pdn, PCI_SEC_STATUS, 2, &cfg);
197                 n += scnprintf(buf+n, len-n, "sec stat:%x\n", cfg);
198                 printk(KERN_WARNING "EEH: Bridge secondary status: %04x\n", cfg);
199
200                 rtas_read_config(pdn, PCI_BRIDGE_CONTROL, 2, &cfg);
201                 n += scnprintf(buf+n, len-n, "brdg ctl:%x\n", cfg);
202                 printk(KERN_WARNING "EEH: Bridge control: %04x\n", cfg);
203         }
204
205         /* Dump out the PCI-X command and status regs */
206         cap = pci_find_capability(dev, PCI_CAP_ID_PCIX);
207         if (cap) {
208                 rtas_read_config(pdn, cap, 4, &cfg);
209                 n += scnprintf(buf+n, len-n, "pcix-cmd:%x\n", cfg);
210                 printk(KERN_WARNING "EEH: PCI-X cmd: %08x\n", cfg);
211
212                 rtas_read_config(pdn, cap+4, 4, &cfg);
213                 n += scnprintf(buf+n, len-n, "pcix-stat:%x\n", cfg);
214                 printk(KERN_WARNING "EEH: PCI-X status: %08x\n", cfg);
215         }
216
217         /* If PCI-E capable, dump PCI-E cap 10, and the AER */
218         cap = pci_find_capability(dev, PCI_CAP_ID_EXP);
219         if (cap) {
220                 n += scnprintf(buf+n, len-n, "pci-e cap10:\n");
221                 printk(KERN_WARNING
222                        "EEH: PCI-E capabilities and status follow:\n");
223
224                 for (i=0; i<=8; i++) {
225                         rtas_read_config(pdn, cap+4*i, 4, &cfg);
226                         n += scnprintf(buf+n, len-n, "%02x:%x\n", 4*i, cfg);
227                         printk(KERN_WARNING "EEH: PCI-E %02x: %08x\n", i, cfg);
228                 }
229
230                 cap = pci_find_ext_capability(dev, PCI_EXT_CAP_ID_ERR);
231                 if (cap) {
232                         n += scnprintf(buf+n, len-n, "pci-e AER:\n");
233                         printk(KERN_WARNING
234                                "EEH: PCI-E AER capability register set follows:\n");
235
236                         for (i=0; i<14; i++) {
237                                 rtas_read_config(pdn, cap+4*i, 4, &cfg);
238                                 n += scnprintf(buf+n, len-n, "%02x:%x\n", 4*i, cfg);
239                                 printk(KERN_WARNING "EEH: PCI-E AER %02x: %08x\n", i, cfg);
240                         }
241                 }
242         }
243
244         /* Gather status on devices under the bridge */
245         if (dev->class >> 16 == PCI_BASE_CLASS_BRIDGE) {
246                 dn = pdn->node->child;
247                 while (dn) {
248                         pdn = PCI_DN(dn);
249                         if (pdn)
250                                 n += gather_pci_data(pdn, buf+n, len-n);
251                         dn = dn->sibling;
252                 }
253         }
254
255         return n;
256 }
257
258 void eeh_slot_error_detail(struct pci_dn *pdn, int severity)
259 {
260         size_t loglen = 0;
261         pci_regs_buf[0] = 0;
262
263         rtas_pci_enable(pdn, EEH_THAW_MMIO);
264         loglen = gather_pci_data(pdn, pci_regs_buf, EEH_PCI_REGS_LOG_LEN);
265
266         rtas_slot_error_detail(pdn, severity, pci_regs_buf, loglen);
267 }
268
269 /**
270  * read_slot_reset_state - Read the reset state of a device node's slot
271  * @dn: device node to read
272  * @rets: array to return results in
273  */
274 static int read_slot_reset_state(struct pci_dn *pdn, int rets[])
275 {
276         int token, outputs;
277         int config_addr;
278
279         if (ibm_read_slot_reset_state2 != RTAS_UNKNOWN_SERVICE) {
280                 token = ibm_read_slot_reset_state2;
281                 outputs = 4;
282         } else {
283                 token = ibm_read_slot_reset_state;
284                 rets[2] = 0; /* fake PE Unavailable info */
285                 outputs = 3;
286         }
287
288         /* Use PE configuration address, if present */
289         config_addr = pdn->eeh_config_addr;
290         if (pdn->eeh_pe_config_addr)
291                 config_addr = pdn->eeh_pe_config_addr;
292
293         return rtas_call(token, 3, outputs, rets, config_addr,
294                          BUID_HI(pdn->phb->buid), BUID_LO(pdn->phb->buid));
295 }
296
297 /**
298  * eeh_wait_for_slot_status - returns error status of slot
299  * @pdn pci device node
300  * @max_wait_msecs maximum number to millisecs to wait
301  *
302  * Return negative value if a permanent error, else return
303  * Partition Endpoint (PE) status value.
304  *
305  * If @max_wait_msecs is positive, then this routine will
306  * sleep until a valid status can be obtained, or until
307  * the max allowed wait time is exceeded, in which case
308  * a -2 is returned.
309  */
310 int
311 eeh_wait_for_slot_status(struct pci_dn *pdn, int max_wait_msecs)
312 {
313         int rc;
314         int rets[3];
315         int mwait;
316
317         while (1) {
318                 rc = read_slot_reset_state(pdn, rets);
319                 if (rc) return rc;
320                 if (rets[1] == 0) return -1;  /* EEH is not supported */
321
322                 if (rets[0] != 5) return rets[0]; /* return actual status */
323
324                 if (rets[2] == 0) return -1; /* permanently unavailable */
325
326                 if (max_wait_msecs <= 0) break;
327
328                 mwait = rets[2];
329                 if (mwait <= 0) {
330                         printk (KERN_WARNING
331                                 "EEH: Firmware returned bad wait value=%d\n", mwait);
332                         mwait = 1000;
333                 } else if (mwait > 300*1000) {
334                         printk (KERN_WARNING
335                                 "EEH: Firmware is taking too long, time=%d\n", mwait);
336                         mwait = 300*1000;
337                 }
338                 max_wait_msecs -= mwait;
339                 msleep (mwait);
340         }
341
342         printk(KERN_WARNING "EEH: Timed out waiting for slot status\n");
343         return -2;
344 }
345
346 /**
347  * eeh_token_to_phys - convert EEH address token to phys address
348  * @token i/o token, should be address in the form 0xA....
349  */
350 static inline unsigned long eeh_token_to_phys(unsigned long token)
351 {
352         pte_t *ptep;
353         unsigned long pa;
354
355         ptep = find_linux_pte(init_mm.pgd, token);
356         if (!ptep)
357                 return token;
358         pa = pte_pfn(*ptep) << PAGE_SHIFT;
359
360         return pa | (token & (PAGE_SIZE-1));
361 }
362
363 /** 
364  * Return the "partitionable endpoint" (pe) under which this device lies
365  */
366 struct device_node * find_device_pe(struct device_node *dn)
367 {
368         while ((dn->parent) && PCI_DN(dn->parent) &&
369               (PCI_DN(dn->parent)->eeh_mode & EEH_MODE_SUPPORTED)) {
370                 dn = dn->parent;
371         }
372         return dn;
373 }
374
375 /** Mark all devices that are peers of this device as failed.
376  *  Mark the device driver too, so that it can see the failure
377  *  immediately; this is critical, since some drivers poll
378  *  status registers in interrupts ... If a driver is polling,
379  *  and the slot is frozen, then the driver can deadlock in
380  *  an interrupt context, which is bad.
381  */
382
383 static void __eeh_mark_slot (struct device_node *dn, int mode_flag)
384 {
385         while (dn) {
386                 if (PCI_DN(dn)) {
387                         /* Mark the pci device driver too */
388                         struct pci_dev *dev = PCI_DN(dn)->pcidev;
389
390                         PCI_DN(dn)->eeh_mode |= mode_flag;
391
392                         if (dev && dev->driver)
393                                 dev->error_state = pci_channel_io_frozen;
394
395                         if (dn->child)
396                                 __eeh_mark_slot (dn->child, mode_flag);
397                 }
398                 dn = dn->sibling;
399         }
400 }
401
402 void eeh_mark_slot (struct device_node *dn, int mode_flag)
403 {
404         struct pci_dev *dev;
405         dn = find_device_pe (dn);
406
407         /* Back up one, since config addrs might be shared */
408         if (!pcibios_find_pci_bus(dn) && PCI_DN(dn->parent))
409                 dn = dn->parent;
410
411         PCI_DN(dn)->eeh_mode |= mode_flag;
412
413         /* Mark the pci device too */
414         dev = PCI_DN(dn)->pcidev;
415         if (dev)
416                 dev->error_state = pci_channel_io_frozen;
417
418         __eeh_mark_slot (dn->child, mode_flag);
419 }
420
421 static void __eeh_clear_slot (struct device_node *dn, int mode_flag)
422 {
423         while (dn) {
424                 if (PCI_DN(dn)) {
425                         PCI_DN(dn)->eeh_mode &= ~mode_flag;
426                         PCI_DN(dn)->eeh_check_count = 0;
427                         if (dn->child)
428                                 __eeh_clear_slot (dn->child, mode_flag);
429                 }
430                 dn = dn->sibling;
431         }
432 }
433
434 void eeh_clear_slot (struct device_node *dn, int mode_flag)
435 {
436         unsigned long flags;
437         spin_lock_irqsave(&confirm_error_lock, flags);
438         
439         dn = find_device_pe (dn);
440         
441         /* Back up one, since config addrs might be shared */
442         if (!pcibios_find_pci_bus(dn) && PCI_DN(dn->parent))
443                 dn = dn->parent;
444
445         PCI_DN(dn)->eeh_mode &= ~mode_flag;
446         PCI_DN(dn)->eeh_check_count = 0;
447         __eeh_clear_slot (dn->child, mode_flag);
448         spin_unlock_irqrestore(&confirm_error_lock, flags);
449 }
450
451 /**
452  * eeh_dn_check_failure - check if all 1's data is due to EEH slot freeze
453  * @dn device node
454  * @dev pci device, if known
455  *
456  * Check for an EEH failure for the given device node.  Call this
457  * routine if the result of a read was all 0xff's and you want to
458  * find out if this is due to an EEH slot freeze.  This routine
459  * will query firmware for the EEH status.
460  *
461  * Returns 0 if there has not been an EEH error; otherwise returns
462  * a non-zero value and queues up a slot isolation event notification.
463  *
464  * It is safe to call this routine in an interrupt context.
465  */
466 int eeh_dn_check_failure(struct device_node *dn, struct pci_dev *dev)
467 {
468         int ret;
469         int rets[3];
470         unsigned long flags;
471         struct pci_dn *pdn;
472         int rc = 0;
473
474         total_mmio_ffs++;
475
476         if (!eeh_subsystem_enabled)
477                 return 0;
478
479         if (!dn) {
480                 no_dn++;
481                 return 0;
482         }
483         pdn = PCI_DN(dn);
484
485         /* Access to IO BARs might get this far and still not want checking. */
486         if (!(pdn->eeh_mode & EEH_MODE_SUPPORTED) ||
487             pdn->eeh_mode & EEH_MODE_NOCHECK) {
488                 ignored_check++;
489 #ifdef DEBUG
490                 printk ("EEH:ignored check (%x) for %s %s\n", 
491                         pdn->eeh_mode, pci_name (dev), dn->full_name);
492 #endif
493                 return 0;
494         }
495
496         if (!pdn->eeh_config_addr && !pdn->eeh_pe_config_addr) {
497                 no_cfg_addr++;
498                 return 0;
499         }
500
501         /* If we already have a pending isolation event for this
502          * slot, we know it's bad already, we don't need to check.
503          * Do this checking under a lock; as multiple PCI devices
504          * in one slot might report errors simultaneously, and we
505          * only want one error recovery routine running.
506          */
507         spin_lock_irqsave(&confirm_error_lock, flags);
508         rc = 1;
509         if (pdn->eeh_mode & EEH_MODE_ISOLATED) {
510                 pdn->eeh_check_count ++;
511                 if (pdn->eeh_check_count >= EEH_MAX_FAILS) {
512                         printk (KERN_ERR "EEH: Device driver ignored %d bad reads, panicing\n",
513                                 pdn->eeh_check_count);
514                         dump_stack();
515                         msleep(5000);
516                         
517                         /* re-read the slot reset state */
518                         if (read_slot_reset_state(pdn, rets) != 0)
519                                 rets[0] = -1;   /* reset state unknown */
520
521                         /* If we are here, then we hit an infinite loop. Stop. */
522                         panic("EEH: MMIO halt (%d) on device:%s\n", rets[0], pci_name(dev));
523                 }
524                 goto dn_unlock;
525         }
526
527         /*
528          * Now test for an EEH failure.  This is VERY expensive.
529          * Note that the eeh_config_addr may be a parent device
530          * in the case of a device behind a bridge, or it may be
531          * function zero of a multi-function device.
532          * In any case they must share a common PHB.
533          */
534         ret = read_slot_reset_state(pdn, rets);
535
536         /* If the call to firmware failed, punt */
537         if (ret != 0) {
538                 printk(KERN_WARNING "EEH: read_slot_reset_state() failed; rc=%d dn=%s\n",
539                        ret, dn->full_name);
540                 false_positives++;
541                 pdn->eeh_false_positives ++;
542                 rc = 0;
543                 goto dn_unlock;
544         }
545
546         /* Note that config-io to empty slots may fail;
547          * they are empty when they don't have children. */
548         if ((rets[0] == 5) && (dn->child == NULL)) {
549                 false_positives++;
550                 pdn->eeh_false_positives ++;
551                 rc = 0;
552                 goto dn_unlock;
553         }
554
555         /* If EEH is not supported on this device, punt. */
556         if (rets[1] != 1) {
557                 printk(KERN_WARNING "EEH: event on unsupported device, rc=%d dn=%s\n",
558                        ret, dn->full_name);
559                 false_positives++;
560                 pdn->eeh_false_positives ++;
561                 rc = 0;
562                 goto dn_unlock;
563         }
564
565         /* If not the kind of error we know about, punt. */
566         if (rets[0] != 1 && rets[0] != 2 && rets[0] != 4 && rets[0] != 5) {
567                 false_positives++;
568                 pdn->eeh_false_positives ++;
569                 rc = 0;
570                 goto dn_unlock;
571         }
572
573         slot_resets++;
574  
575         /* Avoid repeated reports of this failure, including problems
576          * with other functions on this device, and functions under
577          * bridges. */
578         eeh_mark_slot (dn, EEH_MODE_ISOLATED);
579         spin_unlock_irqrestore(&confirm_error_lock, flags);
580
581         eeh_send_failure_event (dn, dev);
582
583         /* Most EEH events are due to device driver bugs.  Having
584          * a stack trace will help the device-driver authors figure
585          * out what happened.  So print that out. */
586         dump_stack();
587         return 1;
588
589 dn_unlock:
590         spin_unlock_irqrestore(&confirm_error_lock, flags);
591         return rc;
592 }
593
594 EXPORT_SYMBOL_GPL(eeh_dn_check_failure);
595
596 /**
597  * eeh_check_failure - check if all 1's data is due to EEH slot freeze
598  * @token i/o token, should be address in the form 0xA....
599  * @val value, should be all 1's (XXX why do we need this arg??)
600  *
601  * Check for an EEH failure at the given token address.  Call this
602  * routine if the result of a read was all 0xff's and you want to
603  * find out if this is due to an EEH slot freeze event.  This routine
604  * will query firmware for the EEH status.
605  *
606  * Note this routine is safe to call in an interrupt context.
607  */
608 unsigned long eeh_check_failure(const volatile void __iomem *token, unsigned long val)
609 {
610         unsigned long addr;
611         struct pci_dev *dev;
612         struct device_node *dn;
613
614         /* Finding the phys addr + pci device; this is pretty quick. */
615         addr = eeh_token_to_phys((unsigned long __force) token);
616         dev = pci_get_device_by_addr(addr);
617         if (!dev) {
618                 no_device++;
619                 return val;
620         }
621
622         dn = pci_device_to_OF_node(dev);
623         eeh_dn_check_failure (dn, dev);
624
625         pci_dev_put(dev);
626         return val;
627 }
628
629 EXPORT_SYMBOL(eeh_check_failure);
630
631 /* ------------------------------------------------------------- */
632 /* The code below deals with error recovery */
633
634 /**
635  * rtas_pci_enable - enable MMIO or DMA transfers for this slot
636  * @pdn pci device node
637  */
638
639 int
640 rtas_pci_enable(struct pci_dn *pdn, int function)
641 {
642         int config_addr;
643         int rc;
644
645         /* Use PE configuration address, if present */
646         config_addr = pdn->eeh_config_addr;
647         if (pdn->eeh_pe_config_addr)
648                 config_addr = pdn->eeh_pe_config_addr;
649
650         rc = rtas_call(ibm_set_eeh_option, 4, 1, NULL,
651                        config_addr,
652                        BUID_HI(pdn->phb->buid),
653                        BUID_LO(pdn->phb->buid),
654                             function);
655
656         if (rc)
657                 printk(KERN_WARNING "EEH: Unexpected state change %d, err=%d dn=%s\n",
658                         function, rc, pdn->node->full_name);
659
660         rc = eeh_wait_for_slot_status (pdn, PCI_BUS_RESET_WAIT_MSEC);
661         if ((rc == 4) && (function == EEH_THAW_MMIO))
662                 return 0;
663
664         return rc;
665 }
666
667 /**
668  * rtas_pci_slot_reset - raises/lowers the pci #RST line
669  * @pdn pci device node
670  * @state: 1/0 to raise/lower the #RST
671  *
672  * Clear the EEH-frozen condition on a slot.  This routine
673  * asserts the PCI #RST line if the 'state' argument is '1',
674  * and drops the #RST line if 'state is '0'.  This routine is
675  * safe to call in an interrupt context.
676  *
677  */
678
679 static void
680 rtas_pci_slot_reset(struct pci_dn *pdn, int state)
681 {
682         int config_addr;
683         int rc;
684
685         BUG_ON (pdn==NULL); 
686
687         if (!pdn->phb) {
688                 printk (KERN_WARNING "EEH: in slot reset, device node %s has no phb\n",
689                         pdn->node->full_name);
690                 return;
691         }
692
693         /* Use PE configuration address, if present */
694         config_addr = pdn->eeh_config_addr;
695         if (pdn->eeh_pe_config_addr)
696                 config_addr = pdn->eeh_pe_config_addr;
697
698         rc = rtas_call(ibm_set_slot_reset,4,1, NULL,
699                        config_addr,
700                        BUID_HI(pdn->phb->buid),
701                        BUID_LO(pdn->phb->buid),
702                        state);
703         if (rc)
704                 printk (KERN_WARNING "EEH: Unable to reset the failed slot,"
705                         " (%d) #RST=%d dn=%s\n",
706                         rc, state, pdn->node->full_name);
707 }
708
709 /**
710  * pcibios_set_pcie_slot_reset - Set PCI-E reset state
711  * @dev:        pci device struct
712  * @state:      reset state to enter
713  *
714  * Return value:
715  *      0 if success
716  **/
717 int pcibios_set_pcie_reset_state(struct pci_dev *dev, enum pcie_reset_state state)
718 {
719         struct device_node *dn = pci_device_to_OF_node(dev);
720         struct pci_dn *pdn = PCI_DN(dn);
721
722         switch (state) {
723         case pcie_deassert_reset:
724                 rtas_pci_slot_reset(pdn, 0);
725                 break;
726         case pcie_hot_reset:
727                 rtas_pci_slot_reset(pdn, 1);
728                 break;
729         case pcie_warm_reset:
730                 rtas_pci_slot_reset(pdn, 3);
731                 break;
732         default:
733                 return -EINVAL;
734         };
735
736         return 0;
737 }
738
739 /**
740  * rtas_set_slot_reset -- assert the pci #RST line for 1/4 second
741  * @pdn: pci device node to be reset.
742  *
743  *  Return 0 if success, else a non-zero value.
744  */
745
746 static void __rtas_set_slot_reset(struct pci_dn *pdn)
747 {
748         rtas_pci_slot_reset (pdn, 1);
749
750         /* The PCI bus requires that the reset be held high for at least
751          * a 100 milliseconds. We wait a bit longer 'just in case'.  */
752
753 #define PCI_BUS_RST_HOLD_TIME_MSEC 250
754         msleep (PCI_BUS_RST_HOLD_TIME_MSEC);
755         
756         /* We might get hit with another EEH freeze as soon as the 
757          * pci slot reset line is dropped. Make sure we don't miss
758          * these, and clear the flag now. */
759         eeh_clear_slot (pdn->node, EEH_MODE_ISOLATED);
760
761         rtas_pci_slot_reset (pdn, 0);
762
763         /* After a PCI slot has been reset, the PCI Express spec requires
764          * a 1.5 second idle time for the bus to stabilize, before starting
765          * up traffic. */
766 #define PCI_BUS_SETTLE_TIME_MSEC 1800
767         msleep (PCI_BUS_SETTLE_TIME_MSEC);
768 }
769
770 int rtas_set_slot_reset(struct pci_dn *pdn)
771 {
772         int i, rc;
773
774         /* Take three shots at resetting the bus */
775         for (i=0; i<3; i++) {
776                 __rtas_set_slot_reset(pdn);
777
778                 rc = eeh_wait_for_slot_status(pdn, PCI_BUS_RESET_WAIT_MSEC);
779                 if (rc == 0)
780                         return 0;
781
782                 if (rc < 0) {
783                         printk(KERN_ERR "EEH: unrecoverable slot failure %s\n",
784                                pdn->node->full_name);
785                         return -1;
786                 }
787                 printk(KERN_ERR "EEH: bus reset %d failed on slot %s, rc=%d\n",
788                        i+1, pdn->node->full_name, rc);
789         }
790
791         return -1;
792 }
793
794 /* ------------------------------------------------------- */
795 /** Save and restore of PCI BARs
796  *
797  * Although firmware will set up BARs during boot, it doesn't
798  * set up device BAR's after a device reset, although it will,
799  * if requested, set up bridge configuration. Thus, we need to
800  * configure the PCI devices ourselves.  
801  */
802
803 /**
804  * __restore_bars - Restore the Base Address Registers
805  * @pdn: pci device node
806  *
807  * Loads the PCI configuration space base address registers,
808  * the expansion ROM base address, the latency timer, and etc.
809  * from the saved values in the device node.
810  */
811 static inline void __restore_bars (struct pci_dn *pdn)
812 {
813         int i;
814
815         if (NULL==pdn->phb) return;
816         for (i=4; i<10; i++) {
817                 rtas_write_config(pdn, i*4, 4, pdn->config_space[i]);
818         }
819
820         /* 12 == Expansion ROM Address */
821         rtas_write_config(pdn, 12*4, 4, pdn->config_space[12]);
822
823 #define BYTE_SWAP(OFF) (8*((OFF)/4)+3-(OFF))
824 #define SAVED_BYTE(OFF) (((u8 *)(pdn->config_space))[BYTE_SWAP(OFF)])
825
826         rtas_write_config (pdn, PCI_CACHE_LINE_SIZE, 1,
827                     SAVED_BYTE(PCI_CACHE_LINE_SIZE));
828
829         rtas_write_config (pdn, PCI_LATENCY_TIMER, 1,
830                     SAVED_BYTE(PCI_LATENCY_TIMER));
831
832         /* max latency, min grant, interrupt pin and line */
833         rtas_write_config(pdn, 15*4, 4, pdn->config_space[15]);
834 }
835
836 /**
837  * eeh_restore_bars - restore the PCI config space info
838  *
839  * This routine performs a recursive walk to the children
840  * of this device as well.
841  */
842 void eeh_restore_bars(struct pci_dn *pdn)
843 {
844         struct device_node *dn;
845         if (!pdn) 
846                 return;
847         
848         if ((pdn->eeh_mode & EEH_MODE_SUPPORTED) && !IS_BRIDGE(pdn->class_code))
849                 __restore_bars (pdn);
850
851         dn = pdn->node->child;
852         while (dn) {
853                 eeh_restore_bars (PCI_DN(dn));
854                 dn = dn->sibling;
855         }
856 }
857
858 /**
859  * eeh_save_bars - save device bars
860  *
861  * Save the values of the device bars. Unlike the restore
862  * routine, this routine is *not* recursive. This is because
863  * PCI devices are added individuallly; but, for the restore,
864  * an entire slot is reset at a time.
865  */
866 static void eeh_save_bars(struct pci_dn *pdn)
867 {
868         int i;
869
870         if (!pdn )
871                 return;
872         
873         for (i = 0; i < 16; i++)
874                 rtas_read_config(pdn, i * 4, 4, &pdn->config_space[i]);
875 }
876
877 void
878 rtas_configure_bridge(struct pci_dn *pdn)
879 {
880         int config_addr;
881         int rc;
882
883         /* Use PE configuration address, if present */
884         config_addr = pdn->eeh_config_addr;
885         if (pdn->eeh_pe_config_addr)
886                 config_addr = pdn->eeh_pe_config_addr;
887
888         rc = rtas_call(ibm_configure_bridge,3,1, NULL,
889                        config_addr,
890                        BUID_HI(pdn->phb->buid),
891                        BUID_LO(pdn->phb->buid));
892         if (rc) {
893                 printk (KERN_WARNING "EEH: Unable to configure device bridge (%d) for %s\n",
894                         rc, pdn->node->full_name);
895         }
896 }
897
898 /* ------------------------------------------------------------- */
899 /* The code below deals with enabling EEH for devices during  the
900  * early boot sequence.  EEH must be enabled before any PCI probing
901  * can be done.
902  */
903
904 #define EEH_ENABLE 1
905
906 struct eeh_early_enable_info {
907         unsigned int buid_hi;
908         unsigned int buid_lo;
909 };
910
911 static int get_pe_addr (int config_addr,
912                         struct eeh_early_enable_info *info)
913 {
914         unsigned int rets[3];
915         int ret;
916
917         /* Use latest config-addr token on power6 */
918         if (ibm_get_config_addr_info2 != RTAS_UNKNOWN_SERVICE) {
919                 /* Make sure we have a PE in hand */
920                 ret = rtas_call (ibm_get_config_addr_info2, 4, 2, rets,
921                         config_addr, info->buid_hi, info->buid_lo, 1);
922                 if (ret || (rets[0]==0))
923                         return 0;
924
925                 ret = rtas_call (ibm_get_config_addr_info2, 4, 2, rets,
926                         config_addr, info->buid_hi, info->buid_lo, 0);
927                 if (ret)
928                         return 0;
929                 return rets[0];
930         }
931
932         /* Use older config-addr token on power5 */
933         if (ibm_get_config_addr_info != RTAS_UNKNOWN_SERVICE) {
934                 ret = rtas_call (ibm_get_config_addr_info, 4, 2, rets,
935                         config_addr, info->buid_hi, info->buid_lo, 0);
936                 if (ret)
937                         return 0;
938                 return rets[0];
939         }
940         return 0;
941 }
942
943 /* Enable eeh for the given device node. */
944 static void *early_enable_eeh(struct device_node *dn, void *data)
945 {
946         unsigned int rets[3];
947         struct eeh_early_enable_info *info = data;
948         int ret;
949         const char *status = of_get_property(dn, "status", NULL);
950         const u32 *class_code = of_get_property(dn, "class-code", NULL);
951         const u32 *vendor_id = of_get_property(dn, "vendor-id", NULL);
952         const u32 *device_id = of_get_property(dn, "device-id", NULL);
953         const u32 *regs;
954         int enable;
955         struct pci_dn *pdn = PCI_DN(dn);
956
957         pdn->class_code = 0;
958         pdn->eeh_mode = 0;
959         pdn->eeh_check_count = 0;
960         pdn->eeh_freeze_count = 0;
961         pdn->eeh_false_positives = 0;
962
963         if (status && strncmp(status, "ok", 2) != 0)
964                 return NULL;    /* ignore devices with bad status */
965
966         /* Ignore bad nodes. */
967         if (!class_code || !vendor_id || !device_id)
968                 return NULL;
969
970         /* There is nothing to check on PCI to ISA bridges */
971         if (dn->type && !strcmp(dn->type, "isa")) {
972                 pdn->eeh_mode |= EEH_MODE_NOCHECK;
973                 return NULL;
974         }
975         pdn->class_code = *class_code;
976
977         /* Ok... see if this device supports EEH.  Some do, some don't,
978          * and the only way to find out is to check each and every one. */
979         regs = of_get_property(dn, "reg", NULL);
980         if (regs) {
981                 /* First register entry is addr (00BBSS00)  */
982                 /* Try to enable eeh */
983                 ret = rtas_call(ibm_set_eeh_option, 4, 1, NULL,
984                                 regs[0], info->buid_hi, info->buid_lo,
985                                 EEH_ENABLE);
986
987                 enable = 0;
988                 if (ret == 0) {
989                         pdn->eeh_config_addr = regs[0];
990
991                         /* If the newer, better, ibm,get-config-addr-info is supported, 
992                          * then use that instead. */
993                         pdn->eeh_pe_config_addr = get_pe_addr(pdn->eeh_config_addr, info);
994
995                         /* Some older systems (Power4) allow the
996                          * ibm,set-eeh-option call to succeed even on nodes
997                          * where EEH is not supported. Verify support
998                          * explicitly. */
999                         ret = read_slot_reset_state(pdn, rets);
1000                         if ((ret == 0) && (rets[1] == 1))
1001                                 enable = 1;
1002                 }
1003
1004                 if (enable) {
1005                         eeh_subsystem_enabled = 1;
1006                         pdn->eeh_mode |= EEH_MODE_SUPPORTED;
1007
1008 #ifdef DEBUG
1009                         printk(KERN_DEBUG "EEH: %s: eeh enabled, config=%x pe_config=%x\n",
1010                                dn->full_name, pdn->eeh_config_addr, pdn->eeh_pe_config_addr);
1011 #endif
1012                 } else {
1013
1014                         /* This device doesn't support EEH, but it may have an
1015                          * EEH parent, in which case we mark it as supported. */
1016                         if (dn->parent && PCI_DN(dn->parent)
1017                             && (PCI_DN(dn->parent)->eeh_mode & EEH_MODE_SUPPORTED)) {
1018                                 /* Parent supports EEH. */
1019                                 pdn->eeh_mode |= EEH_MODE_SUPPORTED;
1020                                 pdn->eeh_config_addr = PCI_DN(dn->parent)->eeh_config_addr;
1021                                 return NULL;
1022                         }
1023                 }
1024         } else {
1025                 printk(KERN_WARNING "EEH: %s: unable to get reg property.\n",
1026                        dn->full_name);
1027         }
1028
1029         eeh_save_bars(pdn);
1030         return NULL;
1031 }
1032
1033 /*
1034  * Initialize EEH by trying to enable it for all of the adapters in the system.
1035  * As a side effect we can determine here if eeh is supported at all.
1036  * Note that we leave EEH on so failed config cycles won't cause a machine
1037  * check.  If a user turns off EEH for a particular adapter they are really
1038  * telling Linux to ignore errors.  Some hardware (e.g. POWER5) won't
1039  * grant access to a slot if EEH isn't enabled, and so we always enable
1040  * EEH for all slots/all devices.
1041  *
1042  * The eeh-force-off option disables EEH checking globally, for all slots.
1043  * Even if force-off is set, the EEH hardware is still enabled, so that
1044  * newer systems can boot.
1045  */
1046 void __init eeh_init(void)
1047 {
1048         struct device_node *phb, *np;
1049         struct eeh_early_enable_info info;
1050
1051         spin_lock_init(&confirm_error_lock);
1052         spin_lock_init(&slot_errbuf_lock);
1053
1054         np = of_find_node_by_path("/rtas");
1055         if (np == NULL)
1056                 return;
1057
1058         ibm_set_eeh_option = rtas_token("ibm,set-eeh-option");
1059         ibm_set_slot_reset = rtas_token("ibm,set-slot-reset");
1060         ibm_read_slot_reset_state2 = rtas_token("ibm,read-slot-reset-state2");
1061         ibm_read_slot_reset_state = rtas_token("ibm,read-slot-reset-state");
1062         ibm_slot_error_detail = rtas_token("ibm,slot-error-detail");
1063         ibm_get_config_addr_info = rtas_token("ibm,get-config-addr-info");
1064         ibm_get_config_addr_info2 = rtas_token("ibm,get-config-addr-info2");
1065         ibm_configure_bridge = rtas_token ("ibm,configure-bridge");
1066
1067         if (ibm_set_eeh_option == RTAS_UNKNOWN_SERVICE)
1068                 return;
1069
1070         eeh_error_buf_size = rtas_token("rtas-error-log-max");
1071         if (eeh_error_buf_size == RTAS_UNKNOWN_SERVICE) {
1072                 eeh_error_buf_size = 1024;
1073         }
1074         if (eeh_error_buf_size > RTAS_ERROR_LOG_MAX) {
1075                 printk(KERN_WARNING "EEH: rtas-error-log-max is bigger than allocated "
1076                       "buffer ! (%d vs %d)", eeh_error_buf_size, RTAS_ERROR_LOG_MAX);
1077                 eeh_error_buf_size = RTAS_ERROR_LOG_MAX;
1078         }
1079
1080         /* Enable EEH for all adapters.  Note that eeh requires buid's */
1081         for (phb = of_find_node_by_name(NULL, "pci"); phb;
1082              phb = of_find_node_by_name(phb, "pci")) {
1083                 unsigned long buid;
1084
1085                 buid = get_phb_buid(phb);
1086                 if (buid == 0 || PCI_DN(phb) == NULL)
1087                         continue;
1088
1089                 info.buid_lo = BUID_LO(buid);
1090                 info.buid_hi = BUID_HI(buid);
1091                 traverse_pci_devices(phb, early_enable_eeh, &info);
1092         }
1093
1094         if (eeh_subsystem_enabled)
1095                 printk(KERN_INFO "EEH: PCI Enhanced I/O Error Handling Enabled\n");
1096         else
1097                 printk(KERN_WARNING "EEH: No capable adapters found\n");
1098 }
1099
1100 /**
1101  * eeh_add_device_early - enable EEH for the indicated device_node
1102  * @dn: device node for which to set up EEH
1103  *
1104  * This routine must be used to perform EEH initialization for PCI
1105  * devices that were added after system boot (e.g. hotplug, dlpar).
1106  * This routine must be called before any i/o is performed to the
1107  * adapter (inluding any config-space i/o).
1108  * Whether this actually enables EEH or not for this device depends
1109  * on the CEC architecture, type of the device, on earlier boot
1110  * command-line arguments & etc.
1111  */
1112 static void eeh_add_device_early(struct device_node *dn)
1113 {
1114         struct pci_controller *phb;
1115         struct eeh_early_enable_info info;
1116
1117         if (!dn || !PCI_DN(dn))
1118                 return;
1119         phb = PCI_DN(dn)->phb;
1120
1121         /* USB Bus children of PCI devices will not have BUID's */
1122         if (NULL == phb || 0 == phb->buid)
1123                 return;
1124
1125         info.buid_hi = BUID_HI(phb->buid);
1126         info.buid_lo = BUID_LO(phb->buid);
1127         early_enable_eeh(dn, &info);
1128 }
1129
1130 void eeh_add_device_tree_early(struct device_node *dn)
1131 {
1132         struct device_node *sib;
1133         for (sib = dn->child; sib; sib = sib->sibling)
1134                 eeh_add_device_tree_early(sib);
1135         eeh_add_device_early(dn);
1136 }
1137 EXPORT_SYMBOL_GPL(eeh_add_device_tree_early);
1138
1139 /**
1140  * eeh_add_device_late - perform EEH initialization for the indicated pci device
1141  * @dev: pci device for which to set up EEH
1142  *
1143  * This routine must be used to complete EEH initialization for PCI
1144  * devices that were added after system boot (e.g. hotplug, dlpar).
1145  */
1146 static void eeh_add_device_late(struct pci_dev *dev)
1147 {
1148         struct device_node *dn;
1149         struct pci_dn *pdn;
1150
1151         if (!dev || !eeh_subsystem_enabled)
1152                 return;
1153
1154 #ifdef DEBUG
1155         printk(KERN_DEBUG "EEH: adding device %s\n", pci_name(dev));
1156 #endif
1157
1158         pci_dev_get (dev);
1159         dn = pci_device_to_OF_node(dev);
1160         pdn = PCI_DN(dn);
1161         pdn->pcidev = dev;
1162
1163         pci_addr_cache_insert_device(dev);
1164         eeh_sysfs_add_device(dev);
1165 }
1166
1167 void eeh_add_device_tree_late(struct pci_bus *bus)
1168 {
1169         struct pci_dev *dev;
1170
1171         list_for_each_entry(dev, &bus->devices, bus_list) {
1172                 eeh_add_device_late(dev);
1173                 if (dev->hdr_type == PCI_HEADER_TYPE_BRIDGE) {
1174                         struct pci_bus *subbus = dev->subordinate;
1175                         if (subbus)
1176                                 eeh_add_device_tree_late(subbus);
1177                 }
1178         }
1179 }
1180 EXPORT_SYMBOL_GPL(eeh_add_device_tree_late);
1181
1182 /**
1183  * eeh_remove_device - undo EEH setup for the indicated pci device
1184  * @dev: pci device to be removed
1185  *
1186  * This routine should be called when a device is removed from
1187  * a running system (e.g. by hotplug or dlpar).  It unregisters
1188  * the PCI device from the EEH subsystem.  I/O errors affecting
1189  * this device will no longer be detected after this call; thus,
1190  * i/o errors affecting this slot may leave this device unusable.
1191  */
1192 static void eeh_remove_device(struct pci_dev *dev)
1193 {
1194         struct device_node *dn;
1195         if (!dev || !eeh_subsystem_enabled)
1196                 return;
1197
1198         /* Unregister the device with the EEH/PCI address search system */
1199 #ifdef DEBUG
1200         printk(KERN_DEBUG "EEH: remove device %s\n", pci_name(dev));
1201 #endif
1202         pci_addr_cache_remove_device(dev);
1203         eeh_sysfs_remove_device(dev);
1204
1205         dn = pci_device_to_OF_node(dev);
1206         if (PCI_DN(dn)->pcidev) {
1207                 PCI_DN(dn)->pcidev = NULL;
1208                 pci_dev_put (dev);
1209         }
1210 }
1211
1212 void eeh_remove_bus_device(struct pci_dev *dev)
1213 {
1214         struct pci_bus *bus = dev->subordinate;
1215         struct pci_dev *child, *tmp;
1216
1217         eeh_remove_device(dev);
1218
1219         if (bus && dev->hdr_type == PCI_HEADER_TYPE_BRIDGE) {
1220                 list_for_each_entry_safe(child, tmp, &bus->devices, bus_list)
1221                          eeh_remove_bus_device(child);
1222         }
1223 }
1224 EXPORT_SYMBOL_GPL(eeh_remove_bus_device);
1225
1226 static int proc_eeh_show(struct seq_file *m, void *v)
1227 {
1228         if (0 == eeh_subsystem_enabled) {
1229                 seq_printf(m, "EEH Subsystem is globally disabled\n");
1230                 seq_printf(m, "eeh_total_mmio_ffs=%ld\n", total_mmio_ffs);
1231         } else {
1232                 seq_printf(m, "EEH Subsystem is enabled\n");
1233                 seq_printf(m,
1234                                 "no device=%ld\n"
1235                                 "no device node=%ld\n"
1236                                 "no config address=%ld\n"
1237                                 "check not wanted=%ld\n"
1238                                 "eeh_total_mmio_ffs=%ld\n"
1239                                 "eeh_false_positives=%ld\n"
1240                                 "eeh_slot_resets=%ld\n",
1241                                 no_device, no_dn, no_cfg_addr, 
1242                                 ignored_check, total_mmio_ffs, 
1243                                 false_positives,
1244                                 slot_resets);
1245         }
1246
1247         return 0;
1248 }
1249
1250 static int proc_eeh_open(struct inode *inode, struct file *file)
1251 {
1252         return single_open(file, proc_eeh_show, NULL);
1253 }
1254
1255 static const struct file_operations proc_eeh_operations = {
1256         .open      = proc_eeh_open,
1257         .read      = seq_read,
1258         .llseek    = seq_lseek,
1259         .release   = single_release,
1260 };
1261
1262 static int __init eeh_init_proc(void)
1263 {
1264         struct proc_dir_entry *e;
1265
1266         if (machine_is(pseries)) {
1267                 e = create_proc_entry("ppc64/eeh", 0, NULL);
1268                 if (e)
1269                         e->proc_fops = &proc_eeh_operations;
1270         }
1271
1272         return 0;
1273 }
1274 __initcall(eeh_init_proc);