Pull bugzilla-8798 into release branch
[linux-2.6] / drivers / pci / hotplug / ibmphp_hpc.c
1 /*
2  * IBM Hot Plug Controller Driver
3  *
4  * Written By: Jyoti Shah, IBM Corporation
5  *
6  * Copyright (C) 2001-2003 IBM Corp.
7  *
8  * All rights reserved.
9  *
10  * This program is free software; you can redistribute it and/or modify
11  * it under the terms of the GNU General Public License as published by
12  * the Free Software Foundation; either version 2 of the License, or (at
13  * your option) any later version.
14  *
15  * This program is distributed in the hope that it will be useful, but
16  * WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, GOOD TITLE or
18  * NON INFRINGEMENT.  See the GNU General Public License for more
19  * details.
20  *
21  * You should have received a copy of the GNU General Public License
22  * along with this program; if not, write to the Free Software
23  * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
24  *
25  * Send feedback to <gregkh@us.ibm.com>
26  *                  <jshah@us.ibm.com>
27  *
28  */
29
30 #include <linux/wait.h>
31 #include <linux/time.h>
32 #include <linux/delay.h>
33 #include <linux/module.h>
34 #include <linux/pci.h>
35 #include <linux/init.h>
36 #include <linux/mutex.h>
37 #include <linux/sched.h>
38
39 #include "ibmphp.h"
40
41 static int to_debug = 0;
42 #define debug_polling(fmt, arg...)      do { if (to_debug) debug (fmt, arg); } while (0)
43
44 //----------------------------------------------------------------------------
45 // timeout values
46 //----------------------------------------------------------------------------
47 #define CMD_COMPLETE_TOUT_SEC   60      // give HPC 60 sec to finish cmd
48 #define HPC_CTLR_WORKING_TOUT   60      // give HPC 60 sec to finish cmd
49 #define HPC_GETACCESS_TIMEOUT   60      // seconds
50 #define POLL_INTERVAL_SEC       2       // poll HPC every 2 seconds
51 #define POLL_LATCH_CNT          5       // poll latch 5 times, then poll slots
52
53 //----------------------------------------------------------------------------
54 // Winnipeg Architected Register Offsets
55 //----------------------------------------------------------------------------
56 #define WPG_I2CMBUFL_OFFSET     0x08    // I2C Message Buffer Low
57 #define WPG_I2CMOSUP_OFFSET     0x10    // I2C Master Operation Setup Reg
58 #define WPG_I2CMCNTL_OFFSET     0x20    // I2C Master Control Register
59 #define WPG_I2CPARM_OFFSET      0x40    // I2C Parameter Register
60 #define WPG_I2CSTAT_OFFSET      0x70    // I2C Status Register
61
62 //----------------------------------------------------------------------------
63 // Winnipeg Store Type commands (Add this commands to the register offset)
64 //----------------------------------------------------------------------------
65 #define WPG_I2C_AND             0x1000  // I2C AND operation
66 #define WPG_I2C_OR              0x2000  // I2C OR operation
67
68 //----------------------------------------------------------------------------
69 // Command set for I2C Master Operation Setup Register
70 //----------------------------------------------------------------------------
71 #define WPG_READATADDR_MASK     0x00010000      // read,bytes,I2C shifted,index
72 #define WPG_WRITEATADDR_MASK    0x40010000      // write,bytes,I2C shifted,index
73 #define WPG_READDIRECT_MASK     0x10010000
74 #define WPG_WRITEDIRECT_MASK    0x60010000
75
76
77 //----------------------------------------------------------------------------
78 // bit masks for I2C Master Control Register
79 //----------------------------------------------------------------------------
80 #define WPG_I2CMCNTL_STARTOP_MASK       0x00000002      // Start the Operation
81
82 //----------------------------------------------------------------------------
83 //
84 //----------------------------------------------------------------------------
85 #define WPG_I2C_IOREMAP_SIZE    0x2044  // size of linear address interval
86
87 //----------------------------------------------------------------------------
88 // command index
89 //----------------------------------------------------------------------------
90 #define WPG_1ST_SLOT_INDEX      0x01    // index - 1st slot for ctlr
91 #define WPG_CTLR_INDEX          0x0F    // index - ctlr
92 #define WPG_1ST_EXTSLOT_INDEX   0x10    // index - 1st ext slot for ctlr
93 #define WPG_1ST_BUS_INDEX       0x1F    // index - 1st bus for ctlr
94
95 //----------------------------------------------------------------------------
96 // macro utilities
97 //----------------------------------------------------------------------------
98 // if bits 20,22,25,26,27,29,30 are OFF return 1
99 #define HPC_I2CSTATUS_CHECK(s)  ((u8)((s & 0x00000A76) ? 0 : 1))
100
101 //----------------------------------------------------------------------------
102 // global variables
103 //----------------------------------------------------------------------------
104 static int ibmphp_shutdown;
105 static int tid_poll;
106 static struct mutex sem_hpcaccess;      // lock access to HPC
107 static struct semaphore semOperations;  // lock all operations and
108                                         // access to data structures
109 static struct semaphore sem_exit;       // make sure polling thread goes away
110 //----------------------------------------------------------------------------
111 // local function prototypes
112 //----------------------------------------------------------------------------
113 static u8 i2c_ctrl_read (struct controller *, void __iomem *, u8);
114 static u8 i2c_ctrl_write (struct controller *, void __iomem *, u8, u8);
115 static u8 hpc_writecmdtoindex (u8, u8);
116 static u8 hpc_readcmdtoindex (u8, u8);
117 static void get_hpc_access (void);
118 static void free_hpc_access (void);
119 static void poll_hpc (void);
120 static int process_changeinstatus (struct slot *, struct slot *);
121 static int process_changeinlatch (u8, u8, struct controller *);
122 static int hpc_poll_thread (void *);
123 static int hpc_wait_ctlr_notworking (int, struct controller *, void __iomem *, u8 *);
124 //----------------------------------------------------------------------------
125
126
127 /*----------------------------------------------------------------------
128 * Name:    ibmphp_hpc_initvars
129 *
130 * Action:  initialize semaphores and variables
131 *---------------------------------------------------------------------*/
132 void __init ibmphp_hpc_initvars (void)
133 {
134         debug ("%s - Entry\n", __FUNCTION__);
135
136         mutex_init(&sem_hpcaccess);
137         init_MUTEX (&semOperations);
138         init_MUTEX_LOCKED (&sem_exit);
139         to_debug = 0;
140         ibmphp_shutdown = 0;
141         tid_poll = 0;
142
143         debug ("%s - Exit\n", __FUNCTION__);
144 }
145
146 /*----------------------------------------------------------------------
147 * Name:    i2c_ctrl_read
148 *
149 * Action:  read from HPC over I2C
150 *
151 *---------------------------------------------------------------------*/
152 static u8 i2c_ctrl_read (struct controller *ctlr_ptr, void __iomem *WPGBbar, u8 index)
153 {
154         u8 status;
155         int i;
156         void __iomem *wpg_addr; // base addr + offset
157         unsigned long wpg_data; // data to/from WPG LOHI format
158         unsigned long ultemp;
159         unsigned long data;     // actual data HILO format
160
161         debug_polling ("%s - Entry WPGBbar[%p] index[%x] \n", __FUNCTION__, WPGBbar, index);
162
163         //--------------------------------------------------------------------
164         // READ - step 1
165         // read at address, byte length, I2C address (shifted), index
166         // or read direct, byte length, index
167         if (ctlr_ptr->ctlr_type == 0x02) {
168                 data = WPG_READATADDR_MASK;
169                 // fill in I2C address
170                 ultemp = (unsigned long)ctlr_ptr->u.wpeg_ctlr.i2c_addr;
171                 ultemp = ultemp >> 1;
172                 data |= (ultemp << 8);
173
174                 // fill in index
175                 data |= (unsigned long)index;
176         } else if (ctlr_ptr->ctlr_type == 0x04) {
177                 data = WPG_READDIRECT_MASK;
178
179                 // fill in index
180                 ultemp = (unsigned long)index;
181                 ultemp = ultemp << 8;
182                 data |= ultemp;
183         } else {
184                 err ("this controller type is not supported \n");
185                 return HPC_ERROR;
186         }
187
188         wpg_data = swab32 (data);       // swap data before writing
189         wpg_addr = WPGBbar + WPG_I2CMOSUP_OFFSET;
190         writel (wpg_data, wpg_addr);
191
192         //--------------------------------------------------------------------
193         // READ - step 2 : clear the message buffer
194         data = 0x00000000;
195         wpg_data = swab32 (data);
196         wpg_addr = WPGBbar + WPG_I2CMBUFL_OFFSET;
197         writel (wpg_data, wpg_addr);
198
199         //--------------------------------------------------------------------
200         // READ - step 3 : issue start operation, I2C master control bit 30:ON
201         //                 2020 : [20] OR operation at [20] offset 0x20
202         data = WPG_I2CMCNTL_STARTOP_MASK;
203         wpg_data = swab32 (data);
204         wpg_addr = WPGBbar + WPG_I2CMCNTL_OFFSET + WPG_I2C_OR;
205         writel (wpg_data, wpg_addr);
206
207         //--------------------------------------------------------------------
208         // READ - step 4 : wait until start operation bit clears
209         i = CMD_COMPLETE_TOUT_SEC;
210         while (i) {
211                 msleep(10);
212                 wpg_addr = WPGBbar + WPG_I2CMCNTL_OFFSET;
213                 wpg_data = readl (wpg_addr);
214                 data = swab32 (wpg_data);
215                 if (!(data & WPG_I2CMCNTL_STARTOP_MASK))
216                         break;
217                 i--;
218         }
219         if (i == 0) {
220                 debug ("%s - Error : WPG timeout\n", __FUNCTION__);
221                 return HPC_ERROR;
222         }
223         //--------------------------------------------------------------------
224         // READ - step 5 : read I2C status register
225         i = CMD_COMPLETE_TOUT_SEC;
226         while (i) {
227                 msleep(10);
228                 wpg_addr = WPGBbar + WPG_I2CSTAT_OFFSET;
229                 wpg_data = readl (wpg_addr);
230                 data = swab32 (wpg_data);
231                 if (HPC_I2CSTATUS_CHECK (data))
232                         break;
233                 i--;
234         }
235         if (i == 0) {
236                 debug ("ctrl_read - Exit Error:I2C timeout\n");
237                 return HPC_ERROR;
238         }
239
240         //--------------------------------------------------------------------
241         // READ - step 6 : get DATA
242         wpg_addr = WPGBbar + WPG_I2CMBUFL_OFFSET;
243         wpg_data = readl (wpg_addr);
244         data = swab32 (wpg_data);
245
246         status = (u8) data;
247
248         debug_polling ("%s - Exit index[%x] status[%x]\n", __FUNCTION__, index, status);
249
250         return (status);
251 }
252
253 /*----------------------------------------------------------------------
254 * Name:    i2c_ctrl_write
255 *
256 * Action:  write to HPC over I2C
257 *
258 * Return   0 or error codes
259 *---------------------------------------------------------------------*/
260 static u8 i2c_ctrl_write (struct controller *ctlr_ptr, void __iomem *WPGBbar, u8 index, u8 cmd)
261 {
262         u8 rc;
263         void __iomem *wpg_addr; // base addr + offset
264         unsigned long wpg_data; // data to/from WPG LOHI format 
265         unsigned long ultemp;
266         unsigned long data;     // actual data HILO format
267         int i;
268
269         debug_polling ("%s - Entry WPGBbar[%p] index[%x] cmd[%x]\n", __FUNCTION__, WPGBbar, index, cmd);
270
271         rc = 0;
272         //--------------------------------------------------------------------
273         // WRITE - step 1
274         // write at address, byte length, I2C address (shifted), index
275         // or write direct, byte length, index
276         data = 0x00000000;
277
278         if (ctlr_ptr->ctlr_type == 0x02) {
279                 data = WPG_WRITEATADDR_MASK;
280                 // fill in I2C address
281                 ultemp = (unsigned long)ctlr_ptr->u.wpeg_ctlr.i2c_addr;
282                 ultemp = ultemp >> 1;
283                 data |= (ultemp << 8);
284
285                 // fill in index
286                 data |= (unsigned long)index;
287         } else if (ctlr_ptr->ctlr_type == 0x04) {
288                 data = WPG_WRITEDIRECT_MASK;
289
290                 // fill in index
291                 ultemp = (unsigned long)index;
292                 ultemp = ultemp << 8;
293                 data |= ultemp;
294         } else {
295                 err ("this controller type is not supported \n");
296                 return HPC_ERROR;
297         }
298
299         wpg_data = swab32 (data);       // swap data before writing
300         wpg_addr = WPGBbar + WPG_I2CMOSUP_OFFSET;
301         writel (wpg_data, wpg_addr);
302
303         //--------------------------------------------------------------------
304         // WRITE - step 2 : clear the message buffer
305         data = 0x00000000 | (unsigned long)cmd;
306         wpg_data = swab32 (data);
307         wpg_addr = WPGBbar + WPG_I2CMBUFL_OFFSET;
308         writel (wpg_data, wpg_addr);
309
310         //--------------------------------------------------------------------
311         // WRITE - step 3 : issue start operation,I2C master control bit 30:ON
312         //                 2020 : [20] OR operation at [20] offset 0x20
313         data = WPG_I2CMCNTL_STARTOP_MASK;
314         wpg_data = swab32 (data);
315         wpg_addr = WPGBbar + WPG_I2CMCNTL_OFFSET + WPG_I2C_OR;
316         writel (wpg_data, wpg_addr);
317
318         //--------------------------------------------------------------------
319         // WRITE - step 4 : wait until start operation bit clears
320         i = CMD_COMPLETE_TOUT_SEC;
321         while (i) {
322                 msleep(10);
323                 wpg_addr = WPGBbar + WPG_I2CMCNTL_OFFSET;
324                 wpg_data = readl (wpg_addr);
325                 data = swab32 (wpg_data);
326                 if (!(data & WPG_I2CMCNTL_STARTOP_MASK))
327                         break;
328                 i--;
329         }
330         if (i == 0) {
331                 debug ("%s - Exit Error:WPG timeout\n", __FUNCTION__);
332                 rc = HPC_ERROR;
333         }
334
335         //--------------------------------------------------------------------
336         // WRITE - step 5 : read I2C status register
337         i = CMD_COMPLETE_TOUT_SEC;
338         while (i) {
339                 msleep(10);
340                 wpg_addr = WPGBbar + WPG_I2CSTAT_OFFSET;
341                 wpg_data = readl (wpg_addr);
342                 data = swab32 (wpg_data);
343                 if (HPC_I2CSTATUS_CHECK (data))
344                         break;
345                 i--;
346         }
347         if (i == 0) {
348                 debug ("ctrl_read - Error : I2C timeout\n");
349                 rc = HPC_ERROR;
350         }
351
352         debug_polling ("%s Exit rc[%x]\n", __FUNCTION__, rc);
353         return (rc);
354 }
355
356 //------------------------------------------------------------
357 //  Read from ISA type HPC 
358 //------------------------------------------------------------
359 static u8 isa_ctrl_read (struct controller *ctlr_ptr, u8 offset)
360 {
361         u16 start_address;
362         u16 end_address;
363         u8 data;
364
365         start_address = ctlr_ptr->u.isa_ctlr.io_start;
366         end_address = ctlr_ptr->u.isa_ctlr.io_end;
367         data = inb (start_address + offset);
368         return data;
369 }
370
371 //--------------------------------------------------------------
372 // Write to ISA type HPC
373 //--------------------------------------------------------------
374 static void isa_ctrl_write (struct controller *ctlr_ptr, u8 offset, u8 data)
375 {
376         u16 start_address;
377         u16 port_address;
378         
379         start_address = ctlr_ptr->u.isa_ctlr.io_start;
380         port_address = start_address + (u16) offset;
381         outb (data, port_address);
382 }
383
384 static u8 pci_ctrl_read (struct controller *ctrl, u8 offset)
385 {
386         u8 data = 0x00;
387         debug ("inside pci_ctrl_read\n");
388         if (ctrl->ctrl_dev)
389                 pci_read_config_byte (ctrl->ctrl_dev, HPC_PCI_OFFSET + offset, &data);
390         return data;
391 }
392
393 static u8 pci_ctrl_write (struct controller *ctrl, u8 offset, u8 data)
394 {
395         u8 rc = -ENODEV;
396         debug ("inside pci_ctrl_write\n");
397         if (ctrl->ctrl_dev) {
398                 pci_write_config_byte (ctrl->ctrl_dev, HPC_PCI_OFFSET + offset, data);
399                 rc = 0;
400         }
401         return rc;
402 }
403
404 static u8 ctrl_read (struct controller *ctlr, void __iomem *base, u8 offset)
405 {
406         u8 rc;
407         switch (ctlr->ctlr_type) {
408         case 0:
409                 rc = isa_ctrl_read (ctlr, offset);
410                 break;
411         case 1:
412                 rc = pci_ctrl_read (ctlr, offset);
413                 break;
414         case 2:
415         case 4:
416                 rc = i2c_ctrl_read (ctlr, base, offset);
417                 break;
418         default:
419                 return -ENODEV;
420         }
421         return rc;
422 }
423
424 static u8 ctrl_write (struct controller *ctlr, void __iomem *base, u8 offset, u8 data)
425 {
426         u8 rc = 0;
427         switch (ctlr->ctlr_type) {
428         case 0:
429                 isa_ctrl_write(ctlr, offset, data);
430                 break;
431         case 1:
432                 rc = pci_ctrl_write (ctlr, offset, data);
433                 break;
434         case 2:
435         case 4:
436                 rc = i2c_ctrl_write(ctlr, base, offset, data);
437                 break;
438         default:
439                 return -ENODEV;
440         }
441         return rc;
442 }
443 /*----------------------------------------------------------------------
444 * Name:    hpc_writecmdtoindex()
445 *
446 * Action:  convert a write command to proper index within a controller
447 *
448 * Return   index, HPC_ERROR
449 *---------------------------------------------------------------------*/
450 static u8 hpc_writecmdtoindex (u8 cmd, u8 index)
451 {
452         u8 rc;
453
454         switch (cmd) {
455         case HPC_CTLR_ENABLEIRQ:        // 0x00.N.15
456         case HPC_CTLR_CLEARIRQ: // 0x06.N.15
457         case HPC_CTLR_RESET:    // 0x07.N.15
458         case HPC_CTLR_IRQSTEER: // 0x08.N.15
459         case HPC_CTLR_DISABLEIRQ:       // 0x01.N.15
460         case HPC_ALLSLOT_ON:    // 0x11.N.15
461         case HPC_ALLSLOT_OFF:   // 0x12.N.15
462                 rc = 0x0F;
463                 break;
464
465         case HPC_SLOT_OFF:      // 0x02.Y.0-14
466         case HPC_SLOT_ON:       // 0x03.Y.0-14
467         case HPC_SLOT_ATTNOFF:  // 0x04.N.0-14
468         case HPC_SLOT_ATTNON:   // 0x05.N.0-14
469         case HPC_SLOT_BLINKLED: // 0x13.N.0-14
470                 rc = index;
471                 break;
472
473         case HPC_BUS_33CONVMODE:
474         case HPC_BUS_66CONVMODE:
475         case HPC_BUS_66PCIXMODE:
476         case HPC_BUS_100PCIXMODE:
477         case HPC_BUS_133PCIXMODE:
478                 rc = index + WPG_1ST_BUS_INDEX - 1;
479                 break;
480
481         default:
482                 err ("hpc_writecmdtoindex - Error invalid cmd[%x]\n", cmd);
483                 rc = HPC_ERROR;
484         }
485
486         return rc;
487 }
488
489 /*----------------------------------------------------------------------
490 * Name:    hpc_readcmdtoindex()
491 *
492 * Action:  convert a read command to proper index within a controller
493 *
494 * Return   index, HPC_ERROR
495 *---------------------------------------------------------------------*/
496 static u8 hpc_readcmdtoindex (u8 cmd, u8 index)
497 {
498         u8 rc;
499
500         switch (cmd) {
501         case READ_CTLRSTATUS:
502                 rc = 0x0F;
503                 break;
504         case READ_SLOTSTATUS:
505         case READ_ALLSTAT:
506                 rc = index;
507                 break;
508         case READ_EXTSLOTSTATUS:
509                 rc = index + WPG_1ST_EXTSLOT_INDEX;
510                 break;
511         case READ_BUSSTATUS:
512                 rc = index + WPG_1ST_BUS_INDEX - 1;
513                 break;
514         case READ_SLOTLATCHLOWREG:
515                 rc = 0x28;
516                 break;
517         case READ_REVLEVEL:
518                 rc = 0x25;
519                 break;
520         case READ_HPCOPTIONS:
521                 rc = 0x27;
522                 break;
523         default:
524                 rc = HPC_ERROR;
525         }
526         return rc;
527 }
528
529 /*----------------------------------------------------------------------
530 * Name:    HPCreadslot()
531 *
532 * Action:  issue a READ command to HPC
533 *
534 * Input:   pslot   - cannot be NULL for READ_ALLSTAT
535 *          pstatus - can be NULL for READ_ALLSTAT
536 *
537 * Return   0 or error codes
538 *---------------------------------------------------------------------*/
539 int ibmphp_hpc_readslot (struct slot * pslot, u8 cmd, u8 * pstatus)
540 {
541         void __iomem *wpg_bbar = NULL;
542         struct controller *ctlr_ptr;
543         struct list_head *pslotlist;
544         u8 index, status;
545         int rc = 0;
546         int busindex;
547
548         debug_polling ("%s - Entry pslot[%p] cmd[%x] pstatus[%p]\n", __FUNCTION__, pslot, cmd, pstatus);
549
550         if ((pslot == NULL)
551             || ((pstatus == NULL) && (cmd != READ_ALLSTAT) && (cmd != READ_BUSSTATUS))) {
552                 rc = -EINVAL;
553                 err ("%s - Error invalid pointer, rc[%d]\n", __FUNCTION__, rc);
554                 return rc;
555         }
556
557         if (cmd == READ_BUSSTATUS) {
558                 busindex = ibmphp_get_bus_index (pslot->bus);
559                 if (busindex < 0) {
560                         rc = -EINVAL;
561                         err ("%s - Exit Error:invalid bus, rc[%d]\n", __FUNCTION__, rc);
562                         return rc;
563                 } else
564                         index = (u8) busindex;
565         } else
566                 index = pslot->ctlr_index;
567
568         index = hpc_readcmdtoindex (cmd, index);
569
570         if (index == HPC_ERROR) {
571                 rc = -EINVAL;
572                 err ("%s - Exit Error:invalid index, rc[%d]\n", __FUNCTION__, rc);
573                 return rc;
574         }
575
576         ctlr_ptr = pslot->ctrl;
577
578         get_hpc_access ();
579
580         //--------------------------------------------------------------------
581         // map physical address to logical address
582         //--------------------------------------------------------------------
583         if ((ctlr_ptr->ctlr_type == 2) || (ctlr_ptr->ctlr_type == 4))
584                 wpg_bbar = ioremap (ctlr_ptr->u.wpeg_ctlr.wpegbbar, WPG_I2C_IOREMAP_SIZE);
585
586         //--------------------------------------------------------------------
587         // check controller status before reading
588         //--------------------------------------------------------------------
589         rc = hpc_wait_ctlr_notworking (HPC_CTLR_WORKING_TOUT, ctlr_ptr, wpg_bbar, &status);
590         if (!rc) {
591                 switch (cmd) {
592                 case READ_ALLSTAT:
593                         // update the slot structure
594                         pslot->ctrl->status = status;
595                         pslot->status = ctrl_read (ctlr_ptr, wpg_bbar, index);
596                         rc = hpc_wait_ctlr_notworking (HPC_CTLR_WORKING_TOUT, ctlr_ptr, wpg_bbar,
597                                                        &status);
598                         if (!rc)
599                                 pslot->ext_status = ctrl_read (ctlr_ptr, wpg_bbar, index + WPG_1ST_EXTSLOT_INDEX);
600
601                         break;
602
603                 case READ_SLOTSTATUS:
604                         // DO NOT update the slot structure
605                         *pstatus = ctrl_read (ctlr_ptr, wpg_bbar, index);
606                         break;
607
608                 case READ_EXTSLOTSTATUS:
609                         // DO NOT update the slot structure
610                         *pstatus = ctrl_read (ctlr_ptr, wpg_bbar, index);
611                         break;
612
613                 case READ_CTLRSTATUS:
614                         // DO NOT update the slot structure
615                         *pstatus = status;
616                         break;
617
618                 case READ_BUSSTATUS:
619                         pslot->busstatus = ctrl_read (ctlr_ptr, wpg_bbar, index);
620                         break;
621                 case READ_REVLEVEL:
622                         *pstatus = ctrl_read (ctlr_ptr, wpg_bbar, index);
623                         break;
624                 case READ_HPCOPTIONS:
625                         *pstatus = ctrl_read (ctlr_ptr, wpg_bbar, index);
626                         break;
627                 case READ_SLOTLATCHLOWREG:
628                         // DO NOT update the slot structure
629                         *pstatus = ctrl_read (ctlr_ptr, wpg_bbar, index);
630                         break;
631
632                         // Not used
633                 case READ_ALLSLOT:
634                         list_for_each (pslotlist, &ibmphp_slot_head) {
635                                 pslot = list_entry (pslotlist, struct slot, ibm_slot_list);
636                                 index = pslot->ctlr_index;
637                                 rc = hpc_wait_ctlr_notworking (HPC_CTLR_WORKING_TOUT, ctlr_ptr,
638                                                                 wpg_bbar, &status);
639                                 if (!rc) {
640                                         pslot->status = ctrl_read (ctlr_ptr, wpg_bbar, index);
641                                         rc = hpc_wait_ctlr_notworking (HPC_CTLR_WORKING_TOUT,
642                                                                         ctlr_ptr, wpg_bbar, &status);
643                                         if (!rc)
644                                                 pslot->ext_status =
645                                                     ctrl_read (ctlr_ptr, wpg_bbar,
646                                                                 index + WPG_1ST_EXTSLOT_INDEX);
647                                 } else {
648                                         err ("%s - Error ctrl_read failed\n", __FUNCTION__);
649                                         rc = -EINVAL;
650                                         break;
651                                 }
652                         }
653                         break;
654                 default:
655                         rc = -EINVAL;
656                         break;
657                 }
658         }
659         //--------------------------------------------------------------------
660         // cleanup
661         //--------------------------------------------------------------------
662         
663         // remove physical to logical address mapping
664         if ((ctlr_ptr->ctlr_type == 2) || (ctlr_ptr->ctlr_type == 4))
665                 iounmap (wpg_bbar);
666         
667         free_hpc_access ();
668
669         debug_polling ("%s - Exit rc[%d]\n", __FUNCTION__, rc);
670         return rc;
671 }
672
673 /*----------------------------------------------------------------------
674 * Name:    ibmphp_hpc_writeslot()
675 *
676 * Action: issue a WRITE command to HPC
677 *---------------------------------------------------------------------*/
678 int ibmphp_hpc_writeslot (struct slot * pslot, u8 cmd)
679 {
680         void __iomem *wpg_bbar = NULL;
681         struct controller *ctlr_ptr;
682         u8 index, status;
683         int busindex;
684         u8 done;
685         int rc = 0;
686         int timeout;
687
688         debug_polling ("%s - Entry pslot[%p] cmd[%x]\n", __FUNCTION__, pslot, cmd);
689         if (pslot == NULL) {
690                 rc = -EINVAL;
691                 err ("%s - Error Exit rc[%d]\n", __FUNCTION__, rc);
692                 return rc;
693         }
694
695         if ((cmd == HPC_BUS_33CONVMODE) || (cmd == HPC_BUS_66CONVMODE) ||
696                 (cmd == HPC_BUS_66PCIXMODE) || (cmd == HPC_BUS_100PCIXMODE) ||
697                 (cmd == HPC_BUS_133PCIXMODE)) {
698                 busindex = ibmphp_get_bus_index (pslot->bus);
699                 if (busindex < 0) {
700                         rc = -EINVAL;
701                         err ("%s - Exit Error:invalid bus, rc[%d]\n", __FUNCTION__, rc);
702                         return rc;
703                 } else
704                         index = (u8) busindex;
705         } else
706                 index = pslot->ctlr_index;
707
708         index = hpc_writecmdtoindex (cmd, index);
709
710         if (index == HPC_ERROR) {
711                 rc = -EINVAL;
712                 err ("%s - Error Exit rc[%d]\n", __FUNCTION__, rc);
713                 return rc;
714         }
715
716         ctlr_ptr = pslot->ctrl;
717
718         get_hpc_access ();
719
720         //--------------------------------------------------------------------
721         // map physical address to logical address
722         //--------------------------------------------------------------------
723         if ((ctlr_ptr->ctlr_type == 2) || (ctlr_ptr->ctlr_type == 4)) {
724                 wpg_bbar = ioremap (ctlr_ptr->u.wpeg_ctlr.wpegbbar, WPG_I2C_IOREMAP_SIZE);
725
726                 debug ("%s - ctlr id[%x] physical[%lx] logical[%lx] i2c[%x]\n", __FUNCTION__,
727                 ctlr_ptr->ctlr_id, (ulong) (ctlr_ptr->u.wpeg_ctlr.wpegbbar), (ulong) wpg_bbar,
728                 ctlr_ptr->u.wpeg_ctlr.i2c_addr);
729         }
730         //--------------------------------------------------------------------
731         // check controller status before writing
732         //--------------------------------------------------------------------
733         rc = hpc_wait_ctlr_notworking (HPC_CTLR_WORKING_TOUT, ctlr_ptr, wpg_bbar, &status);
734         if (!rc) {
735
736                 ctrl_write (ctlr_ptr, wpg_bbar, index, cmd);
737
738                 //--------------------------------------------------------------------
739                 // check controller is still not working on the command
740                 //--------------------------------------------------------------------
741                 timeout = CMD_COMPLETE_TOUT_SEC;
742                 done = 0;
743                 while (!done) {
744                         rc = hpc_wait_ctlr_notworking (HPC_CTLR_WORKING_TOUT, ctlr_ptr, wpg_bbar,
745                                                         &status);
746                         if (!rc) {
747                                 if (NEEDTOCHECK_CMDSTATUS (cmd)) {
748                                         if (CTLR_FINISHED (status) == HPC_CTLR_FINISHED_YES)
749                                                 done = 1;
750                                 } else
751                                         done = 1;
752                         }
753                         if (!done) {
754                                 msleep(1000);
755                                 if (timeout < 1) {
756                                         done = 1;
757                                         err ("%s - Error command complete timeout\n", __FUNCTION__);
758                                         rc = -EFAULT;
759                                 } else
760                                         timeout--;
761                         }
762                 }
763                 ctlr_ptr->status = status;
764         }
765         // cleanup
766
767         // remove physical to logical address mapping
768         if ((ctlr_ptr->ctlr_type == 2) || (ctlr_ptr->ctlr_type == 4))
769                 iounmap (wpg_bbar);
770         free_hpc_access ();
771
772         debug_polling ("%s - Exit rc[%d]\n", __FUNCTION__, rc);
773         return rc;
774 }
775
776 /*----------------------------------------------------------------------
777 * Name:    get_hpc_access()
778 *
779 * Action: make sure only one process can access HPC at one time
780 *---------------------------------------------------------------------*/
781 static void get_hpc_access (void)
782 {
783         mutex_lock(&sem_hpcaccess);
784 }
785
786 /*----------------------------------------------------------------------
787 * Name:    free_hpc_access()
788 *---------------------------------------------------------------------*/
789 void free_hpc_access (void)
790 {
791         mutex_unlock(&sem_hpcaccess);
792 }
793
794 /*----------------------------------------------------------------------
795 * Name:    ibmphp_lock_operations()
796 *
797 * Action: make sure only one process can change the data structure
798 *---------------------------------------------------------------------*/
799 void ibmphp_lock_operations (void)
800 {
801         down (&semOperations);
802         to_debug = 1;
803 }
804
805 /*----------------------------------------------------------------------
806 * Name:    ibmphp_unlock_operations()
807 *---------------------------------------------------------------------*/
808 void ibmphp_unlock_operations (void)
809 {
810         debug ("%s - Entry\n", __FUNCTION__);
811         up (&semOperations);
812         to_debug = 0;
813         debug ("%s - Exit\n", __FUNCTION__);
814 }
815
816 /*----------------------------------------------------------------------
817 * Name:    poll_hpc()
818 *---------------------------------------------------------------------*/
819 #define POLL_LATCH_REGISTER     0
820 #define POLL_SLOTS              1
821 #define POLL_SLEEP              2
822 static void poll_hpc (void)
823 {
824         struct slot myslot;
825         struct slot *pslot = NULL;
826         struct list_head *pslotlist;
827         int rc;
828         int poll_state = POLL_LATCH_REGISTER;
829         u8 oldlatchlow = 0x00;
830         u8 curlatchlow = 0x00;
831         int poll_count = 0;
832         u8 ctrl_count = 0x00;
833
834         debug ("%s - Entry\n", __FUNCTION__);
835
836         while (!ibmphp_shutdown) {
837                 if (ibmphp_shutdown) 
838                         break;
839                 
840                 /* try to get the lock to do some kind of hardware access */
841                 down (&semOperations);
842
843                 switch (poll_state) {
844                 case POLL_LATCH_REGISTER: 
845                         oldlatchlow = curlatchlow;
846                         ctrl_count = 0x00;
847                         list_for_each (pslotlist, &ibmphp_slot_head) {
848                                 if (ctrl_count >= ibmphp_get_total_controllers())
849                                         break;
850                                 pslot = list_entry (pslotlist, struct slot, ibm_slot_list);
851                                 if (pslot->ctrl->ctlr_relative_id == ctrl_count) {
852                                         ctrl_count++;
853                                         if (READ_SLOT_LATCH (pslot->ctrl)) {
854                                                 rc = ibmphp_hpc_readslot (pslot,
855                                                                           READ_SLOTLATCHLOWREG,
856                                                                           &curlatchlow);
857                                                 if (oldlatchlow != curlatchlow)
858                                                         process_changeinlatch (oldlatchlow,
859                                                                                curlatchlow,
860                                                                                pslot->ctrl);
861                                         }
862                                 }
863                         }
864                         ++poll_count;
865                         poll_state = POLL_SLEEP;
866                         break;
867                 case POLL_SLOTS:
868                         list_for_each (pslotlist, &ibmphp_slot_head) {
869                                 pslot = list_entry (pslotlist, struct slot, ibm_slot_list);
870                                 // make a copy of the old status
871                                 memcpy ((void *) &myslot, (void *) pslot,
872                                         sizeof (struct slot));
873                                 rc = ibmphp_hpc_readslot (pslot, READ_ALLSTAT, NULL);
874                                 if ((myslot.status != pslot->status)
875                                     || (myslot.ext_status != pslot->ext_status))
876                                         process_changeinstatus (pslot, &myslot);
877                         }
878                         ctrl_count = 0x00;
879                         list_for_each (pslotlist, &ibmphp_slot_head) {
880                                 if (ctrl_count >= ibmphp_get_total_controllers())
881                                         break;
882                                 pslot = list_entry (pslotlist, struct slot, ibm_slot_list);
883                                 if (pslot->ctrl->ctlr_relative_id == ctrl_count) {
884                                         ctrl_count++;
885                                         if (READ_SLOT_LATCH (pslot->ctrl))
886                                                 rc = ibmphp_hpc_readslot (pslot,
887                                                                           READ_SLOTLATCHLOWREG,
888                                                                           &curlatchlow);
889                                 }
890                         }
891                         ++poll_count;
892                         poll_state = POLL_SLEEP;
893                         break;
894                 case POLL_SLEEP:
895                         /* don't sleep with a lock on the hardware */
896                         up (&semOperations);
897                         msleep(POLL_INTERVAL_SEC * 1000);
898
899                         if (ibmphp_shutdown) 
900                                 break;
901                         
902                         down (&semOperations);
903                         
904                         if (poll_count >= POLL_LATCH_CNT) {
905                                 poll_count = 0;
906                                 poll_state = POLL_SLOTS;
907                         } else
908                                 poll_state = POLL_LATCH_REGISTER;
909                         break;
910                 }       
911                 /* give up the hardware semaphore */
912                 up (&semOperations);
913                 /* sleep for a short time just for good measure */
914                 msleep(100);
915         }
916         up (&sem_exit);
917         debug ("%s - Exit\n", __FUNCTION__);
918 }
919
920
921 /*----------------------------------------------------------------------
922 * Name:    process_changeinstatus
923 *
924 * Action:  compare old and new slot status, process the change in status
925 *
926 * Input:   pointer to slot struct, old slot struct
927 *
928 * Return   0 or error codes
929 * Value:
930 *
931 * Side
932 * Effects: None.
933 *
934 * Notes:
935 *---------------------------------------------------------------------*/
936 static int process_changeinstatus (struct slot *pslot, struct slot *poldslot)
937 {
938         u8 status;
939         int rc = 0;
940         u8 disable = 0;
941         u8 update = 0;
942
943         debug ("process_changeinstatus - Entry pslot[%p], poldslot[%p]\n", pslot, poldslot);
944
945         // bit 0 - HPC_SLOT_POWER
946         if ((pslot->status & 0x01) != (poldslot->status & 0x01))
947                 update = 1;
948
949         // bit 1 - HPC_SLOT_CONNECT
950         // ignore
951
952         // bit 2 - HPC_SLOT_ATTN
953         if ((pslot->status & 0x04) != (poldslot->status & 0x04))
954                 update = 1;
955
956         // bit 3 - HPC_SLOT_PRSNT2
957         // bit 4 - HPC_SLOT_PRSNT1
958         if (((pslot->status & 0x08) != (poldslot->status & 0x08))
959                 || ((pslot->status & 0x10) != (poldslot->status & 0x10)))
960                 update = 1;
961
962         // bit 5 - HPC_SLOT_PWRGD
963         if ((pslot->status & 0x20) != (poldslot->status & 0x20))
964                 // OFF -> ON: ignore, ON -> OFF: disable slot
965                 if ((poldslot->status & 0x20) && (SLOT_CONNECT (poldslot->status) == HPC_SLOT_CONNECTED) && (SLOT_PRESENT (poldslot->status))) 
966                         disable = 1;
967
968         // bit 6 - HPC_SLOT_BUS_SPEED
969         // ignore
970
971         // bit 7 - HPC_SLOT_LATCH
972         if ((pslot->status & 0x80) != (poldslot->status & 0x80)) {
973                 update = 1;
974                 // OPEN -> CLOSE
975                 if (pslot->status & 0x80) {
976                         if (SLOT_PWRGD (pslot->status)) {
977                                 // power goes on and off after closing latch
978                                 // check again to make sure power is still ON
979                                 msleep(1000);
980                                 rc = ibmphp_hpc_readslot (pslot, READ_SLOTSTATUS, &status);
981                                 if (SLOT_PWRGD (status))
982                                         update = 1;
983                                 else    // overwrite power in pslot to OFF
984                                         pslot->status &= ~HPC_SLOT_POWER;
985                         }
986                 }
987                 // CLOSE -> OPEN 
988                 else if ((SLOT_PWRGD (poldslot->status) == HPC_SLOT_PWRGD_GOOD)
989                         && (SLOT_CONNECT (poldslot->status) == HPC_SLOT_CONNECTED) && (SLOT_PRESENT (poldslot->status))) {
990                         disable = 1;
991                 }
992                 // else - ignore
993         }
994         // bit 4 - HPC_SLOT_BLINK_ATTN
995         if ((pslot->ext_status & 0x08) != (poldslot->ext_status & 0x08))
996                 update = 1;
997
998         if (disable) {
999                 debug ("process_changeinstatus - disable slot\n");
1000                 pslot->flag = 0;
1001                 rc = ibmphp_do_disable_slot (pslot);
1002         }
1003
1004         if (update || disable) {
1005                 ibmphp_update_slot_info (pslot);
1006         }
1007
1008         debug ("%s - Exit rc[%d] disable[%x] update[%x]\n", __FUNCTION__, rc, disable, update);
1009
1010         return rc;
1011 }
1012
1013 /*----------------------------------------------------------------------
1014 * Name:    process_changeinlatch
1015 *
1016 * Action:  compare old and new latch reg status, process the change
1017 *
1018 * Input:   old and current latch register status
1019 *
1020 * Return   0 or error codes
1021 * Value:
1022 *---------------------------------------------------------------------*/
1023 static int process_changeinlatch (u8 old, u8 new, struct controller *ctrl)
1024 {
1025         struct slot myslot, *pslot;
1026         u8 i;
1027         u8 mask;
1028         int rc = 0;
1029
1030         debug ("%s - Entry old[%x], new[%x]\n", __FUNCTION__, old, new);
1031         // bit 0 reserved, 0 is LSB, check bit 1-6 for 6 slots
1032
1033         for (i = ctrl->starting_slot_num; i <= ctrl->ending_slot_num; i++) {
1034                 mask = 0x01 << i;
1035                 if ((mask & old) != (mask & new)) {
1036                         pslot = ibmphp_get_slot_from_physical_num (i);
1037                         if (pslot) {
1038                                 memcpy ((void *) &myslot, (void *) pslot, sizeof (struct slot));
1039                                 rc = ibmphp_hpc_readslot (pslot, READ_ALLSTAT, NULL);
1040                                 debug ("%s - call process_changeinstatus for slot[%d]\n", __FUNCTION__, i);
1041                                 process_changeinstatus (pslot, &myslot);
1042                         } else {
1043                                 rc = -EINVAL;
1044                                 err ("%s - Error bad pointer for slot[%d]\n", __FUNCTION__, i);
1045                         }
1046                 }
1047         }
1048         debug ("%s - Exit rc[%d]\n", __FUNCTION__, rc);
1049         return rc;
1050 }
1051
1052 /*----------------------------------------------------------------------
1053 * Name:    hpc_poll_thread
1054 *
1055 * Action:  polling
1056 *
1057 * Return   0
1058 * Value:
1059 *---------------------------------------------------------------------*/
1060 static int hpc_poll_thread (void *data)
1061 {
1062         debug ("%s - Entry\n", __FUNCTION__);
1063
1064         daemonize("hpc_poll");
1065         allow_signal(SIGKILL);
1066
1067         poll_hpc ();
1068
1069         tid_poll = 0;
1070         debug ("%s - Exit\n", __FUNCTION__);
1071         return 0;
1072 }
1073
1074
1075 /*----------------------------------------------------------------------
1076 * Name:    ibmphp_hpc_start_poll_thread
1077 *
1078 * Action:  start polling thread
1079 *---------------------------------------------------------------------*/
1080 int __init ibmphp_hpc_start_poll_thread (void)
1081 {
1082         int rc = 0;
1083
1084         debug ("%s - Entry\n", __FUNCTION__);
1085
1086         tid_poll = kernel_thread (hpc_poll_thread, NULL, 0);
1087         if (tid_poll < 0) {
1088                 err ("%s - Error, thread not started\n", __FUNCTION__);
1089                 rc = -1;
1090         }
1091
1092         debug ("%s - Exit tid_poll[%d] rc[%d]\n", __FUNCTION__, tid_poll, rc);
1093         return rc;
1094 }
1095
1096 /*----------------------------------------------------------------------
1097 * Name:    ibmphp_hpc_stop_poll_thread
1098 *
1099 * Action:  stop polling thread and cleanup
1100 *---------------------------------------------------------------------*/
1101 void __exit ibmphp_hpc_stop_poll_thread (void)
1102 {
1103         debug ("%s - Entry\n", __FUNCTION__);
1104
1105         ibmphp_shutdown = 1;
1106         debug ("before locking operations \n");
1107         ibmphp_lock_operations ();
1108         debug ("after locking operations \n");
1109         
1110         // wait for poll thread to exit
1111         debug ("before sem_exit down \n");
1112         down (&sem_exit);
1113         debug ("after sem_exit down \n");
1114
1115         // cleanup
1116         debug ("before free_hpc_access \n");
1117         free_hpc_access ();
1118         debug ("after free_hpc_access \n");
1119         ibmphp_unlock_operations ();
1120         debug ("after unlock operations \n");
1121         up (&sem_exit);
1122         debug ("after sem exit up\n");
1123
1124         debug ("%s - Exit\n", __FUNCTION__);
1125 }
1126
1127 /*----------------------------------------------------------------------
1128 * Name:    hpc_wait_ctlr_notworking
1129 *
1130 * Action:  wait until the controller is in a not working state
1131 *
1132 * Return   0, HPC_ERROR
1133 * Value:
1134 *---------------------------------------------------------------------*/
1135 static int hpc_wait_ctlr_notworking (int timeout, struct controller *ctlr_ptr, void __iomem *wpg_bbar,
1136                                     u8 * pstatus)
1137 {
1138         int rc = 0;
1139         u8 done = 0;
1140
1141         debug_polling ("hpc_wait_ctlr_notworking - Entry timeout[%d]\n", timeout);
1142
1143         while (!done) {
1144                 *pstatus = ctrl_read (ctlr_ptr, wpg_bbar, WPG_CTLR_INDEX);
1145                 if (*pstatus == HPC_ERROR) {
1146                         rc = HPC_ERROR;
1147                         done = 1;
1148                 }
1149                 if (CTLR_WORKING (*pstatus) == HPC_CTLR_WORKING_NO)
1150                         done = 1;
1151                 if (!done) {
1152                         msleep(1000);
1153                         if (timeout < 1) {
1154                                 done = 1;
1155                                 err ("HPCreadslot - Error ctlr timeout\n");
1156                                 rc = HPC_ERROR;
1157                         } else
1158                                 timeout--;
1159                 }
1160         }
1161         debug_polling ("hpc_wait_ctlr_notworking - Exit rc[%x] status[%x]\n", rc, *pstatus);
1162         return rc;
1163 }