Merge branch 'for-linus' of git://oss.sgi.com/xfs/xfs
[linux-2.6.git] / drivers / i2c / busses / i2c-i801.c
1 /*
2     Copyright (c) 1998 - 2002  Frodo Looijaard <frodol@dds.nl>,
3     Philip Edelbrock <phil@netroedge.com>, and Mark D. Studebaker
4     <mdsxyz123@yahoo.com>
5     Copyright (C) 2007, 2008   Jean Delvare <khali@linux-fr.org>
6     Copyright (C) 2010         Intel Corporation,
7                                David Woodhouse <dwmw2@infradead.org>
8
9     This program is free software; you can redistribute it and/or modify
10     it under the terms of the GNU General Public License as published by
11     the Free Software Foundation; either version 2 of the License, or
12     (at your option) any later version.
13
14     This program is distributed in the hope that it will be useful,
15     but WITHOUT ANY WARRANTY; without even the implied warranty of
16     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
17     GNU General Public License for more details.
18
19     You should have received a copy of the GNU General Public License
20     along with this program; if not, write to the Free Software
21     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
22 */
23
24 /*
25   Supports the following Intel I/O Controller Hubs (ICH):
26
27                                   I/O                     Block   I2C
28                                   region  SMBus   Block   proc.   block
29   Chip name             PCI ID    size    PEC     buffer  call    read
30   ----------------------------------------------------------------------
31   82801AA  (ICH)        0x2413     16      no      no      no      no
32   82801AB  (ICH0)       0x2423     16      no      no      no      no
33   82801BA  (ICH2)       0x2443     16      no      no      no      no
34   82801CA  (ICH3)       0x2483     32     soft     no      no      no
35   82801DB  (ICH4)       0x24c3     32     hard     yes     no      no
36   82801E   (ICH5)       0x24d3     32     hard     yes     yes     yes
37   6300ESB               0x25a4     32     hard     yes     yes     yes
38   82801F   (ICH6)       0x266a     32     hard     yes     yes     yes
39   6310ESB/6320ESB       0x269b     32     hard     yes     yes     yes
40   82801G   (ICH7)       0x27da     32     hard     yes     yes     yes
41   82801H   (ICH8)       0x283e     32     hard     yes     yes     yes
42   82801I   (ICH9)       0x2930     32     hard     yes     yes     yes
43   EP80579 (Tolapai)     0x5032     32     hard     yes     yes     yes
44   ICH10                 0x3a30     32     hard     yes     yes     yes
45   ICH10                 0x3a60     32     hard     yes     yes     yes
46   5/3400 Series (PCH)   0x3b30     32     hard     yes     yes     yes
47   6 Series (PCH)        0x1c22     32     hard     yes     yes     yes
48   Patsburg (PCH)        0x1d22     32     hard     yes     yes     yes
49   Patsburg (PCH) IDF    0x1d70     32     hard     yes     yes     yes
50   Patsburg (PCH) IDF    0x1d71     32     hard     yes     yes     yes
51   Patsburg (PCH) IDF    0x1d72     32     hard     yes     yes     yes
52   DH89xxCC (PCH)        0x2330     32     hard     yes     yes     yes
53
54   Features supported by this driver:
55   Software PEC                     no
56   Hardware PEC                     yes
57   Block buffer                     yes
58   Block process call transaction   no
59   I2C block read transaction       yes  (doesn't use the block buffer)
60   Slave mode                       no
61
62   See the file Documentation/i2c/busses/i2c-i801 for details.
63 */
64
65 #include <linux/module.h>
66 #include <linux/pci.h>
67 #include <linux/kernel.h>
68 #include <linux/stddef.h>
69 #include <linux/delay.h>
70 #include <linux/ioport.h>
71 #include <linux/init.h>
72 #include <linux/i2c.h>
73 #include <linux/acpi.h>
74 #include <linux/io.h>
75 #include <linux/dmi.h>
76 #include <linux/slab.h>
77
78 /* I801 SMBus address offsets */
79 #define SMBHSTSTS(p)    (0 + (p)->smba)
80 #define SMBHSTCNT(p)    (2 + (p)->smba)
81 #define SMBHSTCMD(p)    (3 + (p)->smba)
82 #define SMBHSTADD(p)    (4 + (p)->smba)
83 #define SMBHSTDAT0(p)   (5 + (p)->smba)
84 #define SMBHSTDAT1(p)   (6 + (p)->smba)
85 #define SMBBLKDAT(p)    (7 + (p)->smba)
86 #define SMBPEC(p)       (8 + (p)->smba)         /* ICH3 and later */
87 #define SMBAUXSTS(p)    (12 + (p)->smba)        /* ICH4 and later */
88 #define SMBAUXCTL(p)    (13 + (p)->smba)        /* ICH4 and later */
89
90 /* PCI Address Constants */
91 #define SMBBAR          4
92 #define SMBHSTCFG       0x040
93
94 /* Host configuration bits for SMBHSTCFG */
95 #define SMBHSTCFG_HST_EN        1
96 #define SMBHSTCFG_SMB_SMI_EN    2
97 #define SMBHSTCFG_I2C_EN        4
98
99 /* Auxiliary control register bits, ICH4+ only */
100 #define SMBAUXCTL_CRC           1
101 #define SMBAUXCTL_E32B          2
102
103 /* kill bit for SMBHSTCNT */
104 #define SMBHSTCNT_KILL          2
105
106 /* Other settings */
107 #define MAX_TIMEOUT             100
108 #define ENABLE_INT9             0       /* set to 0x01 to enable - untested */
109
110 /* I801 command constants */
111 #define I801_QUICK              0x00
112 #define I801_BYTE               0x04
113 #define I801_BYTE_DATA          0x08
114 #define I801_WORD_DATA          0x0C
115 #define I801_PROC_CALL          0x10    /* unimplemented */
116 #define I801_BLOCK_DATA         0x14
117 #define I801_I2C_BLOCK_DATA     0x18    /* ICH5 and later */
118 #define I801_BLOCK_LAST         0x34
119 #define I801_I2C_BLOCK_LAST     0x38    /* ICH5 and later */
120 #define I801_START              0x40
121 #define I801_PEC_EN             0x80    /* ICH3 and later */
122
123 /* I801 Hosts Status register bits */
124 #define SMBHSTSTS_BYTE_DONE     0x80
125 #define SMBHSTSTS_INUSE_STS     0x40
126 #define SMBHSTSTS_SMBALERT_STS  0x20
127 #define SMBHSTSTS_FAILED        0x10
128 #define SMBHSTSTS_BUS_ERR       0x08
129 #define SMBHSTSTS_DEV_ERR       0x04
130 #define SMBHSTSTS_INTR          0x02
131 #define SMBHSTSTS_HOST_BUSY     0x01
132
133 #define STATUS_FLAGS            (SMBHSTSTS_BYTE_DONE | SMBHSTSTS_FAILED | \
134                                  SMBHSTSTS_BUS_ERR | SMBHSTSTS_DEV_ERR | \
135                                  SMBHSTSTS_INTR)
136
137 /* Older devices have their ID defined in <linux/pci_ids.h> */
138 #define PCI_DEVICE_ID_INTEL_COUGARPOINT_SMBUS   0x1c22
139 #define PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS      0x1d22
140 /* Patsburg also has three 'Integrated Device Function' SMBus controllers */
141 #define PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS_IDF0 0x1d70
142 #define PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS_IDF1 0x1d71
143 #define PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS_IDF2 0x1d72
144 #define PCI_DEVICE_ID_INTEL_DH89XXCC_SMBUS      0x2330
145 #define PCI_DEVICE_ID_INTEL_5_3400_SERIES_SMBUS 0x3b30
146
147 struct i801_priv {
148         struct i2c_adapter adapter;
149         unsigned long smba;
150         unsigned char original_hstcfg;
151         struct pci_dev *pci_dev;
152         unsigned int features;
153 };
154
155 static struct pci_driver i801_driver;
156
157 #define FEATURE_SMBUS_PEC       (1 << 0)
158 #define FEATURE_BLOCK_BUFFER    (1 << 1)
159 #define FEATURE_BLOCK_PROC      (1 << 2)
160 #define FEATURE_I2C_BLOCK_READ  (1 << 3)
161
162 static const char *i801_feature_names[] = {
163         "SMBus PEC",
164         "Block buffer",
165         "Block process call",
166         "I2C block read",
167 };
168
169 static unsigned int disable_features;
170 module_param(disable_features, uint, S_IRUGO | S_IWUSR);
171 MODULE_PARM_DESC(disable_features, "Disable selected driver features");
172
173 /* Make sure the SMBus host is ready to start transmitting.
174    Return 0 if it is, -EBUSY if it is not. */
175 static int i801_check_pre(struct i801_priv *priv)
176 {
177         int status;
178
179         status = inb_p(SMBHSTSTS(priv));
180         if (status & SMBHSTSTS_HOST_BUSY) {
181                 dev_err(&priv->pci_dev->dev, "SMBus is busy, can't use it!\n");
182                 return -EBUSY;
183         }
184
185         status &= STATUS_FLAGS;
186         if (status) {
187                 dev_dbg(&priv->pci_dev->dev, "Clearing status flags (%02x)\n",
188                         status);
189                 outb_p(status, SMBHSTSTS(priv));
190                 status = inb_p(SMBHSTSTS(priv)) & STATUS_FLAGS;
191                 if (status) {
192                         dev_err(&priv->pci_dev->dev,
193                                 "Failed clearing status flags (%02x)\n",
194                                 status);
195                         return -EBUSY;
196                 }
197         }
198
199         return 0;
200 }
201
202 /* Convert the status register to an error code, and clear it. */
203 static int i801_check_post(struct i801_priv *priv, int status, int timeout)
204 {
205         int result = 0;
206
207         /* If the SMBus is still busy, we give up */
208         if (timeout) {
209                 dev_err(&priv->pci_dev->dev, "Transaction timeout\n");
210                 /* try to stop the current command */
211                 dev_dbg(&priv->pci_dev->dev, "Terminating the current operation\n");
212                 outb_p(inb_p(SMBHSTCNT(priv)) | SMBHSTCNT_KILL,
213                        SMBHSTCNT(priv));
214                 msleep(1);
215                 outb_p(inb_p(SMBHSTCNT(priv)) & (~SMBHSTCNT_KILL),
216                        SMBHSTCNT(priv));
217
218                 /* Check if it worked */
219                 status = inb_p(SMBHSTSTS(priv));
220                 if ((status & SMBHSTSTS_HOST_BUSY) ||
221                     !(status & SMBHSTSTS_FAILED))
222                         dev_err(&priv->pci_dev->dev,
223                                 "Failed terminating the transaction\n");
224                 outb_p(STATUS_FLAGS, SMBHSTSTS(priv));
225                 return -ETIMEDOUT;
226         }
227
228         if (status & SMBHSTSTS_FAILED) {
229                 result = -EIO;
230                 dev_err(&priv->pci_dev->dev, "Transaction failed\n");
231         }
232         if (status & SMBHSTSTS_DEV_ERR) {
233                 result = -ENXIO;
234                 dev_dbg(&priv->pci_dev->dev, "No response\n");
235         }
236         if (status & SMBHSTSTS_BUS_ERR) {
237                 result = -EAGAIN;
238                 dev_dbg(&priv->pci_dev->dev, "Lost arbitration\n");
239         }
240
241         if (result) {
242                 /* Clear error flags */
243                 outb_p(status & STATUS_FLAGS, SMBHSTSTS(priv));
244                 status = inb_p(SMBHSTSTS(priv)) & STATUS_FLAGS;
245                 if (status) {
246                         dev_warn(&priv->pci_dev->dev, "Failed clearing status "
247                                  "flags at end of transaction (%02x)\n",
248                                  status);
249                 }
250         }
251
252         return result;
253 }
254
255 static int i801_transaction(struct i801_priv *priv, int xact)
256 {
257         int status;
258         int result;
259         int timeout = 0;
260
261         result = i801_check_pre(priv);
262         if (result < 0)
263                 return result;
264
265         /* the current contents of SMBHSTCNT can be overwritten, since PEC,
266          * INTREN, SMBSCMD are passed in xact */
267         outb_p(xact | I801_START, SMBHSTCNT(priv));
268
269         /* We will always wait for a fraction of a second! */
270         do {
271                 msleep(1);
272                 status = inb_p(SMBHSTSTS(priv));
273         } while ((status & SMBHSTSTS_HOST_BUSY) && (timeout++ < MAX_TIMEOUT));
274
275         result = i801_check_post(priv, status, timeout > MAX_TIMEOUT);
276         if (result < 0)
277                 return result;
278
279         outb_p(SMBHSTSTS_INTR, SMBHSTSTS(priv));
280         return 0;
281 }
282
283 /* wait for INTR bit as advised by Intel */
284 static void i801_wait_hwpec(struct i801_priv *priv)
285 {
286         int timeout = 0;
287         int status;
288
289         do {
290                 msleep(1);
291                 status = inb_p(SMBHSTSTS(priv));
292         } while ((!(status & SMBHSTSTS_INTR))
293                  && (timeout++ < MAX_TIMEOUT));
294
295         if (timeout > MAX_TIMEOUT)
296                 dev_dbg(&priv->pci_dev->dev, "PEC Timeout!\n");
297
298         outb_p(status, SMBHSTSTS(priv));
299 }
300
301 static int i801_block_transaction_by_block(struct i801_priv *priv,
302                                            union i2c_smbus_data *data,
303                                            char read_write, int hwpec)
304 {
305         int i, len;
306         int status;
307
308         inb_p(SMBHSTCNT(priv)); /* reset the data buffer index */
309
310         /* Use 32-byte buffer to process this transaction */
311         if (read_write == I2C_SMBUS_WRITE) {
312                 len = data->block[0];
313                 outb_p(len, SMBHSTDAT0(priv));
314                 for (i = 0; i < len; i++)
315                         outb_p(data->block[i+1], SMBBLKDAT(priv));
316         }
317
318         status = i801_transaction(priv, I801_BLOCK_DATA | ENABLE_INT9 |
319                                   I801_PEC_EN * hwpec);
320         if (status)
321                 return status;
322
323         if (read_write == I2C_SMBUS_READ) {
324                 len = inb_p(SMBHSTDAT0(priv));
325                 if (len < 1 || len > I2C_SMBUS_BLOCK_MAX)
326                         return -EPROTO;
327
328                 data->block[0] = len;
329                 for (i = 0; i < len; i++)
330                         data->block[i + 1] = inb_p(SMBBLKDAT(priv));
331         }
332         return 0;
333 }
334
335 static int i801_block_transaction_byte_by_byte(struct i801_priv *priv,
336                                                union i2c_smbus_data *data,
337                                                char read_write, int command,
338                                                int hwpec)
339 {
340         int i, len;
341         int smbcmd;
342         int status;
343         int result;
344         int timeout;
345
346         result = i801_check_pre(priv);
347         if (result < 0)
348                 return result;
349
350         len = data->block[0];
351
352         if (read_write == I2C_SMBUS_WRITE) {
353                 outb_p(len, SMBHSTDAT0(priv));
354                 outb_p(data->block[1], SMBBLKDAT(priv));
355         }
356
357         for (i = 1; i <= len; i++) {
358                 if (i == len && read_write == I2C_SMBUS_READ) {
359                         if (command == I2C_SMBUS_I2C_BLOCK_DATA)
360                                 smbcmd = I801_I2C_BLOCK_LAST;
361                         else
362                                 smbcmd = I801_BLOCK_LAST;
363                 } else {
364                         if (command == I2C_SMBUS_I2C_BLOCK_DATA
365                          && read_write == I2C_SMBUS_READ)
366                                 smbcmd = I801_I2C_BLOCK_DATA;
367                         else
368                                 smbcmd = I801_BLOCK_DATA;
369                 }
370                 outb_p(smbcmd | ENABLE_INT9, SMBHSTCNT(priv));
371
372                 if (i == 1)
373                         outb_p(inb(SMBHSTCNT(priv)) | I801_START,
374                                SMBHSTCNT(priv));
375
376                 /* We will always wait for a fraction of a second! */
377                 timeout = 0;
378                 do {
379                         msleep(1);
380                         status = inb_p(SMBHSTSTS(priv));
381                 } while ((!(status & SMBHSTSTS_BYTE_DONE))
382                          && (timeout++ < MAX_TIMEOUT));
383
384                 result = i801_check_post(priv, status, timeout > MAX_TIMEOUT);
385                 if (result < 0)
386                         return result;
387
388                 if (i == 1 && read_write == I2C_SMBUS_READ
389                  && command != I2C_SMBUS_I2C_BLOCK_DATA) {
390                         len = inb_p(SMBHSTDAT0(priv));
391                         if (len < 1 || len > I2C_SMBUS_BLOCK_MAX) {
392                                 dev_err(&priv->pci_dev->dev,
393                                         "Illegal SMBus block read size %d\n",
394                                         len);
395                                 /* Recover */
396                                 while (inb_p(SMBHSTSTS(priv)) &
397                                        SMBHSTSTS_HOST_BUSY)
398                                         outb_p(SMBHSTSTS_BYTE_DONE,
399                                                SMBHSTSTS(priv));
400                                 outb_p(SMBHSTSTS_INTR, SMBHSTSTS(priv));
401                                 return -EPROTO;
402                         }
403                         data->block[0] = len;
404                 }
405
406                 /* Retrieve/store value in SMBBLKDAT */
407                 if (read_write == I2C_SMBUS_READ)
408                         data->block[i] = inb_p(SMBBLKDAT(priv));
409                 if (read_write == I2C_SMBUS_WRITE && i+1 <= len)
410                         outb_p(data->block[i+1], SMBBLKDAT(priv));
411
412                 /* signals SMBBLKDAT ready */
413                 outb_p(SMBHSTSTS_BYTE_DONE | SMBHSTSTS_INTR, SMBHSTSTS(priv));
414         }
415
416         return 0;
417 }
418
419 static int i801_set_block_buffer_mode(struct i801_priv *priv)
420 {
421         outb_p(inb_p(SMBAUXCTL(priv)) | SMBAUXCTL_E32B, SMBAUXCTL(priv));
422         if ((inb_p(SMBAUXCTL(priv)) & SMBAUXCTL_E32B) == 0)
423                 return -EIO;
424         return 0;
425 }
426
427 /* Block transaction function */
428 static int i801_block_transaction(struct i801_priv *priv,
429                                   union i2c_smbus_data *data, char read_write,
430                                   int command, int hwpec)
431 {
432         int result = 0;
433         unsigned char hostc;
434
435         if (command == I2C_SMBUS_I2C_BLOCK_DATA) {
436                 if (read_write == I2C_SMBUS_WRITE) {
437                         /* set I2C_EN bit in configuration register */
438                         pci_read_config_byte(priv->pci_dev, SMBHSTCFG, &hostc);
439                         pci_write_config_byte(priv->pci_dev, SMBHSTCFG,
440                                               hostc | SMBHSTCFG_I2C_EN);
441                 } else if (!(priv->features & FEATURE_I2C_BLOCK_READ)) {
442                         dev_err(&priv->pci_dev->dev,
443                                 "I2C block read is unsupported!\n");
444                         return -EOPNOTSUPP;
445                 }
446         }
447
448         if (read_write == I2C_SMBUS_WRITE
449          || command == I2C_SMBUS_I2C_BLOCK_DATA) {
450                 if (data->block[0] < 1)
451                         data->block[0] = 1;
452                 if (data->block[0] > I2C_SMBUS_BLOCK_MAX)
453                         data->block[0] = I2C_SMBUS_BLOCK_MAX;
454         } else {
455                 data->block[0] = 32;    /* max for SMBus block reads */
456         }
457
458         /* Experience has shown that the block buffer can only be used for
459            SMBus (not I2C) block transactions, even though the datasheet
460            doesn't mention this limitation. */
461         if ((priv->features & FEATURE_BLOCK_BUFFER)
462          && command != I2C_SMBUS_I2C_BLOCK_DATA
463          && i801_set_block_buffer_mode(priv) == 0)
464                 result = i801_block_transaction_by_block(priv, data,
465                                                          read_write, hwpec);
466         else
467                 result = i801_block_transaction_byte_by_byte(priv, data,
468                                                              read_write,
469                                                              command, hwpec);
470
471         if (result == 0 && hwpec)
472                 i801_wait_hwpec(priv);
473
474         if (command == I2C_SMBUS_I2C_BLOCK_DATA
475          && read_write == I2C_SMBUS_WRITE) {
476                 /* restore saved configuration register value */
477                 pci_write_config_byte(priv->pci_dev, SMBHSTCFG, hostc);
478         }
479         return result;
480 }
481
482 /* Return negative errno on error. */
483 static s32 i801_access(struct i2c_adapter *adap, u16 addr,
484                        unsigned short flags, char read_write, u8 command,
485                        int size, union i2c_smbus_data *data)
486 {
487         int hwpec;
488         int block = 0;
489         int ret, xact = 0;
490         struct i801_priv *priv = i2c_get_adapdata(adap);
491
492         hwpec = (priv->features & FEATURE_SMBUS_PEC) && (flags & I2C_CLIENT_PEC)
493                 && size != I2C_SMBUS_QUICK
494                 && size != I2C_SMBUS_I2C_BLOCK_DATA;
495
496         switch (size) {
497         case I2C_SMBUS_QUICK:
498                 outb_p(((addr & 0x7f) << 1) | (read_write & 0x01),
499                        SMBHSTADD(priv));
500                 xact = I801_QUICK;
501                 break;
502         case I2C_SMBUS_BYTE:
503                 outb_p(((addr & 0x7f) << 1) | (read_write & 0x01),
504                        SMBHSTADD(priv));
505                 if (read_write == I2C_SMBUS_WRITE)
506                         outb_p(command, SMBHSTCMD(priv));
507                 xact = I801_BYTE;
508                 break;
509         case I2C_SMBUS_BYTE_DATA:
510                 outb_p(((addr & 0x7f) << 1) | (read_write & 0x01),
511                        SMBHSTADD(priv));
512                 outb_p(command, SMBHSTCMD(priv));
513                 if (read_write == I2C_SMBUS_WRITE)
514                         outb_p(data->byte, SMBHSTDAT0(priv));
515                 xact = I801_BYTE_DATA;
516                 break;
517         case I2C_SMBUS_WORD_DATA:
518                 outb_p(((addr & 0x7f) << 1) | (read_write & 0x01),
519                        SMBHSTADD(priv));
520                 outb_p(command, SMBHSTCMD(priv));
521                 if (read_write == I2C_SMBUS_WRITE) {
522                         outb_p(data->word & 0xff, SMBHSTDAT0(priv));
523                         outb_p((data->word & 0xff00) >> 8, SMBHSTDAT1(priv));
524                 }
525                 xact = I801_WORD_DATA;
526                 break;
527         case I2C_SMBUS_BLOCK_DATA:
528                 outb_p(((addr & 0x7f) << 1) | (read_write & 0x01),
529                        SMBHSTADD(priv));
530                 outb_p(command, SMBHSTCMD(priv));
531                 block = 1;
532                 break;
533         case I2C_SMBUS_I2C_BLOCK_DATA:
534                 /* NB: page 240 of ICH5 datasheet shows that the R/#W
535                  * bit should be cleared here, even when reading */
536                 outb_p((addr & 0x7f) << 1, SMBHSTADD(priv));
537                 if (read_write == I2C_SMBUS_READ) {
538                         /* NB: page 240 of ICH5 datasheet also shows
539                          * that DATA1 is the cmd field when reading */
540                         outb_p(command, SMBHSTDAT1(priv));
541                 } else
542                         outb_p(command, SMBHSTCMD(priv));
543                 block = 1;
544                 break;
545         default:
546                 dev_err(&priv->pci_dev->dev, "Unsupported transaction %d\n",
547                         size);
548                 return -EOPNOTSUPP;
549         }
550
551         if (hwpec)      /* enable/disable hardware PEC */
552                 outb_p(inb_p(SMBAUXCTL(priv)) | SMBAUXCTL_CRC, SMBAUXCTL(priv));
553         else
554                 outb_p(inb_p(SMBAUXCTL(priv)) & (~SMBAUXCTL_CRC),
555                        SMBAUXCTL(priv));
556
557         if (block)
558                 ret = i801_block_transaction(priv, data, read_write, size,
559                                              hwpec);
560         else
561                 ret = i801_transaction(priv, xact | ENABLE_INT9);
562
563         /* Some BIOSes don't like it when PEC is enabled at reboot or resume
564            time, so we forcibly disable it after every transaction. Turn off
565            E32B for the same reason. */
566         if (hwpec || block)
567                 outb_p(inb_p(SMBAUXCTL(priv)) &
568                        ~(SMBAUXCTL_CRC | SMBAUXCTL_E32B), SMBAUXCTL(priv));
569
570         if (block)
571                 return ret;
572         if (ret)
573                 return ret;
574         if ((read_write == I2C_SMBUS_WRITE) || (xact == I801_QUICK))
575                 return 0;
576
577         switch (xact & 0x7f) {
578         case I801_BYTE: /* Result put in SMBHSTDAT0 */
579         case I801_BYTE_DATA:
580                 data->byte = inb_p(SMBHSTDAT0(priv));
581                 break;
582         case I801_WORD_DATA:
583                 data->word = inb_p(SMBHSTDAT0(priv)) +
584                              (inb_p(SMBHSTDAT1(priv)) << 8);
585                 break;
586         }
587         return 0;
588 }
589
590
591 static u32 i801_func(struct i2c_adapter *adapter)
592 {
593         struct i801_priv *priv = i2c_get_adapdata(adapter);
594
595         return I2C_FUNC_SMBUS_QUICK | I2C_FUNC_SMBUS_BYTE |
596                I2C_FUNC_SMBUS_BYTE_DATA | I2C_FUNC_SMBUS_WORD_DATA |
597                I2C_FUNC_SMBUS_BLOCK_DATA | I2C_FUNC_SMBUS_WRITE_I2C_BLOCK |
598                ((priv->features & FEATURE_SMBUS_PEC) ? I2C_FUNC_SMBUS_PEC : 0) |
599                ((priv->features & FEATURE_I2C_BLOCK_READ) ?
600                 I2C_FUNC_SMBUS_READ_I2C_BLOCK : 0);
601 }
602
603 static const struct i2c_algorithm smbus_algorithm = {
604         .smbus_xfer     = i801_access,
605         .functionality  = i801_func,
606 };
607
608 static const struct pci_device_id i801_ids[] = {
609         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801AA_3) },
610         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801AB_3) },
611         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801BA_2) },
612         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801CA_3) },
613         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801DB_3) },
614         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_82801EB_3) },
615         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ESB_4) },
616         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ICH6_16) },
617         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ICH7_17) },
618         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ESB2_17) },
619         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ICH8_5) },
620         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ICH9_6) },
621         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_EP80579_1) },
622         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ICH10_4) },
623         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_ICH10_5) },
624         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_5_3400_SERIES_SMBUS) },
625         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_COUGARPOINT_SMBUS) },
626         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS) },
627         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS_IDF0) },
628         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS_IDF1) },
629         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_PATSBURG_SMBUS_IDF2) },
630         { PCI_DEVICE(PCI_VENDOR_ID_INTEL, PCI_DEVICE_ID_INTEL_DH89XXCC_SMBUS) },
631         { 0, }
632 };
633
634 MODULE_DEVICE_TABLE(pci, i801_ids);
635
636 #if defined CONFIG_INPUT_APANEL || defined CONFIG_INPUT_APANEL_MODULE
637 static unsigned char apanel_addr;
638
639 /* Scan the system ROM for the signature "FJKEYINF" */
640 static __init const void __iomem *bios_signature(const void __iomem *bios)
641 {
642         ssize_t offset;
643         const unsigned char signature[] = "FJKEYINF";
644
645         for (offset = 0; offset < 0x10000; offset += 0x10) {
646                 if (check_signature(bios + offset, signature,
647                                     sizeof(signature)-1))
648                         return bios + offset;
649         }
650         return NULL;
651 }
652
653 static void __init input_apanel_init(void)
654 {
655         void __iomem *bios;
656         const void __iomem *p;
657
658         bios = ioremap(0xF0000, 0x10000); /* Can't fail */
659         p = bios_signature(bios);
660         if (p) {
661                 /* just use the first address */
662                 apanel_addr = readb(p + 8 + 3) >> 1;
663         }
664         iounmap(bios);
665 }
666 #else
667 static void __init input_apanel_init(void) {}
668 #endif
669
670 #if defined CONFIG_SENSORS_FSCHMD || defined CONFIG_SENSORS_FSCHMD_MODULE
671 struct dmi_onboard_device_info {
672         const char *name;
673         u8 type;
674         unsigned short i2c_addr;
675         const char *i2c_type;
676 };
677
678 static struct dmi_onboard_device_info __devinitdata dmi_devices[] = {
679         { "Syleus", DMI_DEV_TYPE_OTHER, 0x73, "fscsyl" },
680         { "Hermes", DMI_DEV_TYPE_OTHER, 0x73, "fscher" },
681         { "Hades",  DMI_DEV_TYPE_OTHER, 0x73, "fschds" },
682 };
683
684 static void __devinit dmi_check_onboard_device(u8 type, const char *name,
685                                                struct i2c_adapter *adap)
686 {
687         int i;
688         struct i2c_board_info info;
689
690         for (i = 0; i < ARRAY_SIZE(dmi_devices); i++) {
691                 /* & ~0x80, ignore enabled/disabled bit */
692                 if ((type & ~0x80) != dmi_devices[i].type)
693                         continue;
694                 if (strcasecmp(name, dmi_devices[i].name))
695                         continue;
696
697                 memset(&info, 0, sizeof(struct i2c_board_info));
698                 info.addr = dmi_devices[i].i2c_addr;
699                 strlcpy(info.type, dmi_devices[i].i2c_type, I2C_NAME_SIZE);
700                 i2c_new_device(adap, &info);
701                 break;
702         }
703 }
704
705 /* We use our own function to check for onboard devices instead of
706    dmi_find_device() as some buggy BIOS's have the devices we are interested
707    in marked as disabled */
708 static void __devinit dmi_check_onboard_devices(const struct dmi_header *dm,
709                                                 void *adap)
710 {
711         int i, count;
712
713         if (dm->type != 10)
714                 return;
715
716         count = (dm->length - sizeof(struct dmi_header)) / 2;
717         for (i = 0; i < count; i++) {
718                 const u8 *d = (char *)(dm + 1) + (i * 2);
719                 const char *name = ((char *) dm) + dm->length;
720                 u8 type = d[0];
721                 u8 s = d[1];
722
723                 if (!s)
724                         continue;
725                 s--;
726                 while (s > 0 && name[0]) {
727                         name += strlen(name) + 1;
728                         s--;
729                 }
730                 if (name[0] == 0) /* Bogus string reference */
731                         continue;
732
733                 dmi_check_onboard_device(type, name, adap);
734         }
735 }
736 #endif
737
738 static int __devinit i801_probe(struct pci_dev *dev,
739                                 const struct pci_device_id *id)
740 {
741         unsigned char temp;
742         int err, i;
743         struct i801_priv *priv;
744
745         priv = kzalloc(sizeof(*priv), GFP_KERNEL);
746         if (!priv)
747                 return -ENOMEM;
748
749         i2c_set_adapdata(&priv->adapter, priv);
750         priv->adapter.owner = THIS_MODULE;
751         priv->adapter.class = I2C_CLASS_HWMON | I2C_CLASS_SPD;
752         priv->adapter.algo = &smbus_algorithm;
753
754         priv->pci_dev = dev;
755         switch (dev->device) {
756         default:
757                 priv->features |= FEATURE_I2C_BLOCK_READ;
758                 /* fall through */
759         case PCI_DEVICE_ID_INTEL_82801DB_3:
760                 priv->features |= FEATURE_SMBUS_PEC;
761                 priv->features |= FEATURE_BLOCK_BUFFER;
762                 /* fall through */
763         case PCI_DEVICE_ID_INTEL_82801CA_3:
764         case PCI_DEVICE_ID_INTEL_82801BA_2:
765         case PCI_DEVICE_ID_INTEL_82801AB_3:
766         case PCI_DEVICE_ID_INTEL_82801AA_3:
767                 break;
768         }
769
770         /* Disable features on user request */
771         for (i = 0; i < ARRAY_SIZE(i801_feature_names); i++) {
772                 if (priv->features & disable_features & (1 << i))
773                         dev_notice(&dev->dev, "%s disabled by user\n",
774                                    i801_feature_names[i]);
775         }
776         priv->features &= ~disable_features;
777
778         err = pci_enable_device(dev);
779         if (err) {
780                 dev_err(&dev->dev, "Failed to enable SMBus PCI device (%d)\n",
781                         err);
782                 goto exit;
783         }
784
785         /* Determine the address of the SMBus area */
786         priv->smba = pci_resource_start(dev, SMBBAR);
787         if (!priv->smba) {
788                 dev_err(&dev->dev, "SMBus base address uninitialized, "
789                         "upgrade BIOS\n");
790                 err = -ENODEV;
791                 goto exit;
792         }
793
794         err = acpi_check_resource_conflict(&dev->resource[SMBBAR]);
795         if (err) {
796                 err = -ENODEV;
797                 goto exit;
798         }
799
800         err = pci_request_region(dev, SMBBAR, i801_driver.name);
801         if (err) {
802                 dev_err(&dev->dev, "Failed to request SMBus region "
803                         "0x%lx-0x%Lx\n", priv->smba,
804                         (unsigned long long)pci_resource_end(dev, SMBBAR));
805                 goto exit;
806         }
807
808         pci_read_config_byte(priv->pci_dev, SMBHSTCFG, &temp);
809         priv->original_hstcfg = temp;
810         temp &= ~SMBHSTCFG_I2C_EN;      /* SMBus timing */
811         if (!(temp & SMBHSTCFG_HST_EN)) {
812                 dev_info(&dev->dev, "Enabling SMBus device\n");
813                 temp |= SMBHSTCFG_HST_EN;
814         }
815         pci_write_config_byte(priv->pci_dev, SMBHSTCFG, temp);
816
817         if (temp & SMBHSTCFG_SMB_SMI_EN)
818                 dev_dbg(&dev->dev, "SMBus using interrupt SMI#\n");
819         else
820                 dev_dbg(&dev->dev, "SMBus using PCI Interrupt\n");
821
822         /* Clear special mode bits */
823         if (priv->features & (FEATURE_SMBUS_PEC | FEATURE_BLOCK_BUFFER))
824                 outb_p(inb_p(SMBAUXCTL(priv)) &
825                        ~(SMBAUXCTL_CRC | SMBAUXCTL_E32B), SMBAUXCTL(priv));
826
827         /* set up the sysfs linkage to our parent device */
828         priv->adapter.dev.parent = &dev->dev;
829
830         /* Retry up to 3 times on lost arbitration */
831         priv->adapter.retries = 3;
832
833         snprintf(priv->adapter.name, sizeof(priv->adapter.name),
834                 "SMBus I801 adapter at %04lx", priv->smba);
835         err = i2c_add_adapter(&priv->adapter);
836         if (err) {
837                 dev_err(&dev->dev, "Failed to add SMBus adapter\n");
838                 goto exit_release;
839         }
840
841         /* Register optional slaves */
842 #if defined CONFIG_INPUT_APANEL || defined CONFIG_INPUT_APANEL_MODULE
843         if (apanel_addr) {
844                 struct i2c_board_info info;
845
846                 memset(&info, 0, sizeof(struct i2c_board_info));
847                 info.addr = apanel_addr;
848                 strlcpy(info.type, "fujitsu_apanel", I2C_NAME_SIZE);
849                 i2c_new_device(&priv->adapter, &info);
850         }
851 #endif
852 #if defined CONFIG_SENSORS_FSCHMD || defined CONFIG_SENSORS_FSCHMD_MODULE
853         if (dmi_name_in_vendors("FUJITSU"))
854                 dmi_walk(dmi_check_onboard_devices, &priv->adapter);
855 #endif
856
857         pci_set_drvdata(dev, priv);
858         return 0;
859
860 exit_release:
861         pci_release_region(dev, SMBBAR);
862 exit:
863         kfree(priv);
864         return err;
865 }
866
867 static void __devexit i801_remove(struct pci_dev *dev)
868 {
869         struct i801_priv *priv = pci_get_drvdata(dev);
870
871         i2c_del_adapter(&priv->adapter);
872         pci_write_config_byte(dev, SMBHSTCFG, priv->original_hstcfg);
873         pci_release_region(dev, SMBBAR);
874         pci_set_drvdata(dev, NULL);
875         kfree(priv);
876         /*
877          * do not call pci_disable_device(dev) since it can cause hard hangs on
878          * some systems during power-off (eg. Fujitsu-Siemens Lifebook E8010)
879          */
880 }
881
882 #ifdef CONFIG_PM
883 static int i801_suspend(struct pci_dev *dev, pm_message_t mesg)
884 {
885         struct i801_priv *priv = pci_get_drvdata(dev);
886
887         pci_save_state(dev);
888         pci_write_config_byte(dev, SMBHSTCFG, priv->original_hstcfg);
889         pci_set_power_state(dev, pci_choose_state(dev, mesg));
890         return 0;
891 }
892
893 static int i801_resume(struct pci_dev *dev)
894 {
895         pci_set_power_state(dev, PCI_D0);
896         pci_restore_state(dev);
897         return pci_enable_device(dev);
898 }
899 #else
900 #define i801_suspend NULL
901 #define i801_resume NULL
902 #endif
903
904 static struct pci_driver i801_driver = {
905         .name           = "i801_smbus",
906         .id_table       = i801_ids,
907         .probe          = i801_probe,
908         .remove         = __devexit_p(i801_remove),
909         .suspend        = i801_suspend,
910         .resume         = i801_resume,
911 };
912
913 static int __init i2c_i801_init(void)
914 {
915         input_apanel_init();
916         return pci_register_driver(&i801_driver);
917 }
918
919 static void __exit i2c_i801_exit(void)
920 {
921         pci_unregister_driver(&i801_driver);
922 }
923
924 MODULE_AUTHOR("Mark D. Studebaker <mdsxyz123@yahoo.com>, "
925               "Jean Delvare <khali@linux-fr.org>");
926 MODULE_DESCRIPTION("I801 SMBus driver");
927 MODULE_LICENSE("GPL");
928
929 module_init(i2c_i801_init);
930 module_exit(i2c_i801_exit);