* Re: [lm-sensors] SMSC Super I/O: unknown chip with ID 0x8902 (was:
2008-01-14 14:47 [lm-sensors] SMSC Super I/O: unknown chip with ID 0x8902 (was: lm85 Andrew Voznytsa
` (11 preceding siblings ...)
2008-01-20 22:15 ` Juerg Haefliger
@ 2008-01-30 5:22 ` Juerg Haefliger
2008-01-30 13:18 ` Andrew Voznytsa
` (8 subsequent siblings)
21 siblings, 0 replies; 23+ messages in thread
From: Juerg Haefliger @ 2008-01-30 5:22 UTC (permalink / raw)
To: lm-sensors
[-- Attachment #1: Type: text/plain, Size: 4122 bytes --]
Hi Andrew,
Could you run the attached script and post the output? It should
correctly identify the SCH5027.
...juerg
On Jan 18, 2008 7:25 AM, Andrew Voznytsa <andrew.voznytsa@gmail.com> wrote:
>
> Hi Juerg,
>
> > > > > > > > > Trying family `SMSC'...
> > Yes
> > > > > > > > >
> > > > > > > > > Found unknown chip with ID 0x8902
> > > > > > > >
> > > > > > > > This is indeed unknown. Can you check the markings on the chip
> > so
> > > > that
> > > > > > > > we know what we're dealing with? From the product picture my
> > guess
> > > > is
> > > > > > > > it's the chip in the QFP package close to the IDE connector.
> > It
> > > > should
> > > > > > > > read something like SMSC xyz.
> > > > > > >
> > > > > > > There is chip marked SMSC SCH-5027D(not sure that D, might be
> > 0)-NW
> > > > > > >
> > > > > > > According to spec which comes with MB it should be SMSC SC-5027D
> > > > > >
> > > > > > Can you run
> > > > > > i2cdetect -y 0
> > > > > >
> > > > >
> > > > >
> > > > > Of course - here is output:
> > > > >
> > > > > 0 1 2 3 4 5 6 7 8 9 a b c d e f
> > > > > 00: -- -- -- -- -- 08 -- -- -- -- -- -- --
> > > > > 10: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
> > > > > 20: -- -- -- -- -- -- -- -- -- -- -- -- -- -- UU --
> > > > > 30: 30 31 32 33 -- -- -- -- -- -- -- -- -- -- -- --
> > > > > 40: -- -- -- -- 44 -- -- -- -- -- -- -- -- -- -- --
> > > > > 50: 50 51 52 53 -- -- -- -- -- -- -- -- -- -- -- --
> > > > > 60: -- 61 -- 63 64 -- -- -- -- 69 -- -- -- -- -- --
> > > > > 70: -- -- -- -- -- -- -- --
> > > >
> > > > OK, I figured it out, I believe :-) I received the datasheet for the
> > > > SCH5027 from SMSC and after a quick glance at it, it looks like the
> > > > hardware monitoring features of the DME1737, SCH5027 and EMC6D10x are
> > > > identical but they advertise themselves differently. In your case, the
> > > > chip is detected as a EMC6D10x and sensors-detect suggests the lm85
> > > > driver. However, I believe the dme1737 driver is more appropriate. I
> > > > will take a closer look at the various datasheets over the next couple
> > > > of days to confirm my theory. In the meantime, you can try the
> > > > following:
> > > > 1) remove the lm85 driver (rmmod lm85)
> > > > 2) force the dme1737 driver (modprobe dme1737 force=0,0x2e)
> > > > 3) post the dme1737-related messages in /var/log/messages to the
> > mailing
> > > > list
> > >
> > > Here is output:
> > >
> > > Jan 18 16:09:12 farm dme1737 0-002e: Failed to query Super-IO for
> > optional
> > > features.
> >
> > Ah yes, the dme1737 driver doesn't know anything about the SCH5027
> > Super-IO so it can't determine if fans 5&6 and PWMs 5&6 are
> > configured.
> >
> >
> > > Jan 18 16:09:12 farm dme1737 0-002e: Optional features: pwm3=yes,
> > pwm5=no,
> > > pwm6=no, fan3=yes, fan4=yes, fan5=no, fan6=no.
> >
> > If the BIOS shows 6 fans, fans 5&6 should become available once the
> > driver is fixed to recognize the SCH5027.
> >
> >
> > > Jan 18 16:09:12 farm i2c-adapter i2c-0: Found a DME1737 chip at 0x2e
> > (rev
> > > 0x00)
> > >
> > > >
> > > > Note that the SCH5027 only supports 4 fans, so you won't see fan5&6.
> > > > How many fans do you have in the machine? Can you see RPMs for all of
> > > > them in the BIOS?
> >
> > Correction: This is not true. The SCH5027 supports 6 fans, just like
> > the dme1737.
> >
> >
> > > I've 2 fans - CPU (fan1) and chassis (fan5). They are connected as
> > Intel's
> > > manual says.
> > >
> > > BIOS shows 6 fans - it shows some (reasonable) RPMs for fans1, 5 and
> > zero
> > > for rest (nothing attached there). BIOS is able to control RPMs itself,
> > > depending on CPU, chassis and DIMM temperature sensors.
> >
> > Again, I'll take a look at the datasheets and if the chips are indeed
> > compatible, I'll fix the dme1737 driver to support the sch5027. I
> > don't have access to a test machine until next week, so it has to wait
> > until then.
> >
>
> Just let me know if I can help with testing - I can't give access to my
> S3000AH-based system but definitely can run some tests, etc.
>
> All the best,
> Andrew
>
>
>
[-- Attachment #2: sensors-detect --]
[-- Type: application/octet-stream, Size: 179400 bytes --]
#!/usr/bin/perl -w
#
# sensors-detect - Detect PCI bus and chips
# Copyright (C) 1998 - 2002 Frodo Looijaard <frodol@dds.nl>
# Copyright (C) 2004 - 2007 Jean Delvare <khali@linux-fr.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# TODO: Better handling of chips with several addresses
# A Perl wizard really ought to look upon this; the PCI and I2C stuff should
# each be put in a separate file, using modules and packages. That is beyond
# me.
require 5.004;
use strict;
use Fcntl;
use POSIX;
use File::Basename;
# We will call modprobe, which typically lives in either /sbin,
# /usr/sbin or /usr/local/bin. So make sure these are all in the PATH.
foreach ('/usr/sbin', '/usr/local/sbin', '/sbin') {
$ENV{PATH} = "$_:".$ENV{PATH}
unless $ENV{PATH} =~ m/(^|:)$_\/?(:|$)/;
}
#########################
# CONSTANT DECLARATIONS #
#########################
use vars qw(@pci_adapters @chip_ids $i2c_addresses_to_scan @superio_ids
@cpu_ids $revision);
$revision = '$Revision: 5108 $ ($Date: 2008-01-22 04:22:47 -0800 (Tue, 22 Jan 2008) $)';
$revision =~ s/\$\w+: (.*?) \$/$1/g;
$revision =~ s/ \([^()]*\)//;
# This is the list of SMBus or I2C adapters we recognize by their PCI
# signature. This is an easy and fast way to determine which SMBus or I2C
# adapters should be present.
# Each entry must have a vendid (Vendor ID), devid (Device ID) and
# procid (string as appears in /proc/pci; see linux/driver/pci,
# either pci.c or oldproc.c). If no driver is written yet, set the
# driver (Driver Name) field to "to-be-written".
# The match (Match Description) field should contain a regular expression
# matching the adapter name as it would appear in /proc/bus/i2c or /sys.
@pci_adapters = (
{
vendid => 0x8086,
devid => 0x7113,
procid => "Intel 82371AB PIIX4 ACPI",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x8086,
devid => 0x7603,
procid => "Intel 82372FB PIIX5 ACPI",
driver => "to-be-tested",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x8086,
devid => 0x719b,
procid => "Intel 82443MX Mobile",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x8086,
devid => 0x2413,
procid => "Intel 82801AA ICH",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x2423,
procid => "Intel 82801AB ICH0",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x2443,
procid => "Intel 82801BA ICH2",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x2483,
procid => "Intel 82801CA/CAM ICH3",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x24C3,
procid => "Intel 82801DB ICH4",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x24D3,
procid => "Intel 82801EB ICH5",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x25A4,
procid => "Intel 6300ESB",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x269B,
procid => "Intel Enterprise Southbridge - ESB2",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x8086,
devid => 0x266A,
procid => "Intel 82801FB ICH6",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x27DA,
procid => "Intel 82801G ICH7",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x8086,
devid => 0x283E,
procid => "Intel 82801H ICH8",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x8086,
devid => 0x2930,
procid => "Intel ICH9",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x8086,
devid => 0x5032,
procid => "Intel Tolapai",
driver => "i2c-i801",
match => qr/^SMBus I801 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x1106,
devid => 0x3040,
procid => "VIA Technologies VT82C586B Apollo ACPI",
driver => "i2c-via",
match => qr/^VIA i2c/,
} ,
{
vendid => 0x1106,
devid => 0x3050,
procid => "VIA Technologies VT82C596 Apollo ACPI",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3051,
procid => "VIA Technologies VT82C596B ACPI",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3057,
procid => "VIA Technologies VT82C686 Apollo ACPI",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3074,
procid => "VIA Technologies VT8233 VLink South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3147,
procid => "VIA Technologies VT8233A South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3177,
procid => "VIA Technologies VT8233A/8235 South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3227,
procid => "VIA Technologies VT8237 South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3337,
procid => "VIA Technologies VT8237A South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x8235,
procid => "VIA Technologies VT8231 South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x3287,
procid => "VIA Technologies VT8251 South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
} ,
{
vendid => 0x1106,
devid => 0x8324,
procid => "VIA Technologies CX700 South Bridge",
driver => "i2c-viapro",
match => qr/^SMBus V(IA|ia) Pro adapter at/,
},
{
vendid => 0x1039,
devid => 0x5597,
procid => "Silicon Integrated Systems SIS5581/5582/5597/5598 (To be written - Do not use 5595 drivers)",
driver => "to-be-written",
} ,
{
vendid => 0x1039,
devid => 0x5598,
procid => "Silicon Integrated Systems SIS5598 (To be written - Do not use 5595 drivers)",
driver => "to-be-written",
} ,
{
vendid => 0x1039,
devid => 0x0540,
procid => "Silicon Integrated Systems SIS540 (To be written - Do not use 5595 drivers)",
driver => "to-be-written",
} ,
{
vendid => 0x1039,
devid => 0x0630,
procid => "Silicon Integrated Systems SIS630",
driver => "i2c-sis630",
match => qr/^SMBus SIS630 adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x1039,
devid => 0x0730,
procid => "Silicon Integrated Systems SIS730",
driver => "i2c-sis630",
match => qr/^SMBus SIS630 adapter at [0-9a-f]{4}/,
} ,
#
# Both Ali chips below have same PCI ID. Can't be helped. Only one should load.
#
{
vendid => 0x10b9,
devid => 0x7101,
procid => "Acer Labs 1533/1543",
driver => "i2c-ali15x3",
match => qr/^SMBus ALI15X3 adapter at/,
},
{
vendid => 0x10b9,
devid => 0x7101,
procid => "Acer Labs 1535",
driver => "i2c-ali1535",
match => qr/^SMBus ALI1535 adapter at/,
},
{
vendid => 0x10b9,
devid => 0x1563,
procid => "Acer Labs 1563",
driver => "i2c-ali1563",
match => qr/^SMBus ALi 1563 Adapter @/,
},
{
vendid => 0x106b,
devid => 0x000e,
procid => "Apple Computer Inc. Hydra Mac I/O",
driver => "i2c-hydra",
match => qr/^Hydra i2c/,
},
{
vendid => 0x1022,
devid => 0x740b,
procid => "AMD-756 Athlon ACPI",
driver => "i2c-amd756",
match => qr/^SMBus AMD756 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x1022,
devid => 0x7413,
procid => "AMD-766 Athlon ACPI",
driver => "i2c-amd756",
match => qr/^SMBus AMD766 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x1022,
devid => 0x7443,
procid => "AMD-768 System Management",
driver => "i2c-amd756",
match => qr/^SMBus AMD768 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x1022,
devid => 0x746b,
procid => "AMD-8111 ACPI",
driver => "i2c-amd756",
match => qr/^SMBus AMD8111 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x1022,
devid => 0x746a,
procid => "AMD-8111 SMBus 2.0",
driver => "i2c-amd8111",
match => qr/^SMBus2 AMD8111 adapter at [0-9a-f]{4}/,
},
{
vendid => 0x102b,
devid => 0x0519,
procid => "MGA 2064W [Millennium]",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x051a,
procid => "MGA 1064SG [Mystique]",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x051b,
procid => "MGA 2164W [Millennium II]",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x051e,
procid => "MGA 1064SG [Mystique] AGP",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x051f,
procid => "MGA 2164W [Millennium II] AGP",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x1000,
procid => "MGA G100 [Productiva]",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x1001,
procid => "MGA G100 [Productiva] AGP",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x0520,
procid => "MGA G200",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x0521,
procid => "MGA G200 AGP",
driver => "i2c-matroxfb",
match => qr/^DDC:fb[0-9]{1,2}/,
},
{
vendid => 0x102b,
devid => 0x0525,
procid => "MGA G400 AGP",
driver => "i2c-matroxfb",
match => qr/^(DDC,MAVEN):fb[0-9]{1,2}/,
},
{
vendid => 0x121a,
devid => 0x0005,
procid => "3Dfx Voodoo3",
driver => "i2c-voodoo3",
match => qr/^(I2C|DDC) Voodoo3\/Banshee adapter/,
},
{
vendid => 0x121a,
devid => 0x0003,
procid => "3Dfx Voodoo Banshee",
driver => "i2c-voodoo3",
match => qr/^(I2C|DDC) Voodoo3\/Banshee adapter/,
},
{
vendid => 0x8086,
devid => 0x7121,
procid => "Intel 82810 GMCH",
driver => "i2c-i810",
match => qr/^I810/,
} ,
{
vendid => 0x8086,
devid => 0x7123,
procid => "Intel 82810-DC100 GMCH",
driver => "i2c-i810",
match => qr/^I810/ ,
} ,
{
vendid => 0x8086,
devid => 0x7125,
procid => "Intel 82810E GMCH",
driver => "i2c-i810",
match => qr/^I810/,
} ,
{
vendid => 0x8086,
devid => 0x1132,
procid => "Intel 82815 GMCH",
driver => "i2c-i810",
match => qr/^I810/,
} ,
{
vendid => 0x8086,
devid => 0x2562,
procid => "Intel 82845G GMCH",
driver => "i2c-i810",
match => qr/^I810/,
},
{
vendid => 0x10de,
devid => 0x01b4,
procid => "nVidia nForce SMBus",
driver => "i2c-amd756",
match => qr/^SMBus nVidia nForce adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x10de,
devid => 0x0064,
procid => "nVidia Corporation nForce2 SMBus (MCP)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x0084,
procid => "nVidia Corporation nForce2 Ultra 400 SMBus (MCP)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x00D4,
procid => "nVidia Corporation nForce3 Pro150 SMBus (MCP)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x00E4,
procid => "nVidia Corporation nForce3 250Gb SMBus (MCP)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x0052,
procid => "nVidia Corporation nForce4 SMBus (MCP)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x0034,
procid => "nVidia Corporation nForce4 SMBus (MCP-04)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x0264,
procid => "nVidia Corporation nForce4 SMBus (MCP51)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x0368,
procid => "nVidia Corporation nForce4 SMBus (MCP55)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x03eb,
procid => "nVidia Corporation nForce4 SMBus (MCP61)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x10de,
devid => 0x0446,
procid => "nVidia Corporation nForce4 SMBus (MCP65)",
driver => "i2c-nforce2",
match => qr/^SMBus nForce2 adapter at /,
},
{
vendid => 0x1166,
devid => 0x0200,
procid => "ServerWorks OSB4 South Bridge",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x1055,
devid => 0x9463,
procid => "SMSC Victory66 South Bridge",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x1166,
devid => 0x0201,
procid => "ServerWorks CSB5 South Bridge",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x1166,
devid => 0x0203,
procid => "ServerWorks CSB6 South Bridge",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x1166,
devid => 0x0205,
procid => "ServerWorks HT-1000 South Bridge",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
},
{
vendid => 0x1283,
devid => 0x8172,
procid => "ITE 8172G MIPS/SH4 Support Chip",
driver => "i2c-adap-ite",
match => qr/^ITE IIC adapter/,
} ,
{
vendid => 0x5333,
devid => 0x8A22,
procid => "S3 Savage 4",
driver => "i2c-savage4",
match => qr/^I2C Savage4 adapter/,
} ,
{
vendid => 0x5333,
devid => 0x9102,
procid => "S3 Savage 2000",
driver => "i2c-savage4",
match => qr/^I2C Savage4 adapter/,
} ,
{
vendid => 0x5333,
devid => 0x8A25,
procid => "S3 ProSavage PM",
driver => "i2c-prosavage",
match => qr/^ProSavage I2C bus at /,
} ,
{
vendid => 0x5333,
devid => 0x8D04,
procid => "S3 ProSavage8",
driver => "i2c-prosavage",
match => qr/^ProSavage I2C bus at /,
} ,
{
vendid => 0x1002,
devid => 0x4353,
procid => "ATI Technologies Inc ATI SMBus",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x1002,
devid => 0x4363,
procid => "ATI Technologies Inc ATI SMBus",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x1002,
devid => 0x4372,
procid => "ATI Technologies Inc IXP SB400 SMBus Controller",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x1002,
devid => 0x4385,
procid => "ATI Technologies Inc SB600 SMBus",
driver => "i2c-piix4",
match => qr/^SMBus PIIX4 adapter at /,
} ,
{
vendid => 0x100B,
devid => 0x0500,
procid => "SCx200 Bridge",
driver => "scx200_acb",
match => qr/^(NatSemi SCx200 ACCESS\.bus|SCx200 ACB\d+) /,
},
{
vendid => 0x100B,
devid => 0x0510,
procid => "SC1100 Bridge",
driver => "scx200_acb",
match => qr/^(NatSemi SCx200 ACCESS\.bus|SCx200 ACB\d+) /,
},
{
vendid => 0x100B,
devid => 0x002B,
procid => "CS5535 ISA bridge",
driver => "scx200_acb",
match => qr/^CS5535 ACB\d+ /,
},
{
vendid => 0x1022,
devid => 0x2090,
procid => "CS5536 [Geode companion] ISA",
driver => "scx200_acb",
match => qr/^CS553[56] ACB\d+ /,
},
);
# The following entries used to appear directly in @pci_adapters.
# Because of the tendency of SiS chipsets to have their real PCI
# IDs obscured, we have to qualify these with a custom detection
# routine before we add them to the @pci_adapters list.
#
use vars qw(@pci_adapters_sis5595 @pci_adapters_sis645 @pci_adapters_sis96x);
@pci_adapters_sis5595 = (
{
vendid => 0x1039,
devid => 0x0008,
procid => "Silicon Integrated Systems SIS5595",
driver => "i2c-sis5595",
match => qr/^SMBus SIS5595 adapter at [0-9a-f]{4}/,
} ,
);
@pci_adapters_sis645 = (
{
vendid => 0x1039,
devid => 0x0008,
procid => "Silicon Integrated Systems SIS5595",
driver => "i2c-sis645",
match => qr/^SiS645 SMBus adapter at [0-9a-f]{4}/,
} ,
{
vendid => 0x1039,
devid => 0x0016,
procid => "Silicon Integrated Systems SMBus Controller",
driver => "i2c-sis645",
match => qr/^SiS645 SMBus adapter at 0x[0-9a-f]{4}/,
} ,
{
vendid => 0x1039,
devid => 0x0018,
procid => "Silicon Integrated Systems 85C503/5513 (LPC Bridge)",
driver => "i2c-sis645",
match => qr/^SiS645 SMBus adapter at 0x[0-9a-f]{4}/,
} ,
);
@pci_adapters_sis96x = (
{
vendid => 0x1039,
devid => 0x0016,
procid => "Silicon Integrated Systems SMBus Controller",
driver => "i2c-sis96x",
match => qr/^SiS96x SMBus adapter at 0x[0-9a-f]{4}/,
} ,
);
# This is a list of all recognized chips.
# Each entry must have the following fields:
# name: The full chip name
# driver: The driver name (without .o extension). Put in exactly
# "to-be-written" if it is not yet available. Put in exactly
# "not-a-sensor" if it is not a hardware monitoring chip.
# Put in exactly "use-isa-instead" if no i2c driver will be written.
# i2c_addrs (optional): For I2C chips, the range of valid I2C addresses to
# probe. Recommend avoiding 0x69 because of clock chips.
# i2c_detect (optional): For I2C chips, the function to call to detect
# this chip. The function should take two parameters: an open file
# descriptor to access the bus, and the I2C address to probe.
# isa_addrs (optional): For ISA chips, the range of valid port addresses to
# probe.
# isa_detect (optional): For ISA chips, the function to call to detect
# this chip. The function should take one parameter: the ISA address
# to probe.
# alias_detect (optional): For chips which can be both on the ISA and the
# I2C bus, a function which detectes whether two entries are the same.
# The function should take three parameters: The ISA address, the
# I2C bus number, and the I2C address.
@chip_ids = (
{
name => "Myson MTP008",
driver => "mtp008",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { mtp008_detect(@_); },
} ,
{
name => "National Semiconductor LM78",
driver => "lm78",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { lm78_detect(0, @_); },
isa_addrs => [0x290],
isa_detect => sub { lm78_isa_detect(0, @_); },
alias_detect => sub { lm78_alias_detect(0, @_); },
} ,
{
name => "National Semiconductor LM78-J",
driver => "lm78",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { lm78_detect(1, @_); },
isa_addrs => [0x290],
isa_detect => sub { lm78_isa_detect(1, @_); },
alias_detect => sub { lm78_alias_detect(1, @_); },
} ,
{
name => "National Semiconductor LM79",
driver => "lm78",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { lm78_detect(2, @_); },
isa_addrs => [0x290],
isa_detect => sub { lm78_isa_detect(2, @_); },
alias_detect => sub { lm78_alias_detect(2, @_); },
} ,
{
name => "National Semiconductor LM75",
driver => "lm75",
i2c_addrs => [0x48..0x4f],
i2c_detect => sub { lm75_detect(0, @_); },
},
{
name => "Dallas Semiconductor DS75",
driver => "lm75",
i2c_addrs => [0x48..0x4f],
i2c_detect => sub { lm75_detect(1, @_); },
},
{
name => "National Semiconductor LM77",
driver => "lm77",
i2c_addrs => [0x48..0x4b],
i2c_detect => sub { lm77_detect(@_); },
},
{
name => "National Semiconductor LM80",
driver => "lm80",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { lm80_detect(@_); },
},
{
name => "National Semiconductor LM85 or LM96000",
driver => "lm85",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { lm85_detect(0x01, @_); },
},
{
name => "Analog Devices ADM1027, ADT7460 or ADT7463",
driver => "lm85",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { lm85_detect(0x41, @_); },
},
{
name => "SMSC EMC6D100, EMC6D101 or EMC6D102",
driver => "lm85",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { lm85_detect(0x5c, @_); },
},
{
name => "Analog Devices ADT7462",
driver => "to-be-written",
# The datasheet says addresses 0x5C and 0x58, but I guess these are
# left-aligned values
i2c_addrs => [0x2c, 0x2e],
i2c_detect => sub { adt7467_detect(2, @_); },
},
{
name => "Analog Devices ADT7466",
driver => "to-be-written",
i2c_addrs => [0x4c],
i2c_detect => sub { adt7467_detect(3, @_); },
},
{
name => "Analog Devices ADT7467 or ADT7468",
driver => "to-be-written",
i2c_addrs => [0x2e],
i2c_detect => sub { adt7467_detect(0, @_); },
},
{
name => "Analog Devices ADT7470",
driver => "adt7470",
i2c_addrs => [0x2c, 0x2e, 0x2f],
i2c_detect => sub { adt7467_detect(4, @_); },
},
{
name => "Analog Devices ADT7473",
driver => "to-be-written",
i2c_addrs => [0x2e],
i2c_detect => sub { adt7473_detect(0, @_); },
},
{
name => "Analog Devices ADT7475",
driver => "to-be-written",
i2c_addrs => [0x2e],
i2c_detect => sub { adt7473_detect(1, @_); },
},
{
name => "Analog Devices ADT7476",
driver => "to-be-written",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adt7467_detect(1, @_); },
},
{
name => "Andigilog aSC7511",
driver => "to-be-written",
i2c_addrs => [0x4c],
i2c_detect => sub { andigilog_aSC7511_detect(0, @_); },
},
{
name => "Andigilog aSC7512",
driver => "to-be-written",
i2c_addrs => [0x58],
i2c_detect => sub { andigilog_detect(0, @_); },
},
{
name => "Andigilog aSC7611",
driver => "to-be-written",
i2c_addrs => [0x2c, 0x2d, 0x2e],
i2c_detect => sub { andigilog_detect(1, @_); },
},
{
name => "Andigilog aSC7621",
driver => "to-be-written",
i2c_addrs => [0x2c, 0x2d, 0x2e],
i2c_detect => sub { andigilog_detect(2, @_); },
},
{
name => "National Semiconductor LM87",
driver => "lm87",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { lm87_detect(@_); },
},
{
name => "National Semiconductor LM93",
driver => "lm93",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { lm93_detect(@_); },
},
{
name => "Winbond W83781D",
driver => "w83781d",
i2c_detect => sub { w83781d_detect(0, @_); },
i2c_addrs => [0x28..0x2f],
isa_addrs => [0x290],
isa_detect => sub { w83781d_isa_detect(0, @_); },
alias_detect => sub { w83781d_alias_detect(0, @_); },
} ,
{
name => "Winbond W83782D",
driver => "w83781d",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { w83781d_detect(1, @_); },
isa_addrs => [0x290],
isa_detect => sub { w83781d_isa_detect(1, @_); },
alias_detect => sub { w83781d_alias_detect(1, @_); },
} ,
{
name => "Winbond W83783S",
driver => "w83781d",
i2c_addrs => [0x2d],
i2c_detect => sub { w83781d_detect(2, @_); },
} ,
{
name => "Winbond W83792D",
driver => "w83792d",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { w83781d_detect(8, @_); },
},
{
name => "Winbond W83793R/G",
driver => "w83793",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { w83793_detect(0, @_); },
},
{
name => "Winbond W83791SD",
driver => "not-a-sensor",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { w83791sd_detect(@_); },
},
{
name => "Winbond W83627HF",
driver => "use-isa-instead",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { w83781d_detect(3, @_); },
},
{
name => "Winbond W83627EHF",
driver => "use-isa-instead",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { w83781d_detect(9, @_); },
},
{
name => "Winbond W83627DHG",
driver => "use-isa-instead",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { w83781d_detect(10, @_); },
},
{
name => "Asus AS99127F (rev.1)",
driver => "w83781d",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { w83781d_detect(4, @_); },
} ,
{
name => "Asus AS99127F (rev.2)",
driver => "w83781d",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { w83781d_detect(5, @_); },
} ,
{
name => "Asus ASB100 Bach",
driver => "asb100",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { w83781d_detect(6, @_); },
} ,
{
name => "Asus ASM58 Mozart-2",
driver => "to-be-written",
i2c_addrs => [0x77],
i2c_detect => sub { mozart_detect(0, @_); },
} ,
{
name => "Asus AS2K129R Mozart-2",
driver => "to-be-written",
i2c_addrs => [0x77],
i2c_detect => sub { mozart_detect(1, @_); },
} ,
{
name => "Asus Mozart-2",
driver => "to-be-written",
i2c_addrs => [0x77],
i2c_detect => sub { mozart_detect(2, @_); },
} ,
{
name => "Winbond W83L784R/AR/G",
driver => "to-be-written",
i2c_addrs => [0x2d],
i2c_detect => sub { w83l784r_detect(0, @_); },
} ,
{
name => "Winbond W83L785R/G",
driver => "to-be-written",
i2c_addrs => [0x2d],
i2c_detect => sub { w83l784r_detect(1, @_); },
} ,
{
name => "Winbond W83L786NR/NG/R/G",
driver => "to-be-written",
i2c_addrs => [0x2e, 0x2f],
i2c_detect => sub { w83l784r_detect(2, @_); },
},
{
name => "Winbond W83L785TS-S",
driver => "w83l785ts",
i2c_addrs => [0x2e],
i2c_detect => sub { w83l785ts_detect(0, @_); },
} ,
{
name => "Genesys Logic GL518SM Revision 0x00",
driver => "gl518sm",
i2c_addrs => [0x2c, 0x2d],
i2c_detect => sub { gl518sm_detect(0, @_); },
},
{
name => "Genesys Logic GL518SM Revision 0x80",
driver => "gl518sm",
i2c_addrs => [0x2c, 0x2d],
i2c_detect => sub { gl518sm_detect(1, @_); },
},
{
name => "Genesys Logic GL520SM",
driver => "gl520sm",
i2c_addrs => [0x2c, 0x2d],
i2c_detect => sub { gl520sm_detect(@_); },
},
{
name => "Genesys Logic GL525SM",
driver => "Unwritten (GL525SM)",
i2c_addrs => [0x2d],
i2c_detect => sub { gl525sm_detect(@_); },
},
{
name => "Analog Devices ADM9240",
driver => "adm9240",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { adm9240_detect(0, @_); },
},
{
name => "Dallas Semiconductor DS1621",
driver => "ds1621",
i2c_addrs => [0x48..0x4f],
i2c_detect => sub { ds1621_detect(@_); },
} ,
{
name => "Dallas Semiconductor DS1780",
driver => "adm9240",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { adm9240_detect(1, @_); },
},
{
name => "National Semiconductor LM81",
driver => "adm9240",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { adm9240_detect(2, @_); },
},
{
name => "Analog Devices ADM1026",
driver => "adm1026",
i2c_addrs => [0x2c,0x2d,0x2e],
i2c_detect => sub { adm1026_detect(0, @_); },
},
{
name => "Analog Devices ADM1025",
driver => "adm1025",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adm1025_detect(0, @_); },
},
{
name => "Philips NE1619",
driver => "adm1025",
i2c_addrs => [0x2c..0x2d],
i2c_detect => sub { adm1025_detect(1, @_); },
},
{
name => "Analog Devices ADM1021",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(0, @_); },
},
{
name => "Analog Devices ADM1021A/ADM1023",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(1, @_); },
},
{
name => "Maxim MAX1617",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(2, @_); },
},
{
name => "Maxim MAX1617A",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(3, @_); },
},
{
name => "Maxim MAX1668",
driver => "max1668",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { max1668_detect(0, @_); },
},
{
name => "Maxim MAX1805",
driver => "max1668",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { max1668_detect(1, @_); },
},
{
name => "Maxim MAX1989",
driver => "max1668",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { max1668_detect(2, @_); },
},
{
name => "Maxim MAX6650/MAX6651",
driver => "max6650",
i2c_addrs => [0x1b,0x1f,0x48,0x4b],
i2c_detect => sub { max6650_detect(0, @_); },
},
{
name => "Maxim MAX6655/MAX6656",
driver => "max6655",
i2c_addrs => [0x18..0x1a, 0x29..0x2b, 0x4c..0x4e],
i2c_detect => sub { max6655_detect(0, @_); },
},
{
name => "TI THMC10",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(4, @_); },
},
{
name => "National Semiconductor LM84",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(5, @_); },
},
{
name => "Genesys Logic GL523SM",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(6, @_); },
},
{
name => "Onsemi MC1066",
driver => "adm1021",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { adm1021_detect(7, @_); },
},
{
name => "Maxim MAX1619",
driver => "max1619",
i2c_addrs => [0x18..0x1a, 0x29..0x2b, 0x4c..0x4e],
i2c_detect => sub { max1619_detect(0, @_); },
},
{
name => "National Semiconductor LM82/LM83",
driver => "lm83",
i2c_addrs => [0x18..0x1a,0x29..0x2b,0x4c..0x4e],
i2c_detect => sub { lm83_detect(0, @_); },
},
{
name => "National Semiconductor LM90",
driver => "lm90",
i2c_addrs => [0x4c],
i2c_detect => sub { lm90_detect(0, @_); },
},
{
name => "National Semiconductor LM89/LM99",
driver => "lm90",
i2c_addrs => [0x4c..0x4d],
i2c_detect => sub { lm90_detect(1, @_); },
},
{
name => "National Semiconductor LM86",
driver => "lm90",
i2c_addrs => [0x4c],
i2c_detect => sub { lm90_detect(2, @_); },
},
{
name => "Analog Devices ADM1032",
driver => "lm90",
i2c_addrs => [0x4c..0x4d],
i2c_detect => sub { lm90_detect(3, @_); },
},
{
name => "Maxim MAX6657/MAX6658/MAX6659",
driver => "lm90",
i2c_addrs => [0x4c],
i2c_detect => sub { lm90_detect(4, @_); },
},
{
name => "Maxim MAX6659",
driver => "lm90",
i2c_addrs => [0x4d..0x4e], # 0x4c is handled above
i2c_detect => sub { lm90_detect(4, @_); },
},
{
name => "Maxim MAX6648/MAX6692",
driver => "to-be-written",
i2c_addrs => [0x4c],
i2c_detect => sub { lm90_detect(6, @_); },
},
{
name => "Maxim MAX6680/MAX6681",
driver => "lm90",
i2c_addrs => [0x18..0x1a, 0x29..0x2b, 0x4c..0x4e],
i2c_detect => sub { lm90_detect(7, @_); },
},
{
name => "Winbond W83L771W/G",
driver => "lm90",
i2c_addrs => [0x4c],
i2c_detect => sub { lm90_detect(8, @_); },
},
{
name => "Texas Instruments TMP401",
driver => "tmp401",
i2c_addrs => [0x4c],
i2c_detect => sub { lm90_detect(9, @_); },
},
{
name => "National Semiconductor LM63",
driver => "lm63",
i2c_addrs => [0x4c],
i2c_detect => sub { lm63_detect(1, @_); },
},
{
name => "Fintek F75363SG",
driver => "lm63", # Not yet
i2c_addrs => [0x4c],
i2c_detect => sub { lm63_detect(2, @_); },
},
{
name => "National Semiconductor LM92",
driver => "lm92",
i2c_addrs => [0x48..0x4b],
i2c_detect => sub { lm92_detect(0, @_); },
},
{
name => "National Semiconductor LM76",
driver => "lm92",
i2c_addrs => [0x48..0x4b],
i2c_detect => sub { lm92_detect(1, @_); },
},
{
name => "Maxim MAX6633/MAX6634/MAX6635",
driver => "lm92",
i2c_addrs => [0x40..0x4f],
i2c_detect => sub { lm92_detect(2, @_); },
},
{
name => "Analog Devices ADT7461",
driver => "lm90",
i2c_addrs => [0x4c..0x4d],
i2c_detect => sub { lm90_detect(5, @_); },
},
{
name => "Analog Devices ADM1029",
driver => "adm1029",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { adm1029_detect(0, @_); },
},
{
name => "Analog Devices ADM1030",
driver => "adm1031",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adm1031_detect(0, @_); },
},
{
name => "Analog Devices ADM1031",
driver => "adm1031",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adm1031_detect(1, @_); },
},
{
name => "Analog Devices ADM1033",
driver => "to-be-written",
i2c_addrs => [0x50..0x53],
i2c_detect => sub { adm1034_detect(0, @_); },
},
{
name => "Analog Devices ADM1034",
driver => "to-be-written",
i2c_addrs => [0x50..0x53],
i2c_detect => sub { adm1034_detect(1, @_); },
},
{
name => "Analog Devices ADM1022",
driver => "thmc50",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adm1022_detect(0, @_); },
},
{
name => "Texas Instruments THMC50",
driver => "thmc50",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adm1022_detect(1, @_); },
},
{
name => "Analog Devices ADM1028",
driver => "thmc50",
i2c_addrs => [0x2e],
i2c_detect => sub { adm1022_detect(2, @_); },
},
{
name => "Silicon Integrated Systems SIS5595",
driver => "sis5595",
isa_addrs => [ 0 ],
isa_detect => sub { sis5595_pci_detect(); },
},
{
name => "VIA VT82C686 Integrated Sensors",
driver => "via686a",
isa_addrs => [ 0 ],
isa_detect => sub { via686a_pci_detect(); },
},
{
name => "VIA VT8231 Integrated Sensors",
driver => "vt8231",
isa_addrs => [ 0 ],
isa_detect => sub { via8231_pci_detect(); },
},
{
name => "VIA VT1211 (I2C)",
driver => "use-isa-instead",
i2c_addrs => [0x2d],
i2c_detect => sub { vt1211_i2c_detect(0, @_); },
},
{
name => "ITE IT8712F",
driver => "it87",
i2c_addrs => [0x28..0x2f],
i2c_detect => sub { ite_detect(0, @_); },
},
{
name => "ITE IT8201R/IT8203R/IT8206R/IT8266R",
driver => "not-a-sensor",
i2c_addrs => [0x4e],
i2c_detect => sub { ite_overclock_detect(@_); },
},
{
name => "SPD EEPROM",
driver => "not-a-sensor",
# Can also live at 0x54-0x57, but we don't care: we only check
# for SPD and EDID EEPROMs because some hardware monitoring chips
# can live at 0x50-0x53.
i2c_addrs => [0x50..0x53],
i2c_detect => sub { eeprom_detect(@_); },
},
{
name => "EDID EEPROM",
driver => "not-a-sensor",
i2c_addrs => [0x50..0x53],
i2c_detect => sub { ddcmonitor_detect(@_); },
},
{
name => "FSC Poseidon II",
driver => "to-be-written",
i2c_addrs => [0x73],
i2c_detect => sub { fscpos_detect(@_); },
},
{
name => "FSC Heimdal",
driver => "fschmd",
i2c_addrs => [0x73],
i2c_detect => sub { fschmd_detect(@_); },
},
{
name => "FSC Heracles",
driver => "fschmd",
i2c_addrs => [0x73],
i2c_detect => sub { fschrc_detect(@_); },
},
{
name => "ALi M5879",
driver => "to-be-written",
i2c_addrs => [0x2c..0x2d],
i2c_detect => sub { m5879_detect(@_); },
},
{
name => "SMSC LPC47M15x/192/292/997",
driver => "smsc47m192",
i2c_addrs => [0x2c..0x2d],
i2c_detect => sub { smsc47m192_detect(@_); },
},
{
name => "SMSC DME1737",
driver => "dme1737",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { dme1737_detect(1, @_); },
},
{
name => "SMSC SCH5027D-NW",
driver => "dme1737",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { dme1737_detect(2, @_); },
},
{
name => "Fintek F75111R/RG/N (GPIO)",
driver => "not-a-sensor",
i2c_addrs => [0x4e], # 0x37 not probed
i2c_detect => sub { fintek_detect(1, @_); },
},
{
name => "Fintek F75121R/F75122R/RG (VID+GPIO)",
driver => "to-be-written",
i2c_addrs => [0x4e], # 0x37 not probed
i2c_detect => sub { fintek_detect(2, @_); },
},
{
name => "Fintek F75373S/SG",
driver => "f75375s",
i2c_addrs => [0x2d..0x2e],
i2c_detect => sub { fintek_detect(3, @_); },
},
{
name => "Fintek F75375S/SP",
driver => "f75375s",
i2c_addrs => [0x2d..0x2e],
i2c_detect => sub { fintek_detect(4, @_); },
},
{
name => "Fintek F75387SG/RG",
driver => "to-be-written",
i2c_addrs => [0x2d..0x2e],
i2c_detect => sub { fintek_detect(5, @_); },
},
{
name => "Fintek F75383S/M",
driver => "to-be-written",
i2c_addrs => [0x4c],
i2c_detect => sub { fintek_detect(6, @_); },
},
{
name => "Fintek F75384S/M",
driver => "to-be-written",
i2c_addrs => [0x4d],
i2c_detect => sub { fintek_detect(6, @_); },
},
{
name => "Fintek custom power control IC",
driver => "to-be-written",
i2c_addrs => [0x2f],
i2c_detect => sub { fintek_detect(7, @_); },
},
{
name => "Smart Battery",
driver => "smartbatt",
i2c_addrs => [0x0b],
i2c_detect => sub { smartbatt_detect(@_); },
},
);
# Special case chip information goes here and would be included in
# the chip_special_cases routine below
use vars qw(@chip_kern24_ids @chip_kern26_ids
@chip_oldfsc_ids @chip_fschmd_ids);
@chip_kern24_ids = (
{
name => "Analog Devices ADM1024",
driver => "adm1024",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adm1024_detect(0, @_); },
},
{
name => "Winbond W83791D",
driver => "w83781d",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { w83781d_detect(7, @_); },
},
{
name => "FSC Scylla",
driver => "fscscy",
i2c_addrs => [0x73],
i2c_detect => sub { fscscy_detect(@_); },
},
{
name => "IPMI BMC KCS",
driver => "bmcsensors",
isa_addrs => [0x0ca0],
isa_detect => sub { ipmi_kcs_detect(@_); },
},
{
name => "IPMI BMC SMIC",
driver => "bmcsensors",
isa_addrs => [0x0ca8],
isa_detect => sub { ipmi_smic_detect(@_); },
},
);
@chip_kern26_ids = (
{
name => "Analog Devices ADM1024",
driver => "lm87",
i2c_addrs => [0x2c..0x2e],
i2c_detect => sub { adm1024_detect(0, @_); },
},
{
name => "Winbond W83791D",
driver => "w83791d",
i2c_addrs => [0x2c..0x2f],
i2c_detect => sub { w83781d_detect(7, @_); },
},
{
name => "FSC Scylla",
driver => "fschmd",
i2c_addrs => [0x73],
i2c_detect => sub { fscscy_detect(@_); },
},
{
name => "IPMI BMC KCS",
driver => "ipmisensors",
isa_addrs => [0x0ca0],
isa_detect => sub { ipmi_kcs_detect(@_); },
},
{
name => "IPMI BMC SMIC",
driver => "ipmisensors",
isa_addrs => [0x0ca8],
isa_detect => sub { ipmi_smic_detect(@_); },
},
);
# sigh special case for old seperate FSC drivers to new merged one mapping
@chip_oldfsc_ids = (
{
name => "FSC Poseidon I",
driver => "fscpos",
i2c_addrs => [0x73],
i2c_detect => sub { fscpeg_detect(@_); },
},
{
name => "FSC Hermes",
driver => "fscher",
i2c_addrs => [0x73],
i2c_detect => sub { fscher_detect(@_); },
},
);
@chip_fschmd_ids = (
{
name => "FSC Poseidon I",
driver => "fschmd",
i2c_addrs => [0x73],
i2c_detect => sub { fscpeg_detect(@_); },
},
{
name => "FSC Hermes",
driver => "fschmd",
i2c_addrs => [0x73],
i2c_detect => sub { fscher_detect(@_); },
},
);
# This is a list of all recognized superio chips.
# Each entry must have the following fields:
# name: The full chip name
# driver: The driver name (without .o extension). Put in
# "to-be-written" if it is not yet available.
# Put in "not-a-sensor" if the chip doesn't have hardware monitoring
# capabilities (listing such chips here removes the need of manual
# lookup when people report them).
# Put in exactly "via-smbus-only" if this is a Super-I/O chip whose
# hardware monitoring registers can only be accessed via the SMBus.
# devid: The device ID(s) we have to match (base device)
# devid_mask (optional): Bitmask to apply before checking the device ID
# logdev: The logical device containing the sensors
# alias_detect (optional): For chips which can be both on the ISA and the
# I2C bus, a function which detectes whether two entries are the same.
# The function should take three parameters: The ISA address, the
# I2C bus number, and the I2C address.
# Entries are grouped by family. Each family entry has the following fields:
# family: The family name
# guess (optional): Typical logical device address. This lets us do
# generic probing if we fail to recognize the chip.
# enter: The password sequence to write to the address register
# chips: Array of chips
# The order of families matters, because we stop as soon as one family
# succeeds. So we have to list families with shorter password sequences
# first.
@superio_ids = (
{
family => "National Semiconductor",
enter =>
{
0x2e => [],
0x4e => [],
},
chips =>
[
{
name => "Nat. Semi. PC8374L Super IO Sensors",
driver => "to-be-written",
devid => 0xf1,
logdev => 0x08,
},
{
name => "Nat. Semi. PC87351 Super IO Fan Sensors",
driver => "to-be-written",
devid => 0xe2,
logdev => 0x08,
},
{
name => "Nat. Semi. PC87360 Super IO Fan Sensors",
driver => "pc87360",
devid => 0xe1,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87363 Super IO Fan Sensors",
driver => "pc87360",
devid => 0xe8,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87364 Super IO Fan Sensors",
driver => "pc87360",
devid => 0xe4,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87365 Super IO Fan Sensors",
driver => "pc87360",
devid => 0xe5,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87365 Super IO Voltage Sensors",
driver => "pc87360",
devid => 0xe5,
logdev => 0x0d,
},
{
name => "Nat. Semi. PC87365 Super IO Thermal Sensors",
driver => "pc87360",
devid => 0xe5,
logdev => 0x0e,
},
{
name => "Nat. Semi. PC87366 Super IO Fan Sensors",
driver => "pc87360",
devid => 0xe9,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87366 Super IO Voltage Sensors",
driver => "pc87360",
devid => 0xe9,
logdev => 0x0d,
},
{
name => "Nat. Semi. PC87366 Super IO Thermal Sensors",
driver => "pc87360",
devid => 0xe9,
logdev => 0x0e,
},
{
name => "Nat. Semi. PC87372 Super IO Fan Sensors",
driver => "to-be-written",
devid => 0xf0,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87373 Super IO Fan Sensors",
driver => "to-be-written",
devid => 0xf3,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87591 Super IO",
driver => "to-be-written",
devid => 0xec,
logdev => 0x0f,
},
{
name => "Nat. Semi. PC87317 Super IO",
driver => "not-a-sensor",
devid => 0xd0,
},
{
name => "Nat. Semi. PC97317 Super IO",
driver => "not-a-sensor",
devid => 0xdf,
},
{
name => "Nat. Semi. PC8739x Super IO",
driver => "not-a-sensor",
devid => 0xea,
},
{
name => "Nat. Semi. PC8741x Super IO",
driver => "not-a-sensor",
devid => 0xee,
},
{
name => "Nat. Semi. PC87427 Super IO Fan Sensors",
driver => "pc87427",
devid => 0xf2,
logdev => 0x09,
},
{
name => "Nat. Semi. PC87427 Super IO Health Sensors",
driver => "to-be-written",
devid => 0xf2,
logdev => 0x14,
},
],
},
{
family => "SMSC",
enter =>
{
0x2e => [0x55],
0x4e => [0x55],
},
chips =>
[
{
name => "SMSC DME1737 Super IO",
# Hardware monitoring features are accessed on the SMBus
driver => "via-smbus-only",
devid => 0x78,
},
{
name => "SMSC DME1737 Super IO",
# The DME1737 shows up twice in this list because it can return either
# 0x78 or 0x77 as its device ID.
# Hardware monitoring features are accessed on the SMBus
driver => "via-smbus-only",
devid => 0x77,
},
{
name => "SMSC FDC37B72x Super IO",
driver => "not-a-sensor",
devid => 0x4c,
},
{
name => "SMSC FDC37B78x Super IO",
driver => "not-a-sensor",
devid => 0x44,
},
{
name => "SMSC FDC37C672 Super IO",
driver => "not-a-sensor",
devid => 0x40,
},
{
name => "SMSC FDC37M707 Super IO",
driver => "not-a-sensor",
devid => 0x42,
},
{
name => "SMSC FDC37M81x Super IO",
driver => "not-a-sensor",
devid => 0x4d,
},
{
name => "SMSC LPC47B27x Super IO Fan Sensors",
driver => "smsc47m1",
devid => 0x51,
logdev => 0x0a,
},
{
name => "SMSC LPC47B34x Super IO",
driver => "not-a-sensor",
devid => 0x56,
},
{
name => "SMSC LPC47B357/M967 Super IO",
driver => "not-a-sensor",
devid => 0x5d,
},
{
name => "SMSC LPC47B367-NC Super IO",
driver => "not-a-sensor",
devid => 0x6d,
},
{
name => "SMSC LPC47B37x Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x52,
logdev => 0x0a,
},
{
name => "SMSC LPC47B397-NC Super IO",
driver => "smsc47b397",
devid => 0x6f,
logdev => 0x08,
},
{
name => "SMSC LPC47M10x/112/13x Super IO Fan Sensors",
driver => "smsc47m1",
devid => 0x59,
logdev => 0x0a,
},
{
name => "SMSC LPC47M14x Super IO Fan Sensors",
driver => "smsc47m1",
devid => 0x5f,
logdev => 0x0a,
},
{
name => "SMSC LPC47M15x/192/997 Super IO Fan Sensors",
driver => "smsc47m1",
devid => 0x60,
logdev => 0x0a,
},
{
name => "SMSC LPC47M172 Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x14,
logdev => 0x0a,
},
{
name => "SMSC LPC47M182 Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x74,
logdev => 0x0a,
},
{
name => "SMSC LPC47M292 Super IO Fan Sensors",
driver => "smsc47m1",
devid => 0x6b,
logdev => 0x0a,
},
{
name => "SMSC LPC47M584-NC Super IO",
# No datasheet
devid => 0x76,
},
{
name => "SMSC LPC47N252 Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x0e,
logdev => 0x09,
},
{
name => "SMSC LPC47S42x Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x57,
logdev => 0x0a,
},
{
name => "SMSC LPC47S45x Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x62,
logdev => 0x0a,
},
{
name => "SMSC LPC47U33x Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x54,
logdev => 0x0a,
},
{
name => "SMSC SCH3112 Super IO",
driver => "dme1737",
devid => 0x7c,
logdev => 0x0a,
},
{
name => "SMSC SCH3114 Super IO",
driver => "dme1737",
devid => 0x7d,
logdev => 0x0a,
},
{
name => "SMSC SCH3116 Super IO",
driver => "dme1737",
devid => 0x7f,
logdev => 0x0a,
},
{
name => "SMSC SCH4307 Super IO Fan Sensors",
driver => "to-be-written",
devid => 0x90,
logdev => 0x08,
},
{
name => "SMSC SCH5027D-NW Super IO",
# Hardware monitoring features are accessed on the SMBus
driver => "via-smbus-only",
devid => 0x89,
},
{
name => "SMSC SCH5307-NS Super IO",
driver => "smsc47b397",
devid => 0x81,
logdev => 0x08,
},
{
name => "SMSC SCH5317 Super IO",
driver => "smsc47b397",
devid => 0x85,
logdev => 0x08,
},
{
name => "SMSC SCH5504-NS Super IO",
# No datasheet
driver => "not-a-sensor",
devid => 0x79,
},
{
name => "SMSC SCH5514D-NS Super IO",
# No datasheet
driver => "not-a-sensor",
devid => 0x83,
},
],
# Non-standard SMSC detection callback and chip list. These chips differ
# from the standard ones listed above in that the device ID register
# address is 0x0d instead of 0x20 (as specified by the ISA PNP spec).
ns_detect => \&smsc_ns_detect_superio,
ns_chips =>
[
{
name => "SMSC FDC37C665 Super IO",
driver => "not-a-sensor",
devid => 0x65,
},
{
name => "SMSC FDC37C666 Super IO",
driver => "not-a-sensor",
devid => 0x66,
},
{
name => "SMSC FDC37C669 Super IO",
driver => "not-a-sensor",
devid => 0x03,
},
{
name => "SMSC FDC37N769 Super IO",
driver => "not-a-sensor",
devid => 0x28,
},
{
name => "SMSC LPC47N227 Super IO",
driver => "not-a-sensor",
devid => 0x5a,
},
],
},
{
family => "VIA/Winbond/Fintek",
guess => 0x290,
enter =>
{
0x2e => [0x87, 0x87],
0x4e => [0x87, 0x87],
},
chips =>
[
{
name => "VIA VT1211 Super IO Sensors",
driver => "vt1211",
devid => 0x3c,
logdev => 0x0b,
alias_detect => sub { vt1211_alias_detect(0, @_); },
},
{
name => "Winbond W83627HF/F/HG/G Super IO Sensors",
driver => "w83627hf",
devid => 0x52,
logdev => 0x0b,
alias_detect => sub { w83781d_alias_detect(3, @_); },
},
{
name => "Winbond W83627THF/THG Super IO Sensors",
driver => "w83627hf",
devid => 0x82,
logdev => 0x0b,
},
{
name => "Winbond W83637HF/HG Super IO Sensors",
driver => "w83627hf",
devid => 0x70,
logdev => 0x0b,
},
{
name => "Winbond W83687THF Super IO Sensors",
driver => "w83627hf",
devid => 0x85,
logdev => 0x0b,
},
{
name => "Winbond W83697HF/F/HG Super IO Sensors",
driver => "w83627hf",
devid => 0x60,
logdev => 0x0b,
},
{
name => "Winbond W83697SF/UF/UG Super IO PWM",
driver => "to-be-written",
devid => 0x68,
logdev => 0x0b,
},
{
name => "Winbond W83627EHF/EF/EHG/EG Super IO Sensors",
driver => "w83627ehf",
# W83627EHF datasheet says 0x886x but 0x8853 was seen, thus the
# broader mask. W83627EHG was seen with ID 0x8863.
devid => 0x8840,
devid_mask => 0xFFC0,
logdev => 0x0b,
alias_detect => sub { w83781d_alias_detect(9, @_); },
},
{
name => "Winbond W83627DHG Super IO Sensors",
driver => "w83627ehf",
devid => 0xA020,
devid_mask => 0xFFF0,
logdev => 0x0b,
alias_detect => sub { w83781d_alias_detect(10, @_); },
},
{
name => "Winbond W83L517D Super IO",
driver => "not-a-sensor",
devid => 0x61,
},
{
name => "Fintek F71805F/FG Super IO Sensors",
driver => "f71805f",
devid => 0x0406,
logdev => 0x04,
},
{
name => "Fintek F71862FG Super IO Sensors",
driver => "to-be-written",
devid => 0x0601,
logdev => 0x04,
},
{
name => "Fintek F71806FG/F71872FG Super IO Sensors",
driver => "f71805f",
devid => 0x0341,
logdev => 0x04,
},
{
name => "Fintek F71858DG Super IO Sensors",
driver => "to-be-written",
devid => 0x0507,
logdev => 0x02,
},
{
name => "Fintek F71882FG/F71883FG Super IO Sensors",
driver => "f71882fg",
devid => 0x0541,
logdev => 0x04,
},
{
name => "Fintek F81216D Super IO",
driver => "not-a-sensor",
devid => 0x0208,
},
{
name => "Fintek F81218D Super IO",
driver => "not-a-sensor",
devid => 0x0206,
},
{
# Shouldn't be in this family, but seems to be still.
name => "ITE IT8708F Super IO",
driver => "not-a-sensor",
devid => 0x8708,
},
],
},
{
family => "ITE",
guess => 0x290,
enter =>
{
0x2e => [0x87, 0x01, 0x55, 0x55],
0x4e => [0x87, 0x01, 0x55, 0xaa],
},
chips =>
[
{
name => "ITE IT8702F Super IO Sensors",
driver => "to-be-written",
devid => 0x8702,
logdev => 0x04,
},
{
name => "ITE IT8705F Super IO Sensors",
driver => "it87",
devid => 0x8705,
logdev => 0x04,
},
{
name => "ITE IT8712F Super IO Sensors",
driver => "it87",
devid => 0x8712,
logdev => 0x04,
alias_detect => sub { ite_alias_detect(0, @_); },
},
{
name => "ITE IT8716F Super IO Sensors",
driver => "it87",
devid => 0x8716,
logdev => 0x04,
},
{
name => "ITE IT8718F Super IO Sensors",
driver => "it87",
devid => 0x8718,
logdev => 0x04,
},
{
name => "ITE IT8726F Super IO Sensors",
driver => "it87",
devid => 0x8726,
logdev => 0x04,
},
],
},
);
# Drivers for CPU embedded sensors
# Each entry must have the following fields:
# name: The CPU family name
# driver: The driver name. Put "to-be-written" if no driver is available.
# detect: Detection callback function. No parameter will be passed to
# this function, it must use global lists of PCI devices, CPU,
# etc. It must return a confidence value, undef if no supported
# CPU is found.
@cpu_ids = (
{
name => "AMD K8 thermal sensors",
driver => "k8temp",
detect => sub { k8temp_pci_detect(); },
},
{
name => "AMD K10 thermal sensors",
driver => "to-be-written",
detect => sub { k10temp_pci_detect(); },
},
{
name => "Intel Core family thermal sensor",
driver => "coretemp",
detect => sub { coretemp_detect(); },
},
{
name => "Intel AMB FB-DIMM thermal sensor",
driver => "to-be-written",
detect => sub { intel_amb_detect(); },
},
);
#######################
# AUXILIARY FUNCTIONS #
#######################
sub swap_bytes
{
return (($_[0] & 0xff00) >> 8) + (($_[0] & 0x00ff) << 8)
}
# $_[0] is the sought value
# @_[1..] is the list to seek in
# Returns: 0 on failure, 1 if found.
# Note: Every use of this sub probably indicates the use of the wrong
# datastructure
sub contains
{
my $sought = shift;
foreach (@_) {
return 1 if $sought eq $_;
}
return 0;
}
sub parse_not_to_scan
{
my ($min,$max,$to_parse) = @_;
my @ranges = split /\s*,\s*/, $to_parse;
my @res;
my $range;
foreach $range (@ranges) {
my ($start,$end) = split /\s*-s*/, $range;
$start = oct $start if $start =~ /^0/;
if (defined $end) {
$end = oct $end if $end =~ /^0/;
$start = $min if $start < $min;
$end = $max if $end > $max;
push @res, ($start+0..$end+0);
} else {
push @res, $start+0 if $start >= $min and $start <= $max;
}
}
return sort { $a <=> $b } @res;
}
# @_[0]: Reference to list 1
# @_[1]: Reference to list 2
# Result: 0 if they have no elements in common, 1 if they have
# Elements must be numeric.
sub any_list_match
{
my ($list1,$list2) = @_;
my ($el1,$el2);
foreach $el1 (@$list1) {
foreach $el2 (@$list2) {
return 1 if $el1 == $el2;
}
}
return 0;
}
###################
# I/O port access #
###################
sub initialize_ioports
{
sysopen (IOPORTS, "/dev/port", O_RDWR)
or die "/dev/port: $!\n";
binmode IOPORTS;
}
sub close_ioports
{
close (IOPORTS)
or print "Warning: $!\n";
}
# $_[0]: port to read
# Returns: -1 on failure, read value on success.
sub inb
{
my ($res,$nrchars);
sysseek IOPORTS, $_[0], 0 or return -1;
$nrchars = sysread IOPORTS, $res, 1;
return -1 if not defined $nrchars or $nrchars != 1;
$res = unpack "C",$res ;
return $res;
}
# $_[0]: port to write
# $_[1]: value to write
# Returns: -1 on failure, 0 on success.
sub outb
{
my $towrite = pack "C", $_[1];
sysseek IOPORTS, $_[0], 0 or return -1;
my $nrchars = syswrite IOPORTS, $towrite, 1;
return -1 if not defined $nrchars or $nrchars != 1;
return 0;
}
# $_[0]: Address register
# $_[1]: Data register
# $_[2]: Register to read
# Returns: read value
sub isa_read_byte
{
outb $_[0],$_[2];
return inb $_[1];
}
# $_[0]: Address register
# $_[1]: Data register
# $_[2]: Register to write
# $_[3}: Value to write
# Returns: nothing
sub isa_write_byte
{
outb $_[0],$_[2];
outb $_[1],$_[3];
}
#################
# AUTODETECTION #
#################
use vars qw($modules_conf $dev_i2c $sysfs_root);
sub initialize_conf
{
my $use_devfs = 0;
open(local *INPUTFILE, "/proc/mounts") or die "Can't access /proc/mounts!";
local $_;
while (<INPUTFILE>) {
if (m@^\w+ /dev devfs @) {
$use_devfs = 1;
$dev_i2c = '/dev/i2c/';
}
if (m@^\S+ (/\w+) sysfs @) {
$sysfs_root = $1;
}
}
close INPUTFILE;
my $use_udev = 0;
if (open(*INPUTFILE, '/etc/udev/udev.conf')) {
while (<INPUTFILE>) {
if (m/^\s*udev_db\s*=\s*\"([^"]*)\"/ || m/^\s*udev_db\s*=\s*(\S+)/) {
if (-e $1) {
$use_udev = 1;
$dev_i2c = '/dev/i2c-';
}
last;
}
}
close INPUTFILE;
}
if (!$use_udev) {
# Try some known default udev db locations, just in case
if (-e '/dev/.udev.tdb' || -e '/dev/.udev'
|| -e '/dev/.udevdb') {
$use_udev = 1;
$dev_i2c = '/dev/i2c-';
}
}
if (kernel_version_at_least(2, 6, 0)) {
$modules_conf = '/etc/modprobe.conf';
} else {
$modules_conf = '/etc/modules.conf';
}
if (!($use_devfs || $use_udev)) {
if (! -c '/dev/i2c-0' && -x '/sbin/MAKEDEV') {
system("/sbin/MAKEDEV i2c");
}
if (! -c '/dev/i2c-0' && -x '/dev/MAKEDEV') {
system("/dev/MAKEDEV i2c");
}
if (-c '/dev/i2c-0') {
$dev_i2c = '/dev/i2c-';
} else { # default
print "No i2c device files found.\n";
exit -1;
}
}
}
# [0] -> VERSION
# [1] -> PATCHLEVEL
# [2] -> SUBLEVEL
# [3] -> EXTRAVERSION
#
use vars qw(@kernel_version);
sub initialize_kernel_version
{
`uname -r` =~ /(\d+)\.(\d+)\.(\d+)(.*)/;
@kernel_version = ($1, $2, $3, $4);
}
sub kernel_version_at_least
{
my ($vers, $plvl, $slvl) = @_;
return 1 if ($kernel_version[0] > $vers ||
($kernel_version[0] == $vers &&
($kernel_version[1] > $plvl ||
($kernel_version[1] == $plvl &&
($kernel_version[2] >= $slvl)))));
return 0;
}
# @cpu is a list of reference to hashes, one hash per CPU.
# Each entry has the following keys: vendor_id, cpu family, model,
# model name and stepping, directly taken from /proc/cpuinfo.
use vars qw(@cpu);
sub initialize_cpu_list
{
open(local *INPUTFILE, "/proc/cpuinfo") or die "Can't access /proc/cpuinfo!";
local $_;
my $entry;
while (<INPUTFILE>) {
if (m/^processor\s*:\s*(\d+)/) {
push @cpu, $entry if scalar keys(%{$entry}); # Previous entry
$entry = {}; # New entry
next;
}
if (m/^(vendor_id|cpu family|model|model name|stepping)\s*:\s*(.+)$/) {
my $k = $1;
my $v = $2;
$v =~ s/\s+/ /g; # Merge multiple spaces
$v =~ s/ $//; # Trim trailing space
$entry->{$k} = $v;
next;
}
}
push @cpu, $entry if scalar keys(%{$entry}); # Last entry
close INPUTFILE;
}
# @i2c_adapters is a list of references to hashes, one hash per I2C/SMBus
# adapter present on the system. Each entry has the following keys: name
# (directly taken from either /proc/bus/i2c or /sys/class/i2c-adapter) and
# driver.
use vars qw(@i2c_adapters);
sub initialize_i2c_adapters_list
{
my $entry;
local $_;
if (defined $sysfs_root) {
my $class_dir = "${sysfs_root}/class/i2c-adapter";
opendir(local *ADAPTERS, $class_dir) or return;
while (defined($_ = readdir(ADAPTERS))) {
next unless m/^i2c-(\d+)$/;
$entry = {}; # New entry
$entry->{'name'} = sysfs_device_attribute("${class_dir}/i2c-$1", "name")
|| sysfs_device_attribute("${class_dir}/i2c-$1/device", "name");
next if $entry->{'name'} eq "ISA main adapter";
$entry->{'driver'} = find_adapter_driver($entry->{'name'});
$i2c_adapters[$1] = $entry;
}
closedir(ADAPTERS);
} else {
open(local *INPUTFILE, "/proc/bus/i2c") or return;
while (<INPUTFILE>) {
my ($nr, $type, $name) = /^i2c-(\d+)\s+(\S+)\s+(.*?) *(\t|$)/;
next if ($type eq "dummy" || $type eq "isa");
$entry = {}; # New entry
$entry->{'name'} = $name;
$entry->{'driver'} = find_adapter_driver($name);
$i2c_adapters[$nr] = $entry;
}
close(INPUTFILE);
}
}
###########
# MODULES #
###########
use vars qw(%modules_list %modules_supported);
sub initialize_modules_list
{
open(local *INPUTFILE, "/proc/modules") or return;
local $_;
while (<INPUTFILE>) {
tr/_/-/;
$modules_list{$1} = 1 if m/^(\S*)/;
}
}
sub initialize_modules_supported
{
foreach my $chip (@chip_ids) {
$modules_supported{$chip->{driver}}++;
}
}
#################
# SYSFS HELPERS #
#################
# From a sysfs device path, return the driver name, or undef
sub sysfs_device_driver($)
{
my $device = shift;
my $link = readlink("$device/driver");
return unless defined $link;
return basename($link);
}
# From a sysfs device path and an attribute name, return the attribute
# value, or undef
sub sysfs_device_attribute($$)
{
my ($device, $attr) = @_;
my $value;
open(local *FILE, "$device/$attr") or return;
return unless defined($value = <FILE>);
close(FILE);
chomp($value);
return $value;
}
##############
# PCI ACCESS #
##############
use vars qw(%pci_list);
# This function returns a list of hashes. Each hash has some PCI information:
# 'domain', 'bus', 'slot' and 'func' uniquely identify a PCI device in a
# computer; 'vendid' and 'devid' uniquely identify a type of device.
# 'class' lets us spot unknown SMBus adapters.
# This function is used when sysfs is available (Linux 2.6).
sub read_sys_dev_pci($)
{
my $devices = shift;
my ($dev, @pci_list);
opendir(local *DEVICES, "$devices")
or die "$devices: $!";
while (defined($dev = readdir(DEVICES))) {
my %record;
next unless $dev =~
m/^(?:([\da-f]+):)?([\da-f]+):([\da-f]+)\.([\da-f]+)$/;
$record{domain} = hex $1;
$record{bus} = hex $2;
$record{slot} = hex $3;
$record{func} = hex $4;
$record{vendid} = oct sysfs_device_attribute("$devices/$dev", "vendor");
$record{devid} = oct sysfs_device_attribute("$devices/$dev", "device");
$record{class} = (oct sysfs_device_attribute("$devices/$dev", "class"))
>> 8;
push @pci_list, \%record;
}
return \@pci_list;
}
# This function returns a list of hashes. Each hash has some PCI information:
# 'bus', 'slot' and 'func' uniquely identify a PCI device in a computer;
# 'vendid' and 'devid' uniquely identify a type of device.
# This function is used when sysfs is not available (Linux 2.4).
sub read_proc_dev_pci
{
my ($dfn, $vend, @pci_list);
open(local *INPUTFILE, "/proc/bus/pci/devices")
or die "/proc/bus/pci/devices: $!";
local $_;
while (<INPUTFILE>) {
my %record;
($dfn, $vend) = map { hex } (split) [0..1];
$record{bus} = $dfn >> 8;
$record{slot} = ($dfn & 0xf8) >> 3;
$record{func} = $dfn & 0x07;
$record{vendid} = $vend >> 16;
$record{devid} = $vend & 0xffff;
push @pci_list, \%record;
}
return \@pci_list;
}
sub initialize_proc_pci
{
my $pci_list;
if (defined $sysfs_root) {
$pci_list = read_sys_dev_pci("$sysfs_root/bus/pci/devices");
} else {
$pci_list = read_proc_dev_pci();
}
# Note that we lose duplicate devices at this point, but we don't
# really care. What matters to us is which unique devices are present,
# not how many of each.
%pci_list = map {
sprintf("%04x:%04x", $_->{vendid}, $_->{devid}) => $_
} @{$pci_list};
}
#####################
# ADAPTER DETECTION #
#####################
sub adapter_pci_detection_sis_96x
{
my $driver="";
# first, determine which driver if any...
if (kernel_version_at_least(2,6,0)) {
if (exists $pci_list{"1039:0016"}) {
$driver = "i2c-sis96x";
} elsif (exists $pci_list{"1039:0008"}) {
$driver = "i2c-sis5595";
}
} elsif (kernel_version_at_least(2,4,0)) {
if (exists $pci_list{"1039:0008"}) {
if ((exists $pci_list{"1039:0645"}) ||
(exists $pci_list{"1039:0646"}) ||
(exists $pci_list{"1039:0648"}) ||
(exists $pci_list{"1039:0650"}) ||
(exists $pci_list{"1039:0651"}) ||
(exists $pci_list{"1039:0655"}) ||
(exists $pci_list{"1039:0661"}) ||
(exists $pci_list{"1039:0735"}) ||
(exists $pci_list{"1039:0745"}) ||
(exists $pci_list{"1039:0746"})) {
$driver = "i2c-sis645";
} else {
$driver = "i2c-sis5595";
}
} elsif ((exists $pci_list{"1039:0016"}) ||
(exists $pci_list{"1039:0018"})) {
$driver = "i2c-sis645";
}
}
# then, add the appropriate entries to @pci_adapters
if ($driver eq "i2c-sis5595") {
push @pci_adapters, @pci_adapters_sis5595;
} elsif ($driver eq "i2c-sis645") {
push @pci_adapters, @pci_adapters_sis645;
} elsif ($driver eq "i2c-sis96x") {
push @pci_adapters, @pci_adapters_sis96x;
}
}
# Build and return a PCI device's bus ID
sub pci_busid($)
{
my $device = shift;
my $busid;
$busid = sprintf("\%02x:\%02x.\%x",
$device->{bus}, $device->{slot}, $device->{func});
$busid = sprintf("\%04x:", $device->{domain}) . $busid
if defined $device->{domain};
return $busid;
}
sub adapter_pci_detection
{
my ($key, $device, $try, @res, %smbus);
print "Probing for PCI bus adapters...\n";
# Custom detection routine for some SiS chipsets
adapter_pci_detection_sis_96x();
# Build a list of detected SMBus devices
foreach $key (keys %pci_list) {
$device = $pci_list{$key};
$smbus{$key}++
if exists $device->{class} && $device->{class} == 0x0c05; # SMBus
}
# Loop over the known I2C/SMBus adapters
foreach $try (@pci_adapters) {
$key = sprintf("%04x:%04x", $try->{vendid}, $try->{devid});
if (exists $pci_list{$key}) {
$device = $pci_list{$key};
printf "Use driver `\%s' for device \%s: \%s\n",
$try->{driver}, pci_busid($device), $try->{procid};
if ($try->{driver} eq "to-be-tested") {
print "\nWe are currently looking for testers for this adapter!\n".
"Please check http://www.lm-sensors.org/wiki/Devices\n".
"and/or contact us if you want to help.\n\n";
print "Continue... ";
<STDIN>;
print "\n";
}
push @res,$try->{driver};
# Delete from detected SMBus device list
delete $smbus{$key};
}
}
# Now see if there are unknown SMBus devices left
foreach $key (keys %smbus) {
$device = $pci_list{$key};
printf "Found unknown SMBus adapter \%04x:\%04x at \%s.\n",
$device->{vendid}, $device->{devid}, pci_busid($device);
}
if (! @res) {
print "Sorry, no known PCI bus adapters found.\n";
}
return @res;
}
# $_[0]: Adapter description as found in /proc/bus/i2c or sysfs
sub find_adapter_driver
{
my $adapter;
for $adapter (@pci_adapters) {
return $adapter->{driver}
if (exists $adapter->{match} && $_[0] =~ $adapter->{match});
}
return "UNKNOWN";
}
#############################
# I2C AND SMBUS /DEV ACCESS #
#############################
# This should really go into a separate module/package.
# These are copied from <linux/i2c-dev.h>
use constant IOCTL_I2C_SLAVE => 0x0703;
use constant IOCTL_I2C_FUNCS => 0x0705;
use constant IOCTL_I2C_SMBUS => 0x0720;
use constant SMBUS_READ => 1;
use constant SMBUS_WRITE => 0;
use constant SMBUS_QUICK => 0;
use constant SMBUS_BYTE => 1;
use constant SMBUS_BYTE_DATA => 2;
use constant SMBUS_WORD_DATA => 3;
use constant I2C_FUNC_SMBUS_QUICK => 0x00010000;
use constant I2C_FUNC_SMBUS_READ_BYTE => 0x00020000;
# Get the i2c adapter's functionalities
# $_[0]: Reference to an opened filehandle
# Returns: -1 on failure, functionality bitfield on success.
sub i2c_get_funcs($)
{
my $file = shift;
my $funcs = pack "L", 0; # Allocate space
ioctl $file, IOCTL_I2C_FUNCS, $funcs or return -1;
$funcs = unpack "L", $funcs;
return $funcs;
}
# Select the device to communicate with through its address.
# $_[0]: Reference to an opened filehandle
# $_[1]: Address to select
# Returns: 0 on failure, 1 on success.
sub i2c_set_slave_addr
{
my ($file,$addr) = @_;
$addr += 0; # Make sure it's a number not a string
ioctl $file, IOCTL_I2C_SLAVE, $addr or return 0;
return 1;
}
# i2c_smbus_access is based upon the corresponding C function (see
# <linux/i2c-dev.h>). You should not need to call this directly.
# Exact calling conventions are intricate; read i2c-dev.c if you really need
# to know.
# $_[0]: Reference to an opened filehandle
# $_[1]: SMBUS_READ for reading, SMBUS_WRITE for writing
# $_[2]: Command (usually register number)
# $_[3]: Transaction kind (SMBUS_BYTE, SMBUS_BYTE_DATA, etc.)
# $_[4]: Reference to an array used for input/output of data
# Returns: 0 on failure, 1 on success.
# Note that we need to get back to Integer boundaries through the 'x2'
# in the pack. This is very compiler-dependent; I wish there was some other
# way to do this.
sub i2c_smbus_access
{
my ($file,$read_write,$command,$size,$data) = @_;
my $data_array = pack "C32", @$data;
my $ioctl_data = pack "C2x2Ip", ($read_write,$command,$size,$data_array);
ioctl $file, IOCTL_I2C_SMBUS, $ioctl_data or return 0;
@{$_[4]} = unpack "C32",$data_array;
return 1;
}
# $_[0]: Reference to an opened filehandle
# $_[1]: Either 0 or 1
# Returns: -1 on failure, the 0 on success.
sub i2c_smbus_write_quick
{
my ($file,$value) = @_;
my @data;
i2c_smbus_access $file, $value, 0, SMBUS_QUICK, \@data
or return -1;
return 0;
}
# $_[0]: Reference to an opened filehandle
# Returns: -1 on failure, the read byte on success.
sub i2c_smbus_read_byte
{
my ($file) = @_;
my @data;
i2c_smbus_access $file, SMBUS_READ, 0, SMBUS_BYTE, \@data
or return -1;
return $data[0];
}
# $_[0]: Reference to an opened filehandle
# $_[1]: Command byte (usually register number)
# Returns: -1 on failure, the read byte on success.
sub i2c_smbus_read_byte_data
{
my ($file,$command) = @_;
my @data;
i2c_smbus_access $file, SMBUS_READ, $command, SMBUS_BYTE_DATA, \@data
or return -1;
return $data[0];
}
# $_[0]: Reference to an opened filehandle
# $_[1]: Command byte (usually register number)
# Returns: -1 on failure, the read word on success.
# Note: some devices use the wrong endiannes; use swap_bytes to correct for
# this.
sub i2c_smbus_read_word_data
{
my ($file,$command) = @_;
my @data;
i2c_smbus_access $file, SMBUS_READ, $command, SMBUS_WORD_DATA, \@data
or return -1;
return $data[0] + 256 * $data[1];
}
# $_[0]: Reference to an opened filehandle
# $_[1]: Address
# $_[2]: Functionalities of this i2c adapter
# Returns: 1 on successful probing, 0 else.
# This function is meant to prevent AT24RF08 corruption and write-only
# chips locks. This is done by choosing the best probing method depending
# on the address range.
sub i2c_probe($$$)
{
my ($file, $addr, $funcs) = @_;
my $data = [];
if (($addr >= 0x50 && $addr <= 0x5F)
|| ($addr >= 0x30 && $addr <= 0x37)) {
# This covers all EEPROMs we know of, including page protection addresses.
# Note that some page protection addresses will not reveal themselves with
# this, because they ack on write only, but this is probably better since
# some EEPROMs write-protect themselves permanently on almost any write to
# their page protection address.
return 0 unless ($funcs & I2C_FUNC_SMBUS_READ_BYTE);
return i2c_smbus_access($file, SMBUS_READ, 0, SMBUS_BYTE, $data);
} else {
return 0 unless ($funcs & I2C_FUNC_SMBUS_QUICK);
return i2c_smbus_access($file, SMBUS_WRITE, 0, SMBUS_QUICK, $data);
}
}
####################
# ADAPTER SCANNING #
####################
use vars qw(@chips_detected);
# We will build a complicated structure @chips_detected here, being:
# A list of
# references to hashes
# with field 'driver', being a string with the driver name for this chip;
# with field 'detected'
# being a reference to a list of
# references to hashes of type 'detect_data';
# with field 'misdetected'
# being a reference to a list of
# references to hashes of type 'detect_data'
# Type detect_data:
# A hash
# with field 'i2c_adap' containing an adapter string as appearing
# in /proc/bus/i2c (if this is an I2C detection)
# with field 'i2c_devnr', contianing the /dev/i2c-* number of this
# adapter (if this is an I2C detection)
# with field 'i2c_driver', containing the driver name for this adapter
# (if this is an I2C detection)
# with field 'i2c_addr', containing the I2C address of the detection;
# (if this is an I2C detection)
# with field 'i2c_sub_addrs', containing a reference to a list of
# other I2C addresses (if this is an I2C detection)
# with field 'isa_addr' containing the ISA address this chip is on
# (if this is an ISA detection)
# with field 'conf', containing the confidence level of this detection
# with field 'chipname', containing the chip name
# This adds a detection to the above structure. We do no alias detection
# here; so you should do ISA detections *after* all I2C detections.
# Not all possibilities of i2c_addr and i2c_sub_addrs are exhausted.
# In all normal cases, it should be all right.
# $_[0]: chip driver
# $_[1]: reference to data hash
# Returns: Nothing
sub add_i2c_to_chips_detected
{
my ($chipdriver,$datahash) = @_;
my ($i,$new_detected_ref,$new_misdetected_ref,$detected_ref,$misdetected_ref,
$main_entry,$detected_entry,$put_in_detected,@hash_addrs,@entry_addrs,
$do_not_add);
# First determine where the hash has to be added.
for ($i = 0; $i < @chips_detected; $i++) {
last if ($chips_detected[$i]->{driver} eq $chipdriver);
}
if ($i == @chips_detected) {
push @chips_detected, { driver => $chipdriver,
detected => [],
misdetected => [] };
}
$new_detected_ref = $chips_detected[$i]->{detected};
$new_misdetected_ref = $chips_detected[$i]->{misdetected};
# Find out whether our new entry should go into the detected or the
# misdetected list. We compare all i2c addresses; if at least one matches,
# but our conf value is lower, we assume this is a misdetect.
@hash_addrs = ($datahash->{i2c_addr});
push @hash_addrs, @{$datahash->{i2c_sub_addrs}}
if exists $datahash->{i2c_sub_addrs};
$put_in_detected = 1;
$do_not_add = 0;
FIND_LOOP:
foreach $main_entry (@chips_detected) {
foreach $detected_entry (@{$main_entry->{detected}}) {
@entry_addrs = ($detected_entry->{i2c_addr});
push @entry_addrs, @{$detected_entry->{i2c_sub_addrs}}
if exists $detected_entry->{i2c_sub_addrs};
if ($detected_entry->{i2c_devnr} == $datahash->{i2c_devnr} and
any_list_match \@entry_addrs, \@hash_addrs) {
if ($detected_entry->{conf} >= $datahash->{conf}) {
$put_in_detected = 0;
}
if ($chipdriver eq $main_entry->{driver}) {
$do_not_add = 1;
}
last FIND_LOOP;
}
}
}
if ($put_in_detected) {
# Here, we move all entries from detected to misdetected which
# match at least in one main or sub address. This may not be the
# best idea to do, as it may remove detections without replacing
# them with second-best ones. Too bad.
# (Khali 2003-09-13) If the driver is the same, the "misdetected"
# entry is simply deleted; failing to do so cause the configuration
# lines generated later to look very confusing (the driver will
# be told to ignore valid addresses).
@hash_addrs = ($datahash->{i2c_addr});
push @hash_addrs, @{$datahash->{i2c_sub_addrs}}
if exists $datahash->{i2c_sub_addrs};
foreach $main_entry (@chips_detected) {
$detected_ref = $main_entry->{detected};
$misdetected_ref = $main_entry->{misdetected};
for ($i = @$detected_ref-1; $i >=0; $i--) {
@entry_addrs = ($detected_ref->[$i]->{i2c_addr});
push @entry_addrs, @{$detected_ref->[$i]->{i2c_sub_addrs}}
if exists $detected_ref->[$i]->{i2c_sub_addrs};
if ($detected_ref->[$i]->{i2c_devnr} == $datahash->{i2c_devnr} and
any_list_match \@entry_addrs, \@hash_addrs) {
push @$misdetected_ref,$detected_ref->[$i]
unless $chipdriver eq $main_entry->{driver};
splice @$detected_ref, $i, 1;
}
}
}
# Now add the new entry to detected
push @$new_detected_ref, $datahash;
} else {
# No hard work here
push @$new_misdetected_ref, $datahash
unless $do_not_add;
}
}
# This adds a detection to the above structure. We also do alias detection
# here; so you should do ISA detections *after* all I2C detections.
# $_[0]: alias detection function
# $_[1]: chip driver
# $_[2]: reference to data hash
# Returns: 0 if it is not an alias, datahash reference if it is.
sub add_isa_to_chips_detected
{
my ($alias_detect,$chipdriver,$datahash) = @_;
my ($i,$new_detected_ref,$new_misdetected_ref,$detected_ref,$misdetected_ref,
$main_entry,$isalias);
# First determine where the hash has to be added.
$isalias=0;
for ($i = 0; $i < @chips_detected; $i++) {
last if ($chips_detected[$i]->{driver} eq $chipdriver);
}
if ($i == @chips_detected) {
push @chips_detected, { driver => $chipdriver,
detected => [],
misdetected => [] };
}
$new_detected_ref = $chips_detected[$i]->{detected};
$new_misdetected_ref = $chips_detected[$i]->{misdetected};
# Now, we are looking for aliases. An alias can only be the same chiptype.
# If an alias is found in the misdetected list, we add the new information
# and terminate this function. If it is found in the detected list, we
# still have to check whether another chip has claimed this ISA address.
# So we remove the old entry from the detected list and put it in datahash.
# Misdetected alias detection:
for ($i = 0; $i < @$new_misdetected_ref; $i++) {
if (exists $new_misdetected_ref->[$i]->{i2c_addr} and
not exists $new_misdetected_ref->[$i]->{isa_addr} and
defined $alias_detect and
$new_misdetected_ref->[$i]->{chipname} eq $datahash->{chipname}) {
open(local *FILE, "$dev_i2c$new_misdetected_ref->[$i]->{i2c_devnr}") or
print("Can't open $dev_i2c$new_misdetected_ref->[$i]->{i2c_devnr}?!?\n"),
next;
binmode FILE;
i2c_set_slave_addr \*FILE,$new_misdetected_ref->[$i]->{i2c_addr} or
print("Can't set I2C address for ",
"$dev_i2c$new_misdetected_ref->[$i]->{i2c_devnr}?!?\n"),
next;
if (&$alias_detect ($datahash->{isa_addr},\*FILE,
$new_misdetected_ref->[$i]->{i2c_addr})) {
$new_misdetected_ref->[$i]->{isa_addr} = $datahash->{isa_addr};
return $new_misdetected_ref->[$i];
}
}
}
# Detected alias detection:
for ($i = 0; $i < @$new_detected_ref; $i++) {
if (exists $new_detected_ref->[$i]->{i2c_addr} and
not exists $new_detected_ref->[$i]->{isa_addr} and
defined $alias_detect and
$new_detected_ref->[$i]->{chipname} eq $datahash->{chipname}) {
open(local *FILE, "$dev_i2c$new_detected_ref->[$i]->{i2c_devnr}") or
print("Can't open $dev_i2c$new_detected_ref->[$i]->{i2c_devnr}?!?\n"),
next;
binmode FILE;
i2c_set_slave_addr \*FILE,$new_detected_ref->[$i]->{i2c_addr} or
print("Can't set I2C address for ",
"$dev_i2c$new_detected_ref->[$i]->{i2c_devnr}?!?\n"),
next;
if (&$alias_detect ($datahash->{isa_addr},\*FILE,
$new_detected_ref->[$i]->{i2c_addr})) {
$new_detected_ref->[$i]->{isa_addr} = $datahash->{isa_addr};
($datahash) = splice (@$new_detected_ref, $i, 1);
$isalias=1;
last;
}
}
}
# Find out whether our new entry should go into the detected or the
# misdetected list. We only compare main isa_addr here, of course.
# (Khali 2004-05-12) If the driver is the same, the "misdetected"
# entry is simply deleted; same we do for I2C chips.
foreach $main_entry (@chips_detected) {
$detected_ref = $main_entry->{detected};
$misdetected_ref = $main_entry->{misdetected};
for ($i = 0; $i < @{$main_entry->{detected}}; $i++) {
if (exists $detected_ref->[$i]->{isa_addr} and
exists $datahash->{isa_addr} and
$detected_ref->[$i]->{isa_addr} == $datahash->{isa_addr}) {
if ($detected_ref->[$i]->{conf} >= $datahash->{conf}) {
push @$new_misdetected_ref, $datahash
unless $main_entry->{driver} eq $chipdriver;
} else {
push @$misdetected_ref,$detected_ref->[$i]
unless $main_entry->{driver} eq $chipdriver;
splice @$detected_ref, $i,1;
push @$new_detected_ref, $datahash;
}
if ($isalias) {
return $datahash;
} else {
return 0;
}
}
}
}
# Not found? OK, put it in the detected list
push @$new_detected_ref, $datahash;
if ($isalias) {
return $datahash;
} else {
return 0;
}
}
# From the list of known I2C/SMBus devices, build a list of I2C addresses
# which are worth probing. There's no point in probing an address for which
# we don't know a single device, and probing some addresses has caused
# random trouble in the past.
sub i2c_addresses_to_scan()
{
my @used;
my @addresses;
my $addr;
foreach my $chip (@chip_ids) {
next unless defined $chip->{'i2c_addrs'};
next if $chip->{'driver'} eq 'not-a-sensor';
foreach $addr (@{$chip->{'i2c_addrs'}}) {
$used[$addr]++;
}
}
for ($addr = 0x03; $addr <= 0x77; $addr++) {
push @addresses, $addr if $used[$addr];
}
return \@addresses;
}
# $_[0]: The number of the adapter to scan
# $_[1]: The name of the adapter, as appearing in /proc/bus/i2c
# $_[2]: The driver of the adapter
# @_[3]: Addresses not to scan (array reference)
sub scan_adapter
{
my ($adapter_nr, $adapter_name, $adapter_driver, $not_to_scan) = @_;
my ($funcs, $chip, $addr, $conf, @chips, $new_hash, $other_addr);
# As we modify it, we need a copy
my @not_to_scan = @$not_to_scan;
open(local *FILE, "$dev_i2c$adapter_nr") or
(print "Can't open $dev_i2c$adapter_nr\n"), return;
binmode FILE;
# Can we probe this adapter?
$funcs = i2c_get_funcs(\*FILE);
if ($funcs < 0) {
print "Adapter failed to provide its functionalities, skipping.\n";
return;
}
if (!($funcs & (I2C_FUNC_SMBUS_QUICK | I2C_FUNC_SMBUS_READ_BYTE))) {
print "Adapter cannot be probed, skipping.\n";
return;
}
if (~$funcs & (I2C_FUNC_SMBUS_QUICK | I2C_FUNC_SMBUS_READ_BYTE)) {
print "Adapter doesn't support all probing functions.\n",
"Some addresses won't be probed.\n";
}
# Now scan each address in turn
foreach $addr (@{$i2c_addresses_to_scan}) {
# As the not_to_scan list is sorted, we can check it fast
if (@not_to_scan and $not_to_scan[0] == $addr) {
shift @not_to_scan;
next;
}
if (!i2c_set_slave_addr(\*FILE, $addr)) {
# If the address is busy, in Linux 2.6 we can find out which driver
# is using it, and we assume it is the right one. In Linux 2.4 we
# just give up and warn the user.
my ($device, $driver);
if (defined($sysfs_root)) {
$device = sprintf("$sysfs_root/bus/i2c/devices/\%d-\%04x",
$adapter_nr, $addr);
$driver = sysfs_device_driver($device);
}
if (defined($driver)) {
$new_hash = {
conf => 6, # Arbitrary confidence
i2c_addr => $addr,
chipname => sysfs_device_attribute($device, "name") || "unknown",
i2c_adap => $adapter_name,
i2c_driver => $adapter_driver,
i2c_devnr => $adapter_nr,
};
printf "Client found at address 0x\%02x\n", $addr;
printf "Handled by driver `\%s' (already loaded), chip type `\%s'\n",
$driver, $new_hash->{chipname};
# Only add it to the list if this is something we would have
# detected, else we end up with random i2c chip drivers listed
# (for example media/video drivers.)
if (exists $modules_supported{$driver}) {
add_i2c_to_chips_detected($driver, $new_hash);
} else {
print " (note: this is probably NOT a sensor chip!)\n";
}
} else {
printf("Client at address 0x%02x can not be probed - ".
"unload all client drivers first!\n", $addr);
}
next;
}
next unless i2c_probe(\*FILE, $addr, $funcs);
printf "Client found at address 0x%02x\n",$addr;
$| = 1;
foreach $chip (@chip_ids) {
if (exists $chip->{i2c_addrs} and contains $addr, @{$chip->{i2c_addrs}}) {
printf("\%-60s", sprintf("Probing for `\%s'... ", $chip->{name}));
if (($conf,@chips) = &{$chip->{i2c_detect}} (\*FILE ,$addr)) {
if ($chip->{driver} eq "not-a-sensor") {
print "Yes\n",
" (confidence $conf, not a hardware monitoring chip";
} else {
print "Success!\n",
" (confidence $conf, driver `$chip->{driver}'";
}
if (@chips) {
print ", other addresses:";
@chips = sort @chips;
foreach $other_addr (@chips) {
printf(" 0x%02x",$other_addr);
}
}
printf ")\n";
next if ($chip->{driver} eq "not-a-sensor"
|| $chip->{driver} eq "use-isa-instead");
$new_hash = { conf => $conf,
i2c_addr => $addr,
chipname => $chip->{name},
i2c_adap => $adapter_name,
i2c_driver => $adapter_driver,
i2c_devnr => $adapter_nr,
};
if (@chips) {
my @chips_copy = @chips;
$new_hash->{i2c_sub_addrs} = \@chips_copy;
}
add_i2c_to_chips_detected $chip->{driver}, $new_hash;
} else {
print "No\n";
}
}
}
$| = 0;
}
}
sub scan_isa_bus
{
my ($chip,$addr,$conf);
$| = 1;
foreach $chip (@chip_ids) {
next if not exists $chip->{isa_addrs} or not exists $chip->{isa_detect};
foreach $addr (@{$chip->{isa_addrs}}) {
printf("\%-60s", sprintf("Probing for `\%s'\%s... ", $chip->{name},
$addr ? sprintf(" at 0x\%x", $addr) : ''));
$conf = &{$chip->{isa_detect}} ($addr);
print("No\n"), next if not defined $conf;
print "Success!\n";
printf " (confidence %d, driver `%s')\n", $conf, $chip->{driver};
my $new_hash = { conf => $conf,
isa_addr => $addr,
chipname => $chip->{name}
};
$new_hash = add_isa_to_chips_detected $chip->{alias_detect},$chip->{driver},
$new_hash;
if ($new_hash) {
printf " Alias of the chip on I2C bus `%s', address 0x%04x\n",
$new_hash->{i2c_adap},$new_hash->{i2c_addr};
}
}
}
$| = 0;
}
use vars qw(%superio);
# The following are taken from the PNP ISA spec (so it's supposed
# to be common to all Super I/O chips):
# devidreg: The device ID register(s)
# logdevreg: The logical device register
# actreg: The activation register within the logical device
# actmask: The activation bit in the activation register
# basereg: The I/O base register within the logical device
%superio = (
devidreg => 0x20,
logdevreg => 0x07,
actreg => 0x30,
actmask => 0x01,
basereg => 0x60,
);
sub exit_superio
{
my ($addrreg, $datareg) = @_;
# Some chips (SMSC, Winbond) want this
outb($addrreg, 0xaa);
# Return to "Wait For Key" state (PNP-ISA spec)
outb($addrreg, 0x02);
outb($datareg, 0x02);
}
# Guess if an unknown Super-I/O chip has sensors
sub guess_superio_ld($$$)
{
my ($addrreg, $datareg, $typical_addr) = @_;
my ($oldldn, $ldn, $addr);
# Save logical device number
outb($addrreg, $superio{logdevreg});
$oldldn = inb($datareg);
for ($ldn = 0; $ldn < 16; $ldn++) {
# Select logical device
outb($addrreg, $superio{logdevreg});
outb($datareg, $ldn);
# Read base I/O address
outb($addrreg, $superio{basereg});
$addr = inb($datareg) << 8;
outb($addrreg, $superio{basereg} + 1);
$addr |= inb($datareg);
next unless ($addr & 0xfff8) == $typical_addr;
printf " (logical device \%X has address 0x\%x, could be sensors)\n",
$ldn, $addr;
last;
}
# Be nice, restore original logical device
outb($addrreg, $superio{logdevreg});
outb($datareg, $oldldn);
}
sub probe_superio($$$)
{
my ($addrreg, $datareg, $chip) = @_;
my ($val, $addr);
printf "\%-60s", "Found `$chip->{name}'";
# Does it have hardware monitoring capabilities?
if (!exists $chip->{driver}) {
print "\n (no information available)\n";
return;
}
if ($chip->{driver} eq "not-a-sensor") {
print "\n (no hardware monitoring capabilities)\n";
return;
}
if ($chip->{driver} eq "via-smbus-only") {
print "\n (hardware monitoring capabilities accessible via SMBus only)\n";
return;
}
# Switch to the sensor logical device
outb($addrreg, $superio{logdevreg});
outb($datareg, $chip->{logdev});
# Check the activation register
outb($addrreg, $superio{actreg});
$val = inb($datareg);
if (!($val & $superio{actmask})) {
print "\n (but not activated)\n";
return;
}
# Get the IO base register
outb($addrreg, $superio{basereg});
$addr = inb($datareg);
outb($addrreg, $superio{basereg} + 1);
$addr = ($addr << 8) | inb($datareg);
if ($addr == 0) {
print "\n (but no address specified)\n";
return;
}
print "Success!\n";
printf " (address 0x\%x, driver `%s')\n", $addr, $chip->{driver};
my $new_hash = { conf => 9,
isa_addr => $addr,
chipname => $chip->{name}
};
add_isa_to_chips_detected $chip->{alias_detect},$chip->{driver},
$new_hash;
}
# Detection routine for non-standard SMSC Super I/O chips
# $_[0]: Super I/O LPC config/index port
# $_[1]: Super I/O LPC data port
# $_[2]: Reference to array of non-standard chips
# Return values: 1 if non-standard chip found, 0 otherwise
sub smsc_ns_detect_superio
{
my ($addrreg, $datareg, $ns_chips) = @_;
my ($val, $chip);
# read alternate device ID register
outb($addrreg, 0x0d);
$val = inb($datareg);
if ($val == 0x00 || $val == 0xff) {
return 0;
}
print "Yes\n";
foreach $chip (@{$ns_chips}) {
if ($chip->{devid} == $val) {
probe_superio($addrreg, $datareg, $chip);
return 1;
}
}
printf("Found unknown non-standard chip with ID 0x%02x\n", $val);
return 1;
}
sub scan_superio
{
my ($addrreg, $datareg) = @_;
my ($val, $found);
printf("Probing for Super-I/O at 0x\%x/0x\%x\n", $addrreg, $datareg);
$| = 1;
# reset state to avoid false positives
exit_superio($addrreg, $datareg);
FAMILY:
foreach my $family (@superio_ids) {
printf("\%-60s", "Trying family `$family->{family}'... ");
# write the password
foreach $val (@{$family->{enter}->{$addrreg}}) {
outb($addrreg, $val);
}
# call the non-standard detection routine first if it exists
if (defined($family->{ns_detect}) &&
&{$family->{ns_detect}}($addrreg, $datareg, $family->{ns_chips})) {
exit_superio($addrreg, $datareg);
last FAMILY;
}
# did it work?
outb($addrreg, $superio{devidreg});
$val = inb($datareg);
outb($addrreg, $superio{devidreg} + 1);
$val = ($val << 8) | inb($datareg);
if ($val == 0x0000 || $val == 0xffff) {
print "No\n";
next FAMILY;
}
print "Yes\n";
$found = 0;
foreach my $chip (@{$family->{chips}}) {
if (($chip->{devid} > 0xff && ($val & ($chip->{devid_mask} || 0xffff)) == $chip->{devid})
|| ($chip->{devid} <= 0xff && ($val >> 8) == $chip->{devid})) {
probe_superio($addrreg, $datareg, $chip);
$found++;
}
}
if (!$found) {
printf("Found unknown chip with ID 0x%04x\n", $val);
# Guess if a logical device could correspond to sensors
guess_superio_ld($addrreg, $datareg, $family->{guess})
if defined $family->{guess};
}
exit_superio($addrreg, $datareg);
last FAMILY;
}
$| = 0;
}
sub scan_cpu($)
{
my $entry = shift;
my $confidence;
printf("\%-60s", "$entry->{name}... ");
if (defined ($confidence = $entry->{detect}())) {
print "Success!\n";
printf " (driver `%s')\n", $entry->{driver};
my $new_hash = {
conf => $confidence,
chipname => $entry->{name},
};
add_isa_to_chips_detected(undef, $entry->{driver}, $new_hash);
} else {
print "No\n";
}
}
##################
# CHIP DETECTION #
##################
# This routine allows you to select which chips are optionally added to the
# chip detection list. The most common use is to allow for different chip
# detection/drivers based on different linux kernels
# This routine follows the pattern of the SiS adapter special cases
sub chip_special_cases
{
# Based on the kernel, add the appropriate chip structures to the
# chip_ids detection list
if (kernel_version_at_least(2, 6, 24)) {
push @chip_ids, @chip_fschmd_ids;
} else {
push @chip_ids, @chip_oldfsc_ids;
}
if (kernel_version_at_least(2, 6, 0)) {
push @chip_ids, @chip_kern26_ids;
} else {
push @chip_ids, @chip_kern24_ids;
}
}
# Each function returns a confidence value. The higher this value, the more
# sure we are about this chip. A Winbond W83781D, for example, will be
# detected as a LM78 too; but as the Winbond detection has a higher confidence
# factor, you should identify it as a Winbond.
# Each function returns a list. The first element is the confidence value;
# Each element after it is an SMBus address. In this way, we can detect
# chips with several SMBus addresses. The SMBus address for which the
# function was called is never returned.
# If there are devices which get confused if they are only read from, then
# this program will surely confuse them. But we guarantee never to write to
# any of these devices.
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (7) if detected.
# Registers used: 0x58
sub mtp008_detect
{
my ($file,$addr) = @_;
return if (i2c_smbus_read_byte_data($file,0x58)) != 0xac;
return (8);
}
# $_[0]: Chip to detect (0 = LM78, 1 = LM78-J, 2 = LM79)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (6) if detected.
# Registers used:
# 0x40: Configuration
# 0x48: Full I2C Address
# 0x49: Device ID
sub lm78_detect
{
my $reg;
my ($chip,$file,$addr) = @_;
return unless i2c_smbus_read_byte_data($file,0x48) == $addr;
return unless (i2c_smbus_read_byte_data($file,0x40) & 0x80) == 0x00;
$reg = i2c_smbus_read_byte_data($file,0x49);
return unless ($chip == 0 and ($reg == 0x00 or $reg == 0x20)) or
($chip == 1 and $reg == 0x40) or
($chip == 2 and ($reg & 0xfe) == 0xc0);
return (6);
}
# $_[0]: Chip to detect (0 = LM78, 1 = LM78-J, 2 = LM79)
# $_[1]: Address
# Returns: undef if not detected, 6 if detected.
# Note: Only address 0x290 is scanned at this moment.
sub lm78_isa_detect
{
my ($chip,$addr) = @_ ;
my $val = inb ($addr + 1);
return if inb ($addr + 2) != $val or inb ($addr + 3) != $val or
inb ($addr + 7) != $val;
$val = inb($addr + 5);
outb($addr + 5, ~$val & 0x7f);
if ((inb ($addr+5) & 0x7f) != (~ $val & 0x7f)) {
outb($addr+5,$val);
return;
}
my $readproc = sub { isa_read_byte $addr + 5, $addr + 6, @_ };
return unless (&$readproc(0x40) & 0x80) == 0x00;
my $reg = &$readproc(0x49);
return unless ($chip == 0 and ($reg == 0x00 or $reg == 0x20)) or
($chip == 1 and $reg == 0x40) or
($chip == 2 and ($reg & 0xfe) == 0xc0);
# Explicitly prevent misdetection of Winbond chips
$reg = &$readproc(0x4f);
return if $reg == 0xa3 || $reg == 0x5c;
# Explicitly prevent misdetection of ITE chips
$reg = &$readproc(0x58);
return if $reg == 0x90;
return 6;
}
# $_[0]: Chip to detect (0 = LM78, 1 = LM78-J, 2 = LM79)
# $_[1]: ISA address
# $_[2]: I2C file handle
# $_[3]: I2C address
sub lm78_alias_detect
{
my ($chip,$isa_addr,$file,$i2c_addr) = @_;
my $i;
my $readproc = sub { isa_read_byte $isa_addr + 5, $isa_addr + 6, @_ };
return 0 unless &$readproc(0x48) == $i2c_addr;
for ($i = 0x2b; $i <= 0x3d; $i ++) {
return 0 unless &$readproc($i) == i2c_smbus_read_byte_data($file,$i);
}
return 1;
}
# $_[0]: Chip to detect (0 = LM75, 1 = DS75)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 3 or 6 if detected;
# 6 means that the temperatures make sense;
# 3 means that the temperatures look strange;
# Registers used:
# 0x00: Temperature
# 0x01: Configuration
# 0x02: Hysteresis
# 0x03: Overtemperature Shutdown
# 0x04-0x07: No registers
# The first detection step is based on the fact that the LM75 has only
# four registers, and cycles addresses over 8-byte boundaries. We use the
# 0x04-0x07 addresses (unused) to improve the reliability. These are not
# real registers and will always return the last returned value. This isn't
# documented.
# Note that register 0x00 may change, so we can't use the modulo trick on it.
# The DS75 is a bit different, it doesn't cycle over 8-byte boundaries, and
# all register addresses from 0x04 to 0x0f behave like 0x04-0x07 do for
# the LM75.
sub lm75_detect
{
my $i;
my ($chip, $file, $addr) = @_;
my $cur = i2c_smbus_read_word_data($file,0x00);
my $conf = i2c_smbus_read_byte_data($file,0x01);
my $hyst = i2c_smbus_read_word_data($file,0x02);
my $maxreg = $chip == 1 ? 0x0f : 0x07;
for $i (0x04 .. $maxreg) {
return if i2c_smbus_read_word_data($file, $i) != $hyst;
}
my $os = i2c_smbus_read_word_data($file,0x03);
for $i (0x04 .. $maxreg) {
return if i2c_smbus_read_word_data($file, $i) != $os;
}
if ($chip == 0) {
for ($i = 8; $i <= 248; $i += 40) {
return if i2c_smbus_read_byte_data($file, $i + 0x01) != $conf
or i2c_smbus_read_word_data($file, $i + 0x02) != $hyst
or i2c_smbus_read_word_data($file, $i + 0x03) != $os;
}
}
# All registers hold the same value, obviously a misdetection
return if $conf == ($cur & 0xff) and $cur == $hyst
and $cur == $os;
$cur = swap_bytes($cur);
$hyst = swap_bytes($hyst);
$os = swap_bytes($os);
# Unused bits
return if $chip == 0 and ($conf & 0xe0);
return if $chip == 1 and ($conf & 0x80);
$cur = $cur >> 8;
$hyst = $hyst >> 8;
$os = $os >> 8;
# Most probable value ranges
return 6 if $cur <= 100 and ($hyst >= 10 && $hyst <= 125)
and ($os >= 20 && $os <= 127) and $hyst < $os;
return 3;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, 3 or 6 if detected;
# 6 means that the temperatures make sense;
# 3 means that the temperatures look strange;
# Registers used:
# 0x00: Temperature
# 0x01: Configuration
# 0x02: Hysteresis
# 0x03: Overtemperature Shutdown
# 0x04: Low limit
# 0x05: High limit
# 0x04-0x07: No registers
# The first detection step is based on the fact that the LM77 has only
# six registers, and cycles addresses over 8-byte boundaries. We use the
# 0x06-0x07 addresses (unused) to improve the reliability. These are not
# real registers and will always return the last returned value. This isn't
# documented.
# Note that register 0x00 may change, so we can't use the modulo trick on it.
sub lm77_detect
{
my $i;
my ($file,$addr) = @_;
my $cur = i2c_smbus_read_word_data($file,0x00);
my $conf = i2c_smbus_read_byte_data($file,0x01);
my $hyst = i2c_smbus_read_word_data($file,0x02);
my $os = i2c_smbus_read_word_data($file,0x03);
my $low = i2c_smbus_read_word_data($file,0x04);
return if i2c_smbus_read_word_data($file,0x06) != $low;
return if i2c_smbus_read_word_data($file,0x07) != $low;
my $high = i2c_smbus_read_word_data($file,0x05);
return if i2c_smbus_read_word_data($file,0x06) != $high;
return if i2c_smbus_read_word_data($file,0x07) != $high;
for ($i = 8; $i <= 248; $i += 40) {
return if i2c_smbus_read_byte_data($file, $i + 0x01) != $conf;
return if i2c_smbus_read_word_data($file, $i + 0x02) != $hyst;
return if i2c_smbus_read_word_data($file, $i + 0x03) != $os;
return if i2c_smbus_read_word_data($file, $i + 0x04) != $low;
return if i2c_smbus_read_word_data($file, $i + 0x05) != $high;
}
# All registers hold the same value, obviously a misdetection
return if $conf == ($cur & 0xff) and $cur == $hyst
and $cur == $os and $cur == $low and $cur == $high;
$cur = swap_bytes($cur);
$os = swap_bytes($os);
$hyst = swap_bytes($hyst);
$low = swap_bytes($low);
$high = swap_bytes($high);
# Unused bits
return if ($conf & 0xe0)
or (($cur >> 12) != 0 && ($cur >> 12) != 0xf)
or (($hyst >> 12) != 0 && ($hyst >> 12) != 0xf)
or (($os >> 12) != 0 && ($os >> 12) != 0xf)
or (($low >> 12) != 0 && ($low >> 12) != 0xf)
or (($high >> 12) != 0 && ($high >> 12) != 0xf);
$cur /= 16;
$hyst /= 16;
$os /= 16;
$high /= 16;
$low /= 16;
# Most probable value ranges
return 6 if $cur <= 100 and $hyst <= 40
and ($os >= 20 && $os <= 127) and ($high >= 20 && $high <= 127);
return 3;
}
# $_[0]: Chip to detect (0 = LM92, 1 = LM76, 2 = MAX6633/MAX6634/MAX6635)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 2 or 4 if detected;
# Registers used:
# 0x01: Configuration (National Semiconductor only)
# 0x02: Hysteresis
# 0x03: Critical Temp
# 0x04: Low Limit
# 0x05: High Limit
# 0x07: Manufacturer ID (LM92 only)
# One detection step is based on the fact that the LM92 and clones have a
# limited number of registers, which cycle modulo 16 address values.
# Note that register 0x00 may change, so we can't use the modulo trick on it.
sub lm92_detect
{
my ($chip, $file, $addr) = @_;
my $conf = i2c_smbus_read_byte_data($file, 0x01);
my $hyst = i2c_smbus_read_word_data($file, 0x02);
my $crit = i2c_smbus_read_word_data($file, 0x03);
my $low = i2c_smbus_read_word_data($file, 0x04);
my $high = i2c_smbus_read_word_data($file, 0x05);
return if $conf == 0 and $hyst == 0 and $crit == 0
and $low == 0 and $high == 0;
return if $chip == 0
and i2c_smbus_read_word_data($file, 0x07) != 0x0180;
return if ($chip == 0 || $chip == 1)
and ($conf & 0xE0);
for (my $i = 0; $i < 8; $i++) {
return if i2c_smbus_read_byte_data($file, $i*16+0x01) != $conf;
return if i2c_smbus_read_word_data($file, $i*16+0x02) != $hyst;
return if i2c_smbus_read_word_data($file, $i*16+0x03) != $crit;
return if i2c_smbus_read_word_data($file, $i*16+0x04) != $low;
return if i2c_smbus_read_word_data($file, $i*16+0x05) != $high;
}
foreach my $temp ($hyst, $crit, $low, $high) {
return if $chip == 2 and ($temp & 0x7F00);
return if $chip != 2 and ($temp & 0x0700);
}
return 4 if $chip == 0;
return 2;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, 3 if detected
# Registers used:
# 0xAA: Temperature
# 0xA1: High limit
# 0xA2: Low limit
# 0xAC: Configuration
# Detection is weak. We check if bit 4 (NVB) is clear, because it is
# unlikely to be set (would mean that EEPROM is currently being accessed).
# Temperature checkings will hopefully prevent LM75 or other chips from
# being detected as a DS1621.
sub ds1621_detect
{
my $i;
my ($file,$addr) = @_;
my $temp = i2c_smbus_read_word_data($file,0xAA);
my $high = i2c_smbus_read_word_data($file,0xA1);
my $low = i2c_smbus_read_word_data($file,0xA2);
return if ($temp | $high | $low) & 0x7F00;
my $conf = i2c_smbus_read_byte_data($file,0xAC);
return if ($temp == 0 && $high == 0 && $low == 0 && $conf == 0);
return 3 if ($conf & 0x10) == 0x00;
return;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, 1 to 3 if detected.
# Registers used:
# 0x00: Configuration register
# 0x02: Interrupt state register
# 0x2a-0x3d: Limits registers
# This one is easily misdetected since it doesn't provide identification
# registers. So we have to use some tricks:
# - 6-bit addressing, so limits readings modulo 0x40 should be unchanged
# - positive temperature limits
# - limits order correctness
# Hopefully this should limit the rate of false positives, without increasing
# the rate of false negatives.
# Thanks to Lennard Klein for testing on a non-LM80 chip, which was
# previously misdetected, and isn't anymore. For reference, it scored
# a final confidence of 0, and changing from strict limit comparisons
# to loose comparisons did not change the score.
sub lm80_detect
{
my ($i,$reg);
my ($file,$addr) = @_;
return if (i2c_smbus_read_byte_data($file,0x00) & 0x80) != 0;
return if (i2c_smbus_read_byte_data($file,0x02) & 0xc0) != 0;
for ($i = 0x2a; $i <= 0x3d; $i++) {
$reg = i2c_smbus_read_byte_data($file,$i);
return if i2c_smbus_read_byte_data($file,$i+0x40) != $reg;
return if i2c_smbus_read_byte_data($file,$i+0x80) != $reg;
return if i2c_smbus_read_byte_data($file,$i+0xc0) != $reg;
}
# Refine a bit by checking wether limits are in the correct order
# (min<max for voltages, hyst<max for temperature). Since it is still
# possible that the chip is an LM80 with limits not properly set,
# a few "errors" are tolerated.
my $confidence = 0;
for ($i = 0x2a; $i <= 0x3a; $i++) {
$confidence++
if i2c_smbus_read_byte_data($file,$i) < i2c_smbus_read_byte_data($file,$i+1);
}
# hot temp<OS temp
$confidence++
if i2c_smbus_read_byte_data($file,0x38) < i2c_smbus_read_byte_data($file,0x3a);
# Negative temperature limits are unlikely.
for ($i = 0x3a; $i <= 0x3d; $i++) {
$confidence++ if (i2c_smbus_read_byte_data($file,$i) & 0x80) == 0;
}
# $confidence is between 0 and 14
$confidence = ($confidence >> 1) - 4;
# $confidence is now between -4 and 3
return unless $confidence > 0;
return $confidence;
}
# $_[0]: Chip to detect
# (0 = LM82/LM83)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 4 to 8 if detected.
# Registers used:
# 0x02: Status 1
# 0x03: Configuration
# 0x04: Company ID of LM84
# 0x35: Status 2
# 0xfe: Manufacturer ID
# 0xff: Chip ID / die revision
# We can use the LM84 Company ID register because the LM83 and the LM82 are
# compatible with the LM84.
# The LM83 chip ID is missing from the datasheet and was contributed by
# Magnus Forsstrom: 0x03.
# At least some revisions of the LM82 seem to be repackaged LM83, so they
# have the same chip ID, and temp2/temp4 will be stuck in "OPEN" state.
# For this reason, we don't even try to distinguish between both chips.
# Thanks to Ben Gardner for reporting.
sub lm83_detect
{
my ($chip, $file) = @_;
return if i2c_smbus_read_byte_data($file,0xfe) != 0x01;
my $chipid = i2c_smbus_read_byte_data($file,0xff);
return if $chipid != 0x01 && $chipid != 0x03;
my $confidence = 4;
$confidence++
if (i2c_smbus_read_byte_data($file,0x02) & 0xa8) == 0x00;
$confidence++
if (i2c_smbus_read_byte_data($file,0x03) & 0x41) == 0x00;
$confidence++
if i2c_smbus_read_byte_data($file,0x04) == 0x00;
$confidence++
if (i2c_smbus_read_byte_data($file,0x35) & 0x48) == 0x00;
return $confidence;
}
# $_[0]: Chip to detect
# (0 = LM90, 1=LM89/LM99, 2=LM86, 3=ADM1032, 4=MAX6657/MAX6658/MAX6659,
# 5 = ADT7461, 6 = MAX6648/MAX6692, 7 = MAX6680/MAX6681,
# 8 = W83L771W/G), 9 = TI TMP401
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 4, 6 or 8 if detected.
# The Maxim chips MAX6657, MAX6658 and MAX6659 have a low confidence
# value (4) because they don't have a die revision register.
# Registers used:
# 0x03: Configuration
# 0x04: Conversion rate
# 0xfe: Manufacturer ID
# 0xff: Chip ID / die revision
sub lm90_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0xfe);
my $cid = i2c_smbus_read_byte_data($file, 0xff);
my $conf = i2c_smbus_read_byte_data($file, 0x03);
my $rate = i2c_smbus_read_byte_data($file, 0x04);
if ($chip == 0) {
return if ($conf & 0x2a) != 0;
return if $rate > 0x09;
return if $mid != 0x01; # National Semiconductor
return 8 if $cid == 0x21; # LM90
return 6 if ($cid & 0x0f) == 0x20;
}
if ($chip == 1) {
return if ($conf & 0x2a) != 0;
return if $rate > 0x09;
return if $mid != 0x01; # National Semiconductor
return 8 if $addr == 0x4c and $cid == 0x31; # LM89/LM99
return 8 if $addr == 0x4d and $cid == 0x34; # LM89-1/LM99-1
return 6 if ($cid & 0x0f) == 0x30;
}
if ($chip == 2) {
return if ($conf & 0x2a) != 0;
return if $rate > 0x09;
return if $mid != 0x01; # National Semiconductor
return 8 if $cid == 0x11; # LM86
return 6 if ($cid & 0xf0) == 0x10;
}
if ($chip == 3) {
return if ($conf & 0x3f) != 0;
return if $rate > 0x0a;
return if $mid != 0x41; # Analog Devices
return 8 if ($cid & 0xf0) == 0x40; # ADM1032
}
if ($chip == 4) {
return if ($conf & 0x1f) != ($mid & 0x0f); # No low nibble,
# returns previous low nibble
return if $rate > 0x09;
return if $mid != 0x4d; # Maxim
return if $cid != 0x4d; # No register, returns previous value
return 4;
}
if ($chip == 5) {
return if ($conf & 0x1b) != 0;
return if $rate > 0x0a;
return if $mid != 0x41; # Analog Devices
return 8 if $cid == 0x61; # ADT7461
}
if ($chip == 6) {
return if ($conf & 0x3f) != 0;
return if $rate > 0x07;
return if $mid != 0x4d; # Maxim
return if $cid != 0x59; # MAX6648/MAX6692
return 8;
}
if ($chip == 7) {
return if ($conf & 0x03) != 0;
return if $rate > 0x07;
return if $mid != 0x4d; # Maxim
return if $cid != 0x01; # MAX6680/MAX6681
return 6;
}
if ($chip == 8) {
return if ($conf & 0x2a) != 0;
return if $rate > 0x09;
return if $mid != 0x5c; # Winbond
return if $cid != 0x00; # W83L771W/G
return 6;
}
if ($chip == 9) {
return if ($conf & 0x1B) != 0;
return if $rate > 0x0F;
return if $mid != 0x55; # Texas Instruments
return if $cid != 0x11; # TMP401
return 6;
}
return;
}
# $_[0]: Chip to detect
# (1 = LM63, 2 = F75363SG)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 8 if detected.
# Registers used:
# 0xfe: Manufacturer ID
# 0xff: Chip ID / die revision
# 0x03: Configuration (two or three unused bits)
# 0x16: Alert mask (two or three unused bits)
# 0x03-0x0e: Mirrored registers (five pairs)
sub lm63_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0xfe);
my $cid = i2c_smbus_read_byte_data($file, 0xff);
my $conf = i2c_smbus_read_byte_data($file, 0x03);
my $mask = i2c_smbus_read_byte_data($file, 0x16);
if ($chip == 1) {
return if $mid != 0x01 # National Semiconductor
|| $cid != 0x41; # LM63
return if ($conf & 0x18) != 0x00
|| ($mask & 0xa4) != 0xa4;
} elsif ($chip == 2) {
return if $mid != 0x23 # Fintek
|| $cid != 0x20; # F75363SG
return if ($conf & 0x1a) != 0x00
|| ($mask & 0x84) != 0x00;
}
# For compatibility with the LM86, some registers are mirrored
# to alternative locations
return if $conf != i2c_smbus_read_byte_data($file, 0x09);
foreach my $i (0x04, 0x05, 0x07, 0x08) {
return if i2c_smbus_read_byte_data($file, $i)
!= i2c_smbus_read_byte_data($file, $i+6);
}
return 8;
}
# $_[0]: Chip to detect
# (0 = ADM1029)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 6 if detected.
# Registers used:
# 0x02, 0x03: Fan support
# 0x06: Temperature support
# 0x07, 0x08, 0x09: Fan config
# 0x0d: Manufacturer ID
# 0x0e: Chip ID / die revision
sub adm1029_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0x0d);
my $cid = i2c_smbus_read_byte_data($file, 0x0e);
my $cfg;
if ($chip == 0) {
return unless $mid == 0x41; # Analog Devices
return unless ($cid & 0xF0) == 0x00; # ADM1029
# Extra check on unused bits
$cfg = i2c_smbus_read_byte_data($file, 0x02);
return unless $cfg == 0x03;
$cfg = i2c_smbus_read_byte_data($file, 0x06);
return unless ($cfg & 0xF9) == 0x01;
foreach my $reg (0x03, 0x07, 0x08, 0x09) {
$cfg = i2c_smbus_read_byte_data($file, $reg);
return unless ($cfg & 0xFC) == 0x00;
}
return 7;
}
return;
}
# $_[0]: Chip to detect
# (0 = ADM1030, 1=ADM1031)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 3 to 7 (ADM1031) or 9 (ADM1030)
# if detected.
# Registers used:
# 0x01: Config 2
# 0x03: Status 2
# 0x0d, 0x0e, 0x0f: Temperature offsets
# 0x22: Fan speed config
# 0x3d: Chip ID
# 0x3e: Manufacturer ID
# 0x3f: Die revision
sub adm1031_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0x3e);
my $cid = i2c_smbus_read_byte_data($file, 0x3d);
my $drev = i2c_smbus_read_byte_data($file, 0x3f);
my $conf2 = i2c_smbus_read_byte_data($file, 0x01);
my $stat2 = i2c_smbus_read_byte_data($file, 0x03);
my $fsc = i2c_smbus_read_byte_data($file, 0x22);
my $lto = i2c_smbus_read_byte_data($file, 0x0d);
my $r1to = i2c_smbus_read_byte_data($file, 0x0e);
my $r2to = i2c_smbus_read_byte_data($file, 0x0f);
my $confidence = 3;
if ($chip == 0) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x30; # ADM1030
$confidence++ if ($drev & 0x70) == 0x00;
$confidence++ if ($conf2 & 0x4A) == 0x00;
$confidence++ if ($stat2 & 0x3F) == 0x00;
$confidence++ if ($fsc & 0xF0) == 0x00;
$confidence++ if ($lto & 0x70) == 0x00;
$confidence++ if ($r1to & 0x70) == 0x00;
return $confidence;
}
if ($chip == 1) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x31; # ADM1031
$confidence++ if ($drev & 0x70) == 0x00;
$confidence++ if ($lto & 0x70) == 0x00;
$confidence++ if ($r1to & 0x70) == 0x00;
$confidence++ if ($r2to & 0x70) == 0x00;
return $confidence;
}
return;
}
# $_[0]: Chip to detect
# (0 = ADM1033, 1 = ADM1034)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 4 or 6 if detected.
# Registers used:
# 0x3d: Chip ID
# 0x3e: Manufacturer ID
# 0x3f: Die revision
sub adm1034_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0x3e);
my $cid = i2c_smbus_read_byte_data($file, 0x3d);
my $drev = i2c_smbus_read_byte_data($file, 0x3f);
if ($chip == 0) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x33; # ADM1033
return if ($drev & 0xf8) != 0x00;
return 6 if $drev == 0x02;
return 4;
}
if ($chip == 1) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x34; # ADM1034
return if ($drev & 0xf8) != 0x00;
return 6 if $drev == 0x02;
return 4;
}
return
}
# $_[0]: Chip to detect
# (0 = ADT7467/ADT7468, 1 = ADT7476, 2 = ADT7462, 3 = ADT7466,
# 4 = ADT7470)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 5 or 7 if detected.
# Registers used:
# 0x3d: Chip ID
# 0x3e: Manufacturer ID
# 0x3f: Die revision
sub adt7467_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0x3e);
my $cid = i2c_smbus_read_byte_data($file, 0x3d);
my $drev = i2c_smbus_read_byte_data($file, 0x3f);
if ($chip == 0) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x68; # ADT7467
return if ($drev & 0xf0) != 0x70;
return 7 if ($drev == 0x71 || $drev == 0x72);
return 5;
}
if ($chip == 1) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x76; # ADT7476
return if ($drev & 0xf0) != 0x60;
return 7 if ($drev == 0x69);
return 5;
}
if ($chip == 2) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x62; # ADT7462
return if ($drev & 0xf0) != 0x00;
return 7 if ($drev == 0x04);
return 5;
}
if ($chip == 3) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x66; # ADT7466
return if ($drev & 0xf0) != 0x00;
return 7 if ($drev == 0x02);
return 5;
}
if ($chip == 4) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x70; # ADT7470
return if ($drev & 0xf0) != 0x00;
return 7 if ($drev == 0x00);
return 5;
}
return
}
# $_[0]: Chip to detect
# (0 = ADT7473, 1 = ADT7475)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 5 if detected.
# Registers used:
# 0x3d: Chip ID
# 0x3e: Manufacturer ID
sub adt7473_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0x3e);
my $cid = i2c_smbus_read_byte_data($file, 0x3d);
if ($chip == 0) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x73; # ADT7473
return 5;
}
if ($chip == 1) {
return if $mid != 0x41; # Analog Devices
return if $cid != 0x75; # ADT7475
return 5;
}
return
}
# $_[0]: Chip to detect
# (0 = aSC7512, 1 = aSC7611, 2 = aSC7621)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 1 if detected.
# Registers used:
# 0x3e: Manufacturer ID (0x61)
# 0x3f: Version
sub andigilog_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0x3e);
my $cid = i2c_smbus_read_byte_data($file, 0x3f);
return if ($mid != 0x61);
if ($chip == 0) {
return if $cid != 0x62;
return 5;
}
if ($chip == 1) {
return if $cid != 0x69;
return 5;
}
if ($chip == 2) {
return if $cid != 0x6C;
return 5;
}
return;
}
# $_[0]: Chip to detect
# (0 = aSC7511)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 1 if detected.
# Registers used:
# 0xfe: Manufacturer ID
# 0xff: Die Code
sub andigilog_aSC7511_detect
{
my ($chip, $file, $addr) = @_;
my $mid = i2c_smbus_read_byte_data($file, 0xfe);
my $die = i2c_smbus_read_byte_data($file, 0xff);
if ($chip == 0) {
return if $mid != 0x61; # Andigilog
if ($die == 0x0) {
return 3;
} else {
return 1;
}
}
return;
}
# $_[0]: Vendor to check for
# (0x01 = National Semi, 0x41 = Analog Dev, 0x5c = SMSC)
# $_[1]: A reference to the file descriptor to access this chip.
# #_[2]: Base address.
# Returns: undef if not detected, (7) or (8) if detected.
# Registers used: 0x3e == Vendor register.
# 0x3d == Device ID register (Analog Devices only).
# 0x3f == Version/Stepping register.
# Constants used: 0x01 == National Semiconductor Vendor Id.
# 0x41 == Analog Devices Vendor Id.
# 0x5c == SMSC Vendor Id.
# 0x60 == Version number. The lower 4 stepping
# bits are masked and ignored.
sub lm85_detect
{
my ($vendor,$file,$addr) = @_;
return if (i2c_smbus_read_byte_data($file,0x3e)) != $vendor ;
my $verstep = i2c_smbus_read_byte_data($file,0x3f);
return if ($verstep & 0xf0) != 0x60;
if ($vendor == 0x41) # Analog Devices
{
return if i2c_smbus_read_byte_data($file, 0x3d) != 0x27;
return (8);
}
if ($vendor == 0x5c) # SMSC
{
# Return undef if this is a SCH5027
return if $verstep >= 0x69 and
i2c_smbus_read_byte_data($file, 0xba) == 0x0f;
}
return (7);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (7) if detected.
# Registers used: 0x3E, 0x3F
# Assume lower 2 bits of reg 0x3F are for revisions.
sub lm87_detect
{
my ($file,$addr) = @_;
return if (i2c_smbus_read_byte_data($file,0x3e)) != 0x02;
return if (i2c_smbus_read_byte_data($file,0x3f) & 0xfc) != 0x04;
return (7);
}
# $_[0]: Chip to detect (0 = W83781D, 1 = W83782D, 2 = W83783S,
# 3 = W83627HF, 4 = AS99127F (rev.1),
# 5 = AS99127F (rev.2), 6 = ASB100, 7 = W83791D,
# 8 = W83792D, 9 = W83627EHF 10 = W83627DHG)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (8,addr1,addr2) if detected, but only
# if the LM75 chip emulation is enabled.
# Registers used:
# 0x48: Full I2C Address
# 0x4a: I2C addresses of emulated LM75 chips
# 0x4e: Vendor ID byte selection, and bank selection
# 0x4f: Vendor ID
# 0x58: Device ID (only when in bank 0)
# Note: Fails if the W8378xD is not in bank 0!
# Note: Detection overrules a previous LM78 detection
# Note: Asus chips do not have their I2C address at register 0x48?
# AS99127F rev.1 and ASB100 have 0x00, confirmation wanted for
# AS99127F rev.2.
sub w83781d_detect
{
my ($reg1,$reg2,@res);
my ($chip,$file,$addr) = @_;
return unless (i2c_smbus_read_byte_data($file,0x48) == $addr)
or ($chip >= 4 && $chip <= 6);
$reg1 = i2c_smbus_read_byte_data($file,0x4e);
$reg2 = i2c_smbus_read_byte_data($file,0x4f);
if ($chip == 4) { # Asus AS99127F (rev.1)
return unless (($reg1 & 0x80) == 0x00 and $reg2 == 0xc3) or
(($reg1 & 0x80) == 0x80 and $reg2 == 0x12);
} elsif ($chip == 6) { # Asus ASB100
return unless (($reg1 & 0x80) == 0x00 and $reg2 == 0x94) or
(($reg1 & 0x80) == 0x80 and $reg2 == 0x06);
} else { # Winbond and Asus AS99127F (rev.2)
return unless (($reg1 & 0x80) == 0x00 and $reg2 == 0xa3) or
(($reg1 & 0x80) == 0x80 and $reg2 == 0x5c);
}
return unless ($reg1 & 0x07) == 0x00;
$reg1 = i2c_smbus_read_byte_data($file,0x58);
return if $chip == 0 and ($reg1 != 0x10 && $reg1 != 0x11);
return if $chip == 1 and $reg1 != 0x30;
return if $chip == 2 and $reg1 != 0x40;
return if $chip == 3 and $reg1 != 0x21;
return if $chip == 4 and $reg1 != 0x31;
return if $chip == 5 and $reg1 != 0x31;
return if $chip == 6 and $reg1 != 0x31;
return if $chip == 7 and $reg1 != 0x71;
return if $chip == 8 and $reg1 != 0x7a;
return if $chip == 9 and $reg1 != 0xa1;
return if $chip == 10 and $reg1 != 0xa2;
$reg1 = i2c_smbus_read_byte_data($file,0x4a);
# Default address is 0x2d
@res = ($addr != 0x2d) ? (7) : (8);
return @res if $chip == 9; # No subclients
push @res, ($reg1 & 0x07) + 0x48 unless $reg1 & 0x08;
push @res, (($reg1 & 0x70) >> 4) + 0x48 unless ($reg1 & 0x80 or $chip == 2);
return @res;
}
# $_[0]: Chip to detect (0 = W83793)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected
# 6 if detected and bank different from 0
# (8,addr1,addr2) if detected, band is 0 and LM75 chip emulation
# is enabled
# Registers used:
# 0x0b: Full I2C Address
# 0x0c: I2C addresses of emulated LM75 chips
# 0x00: Vendor ID byte selection, and bank selection(Bank 0,1,2)
# 0x0d: Vendor ID(Bank 0,1,2)
# 0x0e: Device ID(Bank 0,1,2)
sub w83793_detect
{
my ($bank, $reg, @res);
my ($chip, $file, $addr) = @_;
$bank = i2c_smbus_read_byte_data($file, 0x00);
$reg = i2c_smbus_read_byte_data($file, 0x0d);
return unless (($bank & 0x80) == 0x00 and $reg == 0xa3) or
(($bank & 0x80) == 0x80 and $reg == 0x5c);
$reg = i2c_smbus_read_byte_data($file, 0x0e);
return if $chip == 0 and $reg != 0x7b;
# If bank 0 is selected, we can do more checks
return 6 unless ($bank & 0x07) == 0;
$reg = i2c_smbus_read_byte_data($file, 0x0b);
return unless ($reg == ($addr << 1));
$reg = i2c_smbus_read_byte_data($file, 0x0c);
@res = (8);
push @res, ($reg & 0x07) + 0x48 unless $reg & 0x08;
push @res, (($reg & 0x70) >> 4) + 0x48 unless $reg & 0x80;
return @res;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, 3 if detected
# Registers used:
# 0x48: Full I2C Address
# 0x4e: Vendor ID byte selection
# 0x4f: Vendor ID
# 0x58: Device ID
# Note that the datasheet was useless and this detection routine
# is based on dumps we received from users. Also, the W83781SD is *NOT*
# a hardware monitoring chip as far as we know, but we still want to
# detect it so that people won't keep reporting it as an unknown chip
# we should investigate about.
sub w83791sd_detect
{
my ($file, $addr) = @_;
my ($reg1, $reg2);
return unless (i2c_smbus_read_byte_data($file, 0x48) == $addr);
$reg1 = i2c_smbus_read_byte_data($file, 0x4e);
$reg2 = i2c_smbus_read_byte_data($file, 0x4f);
return unless (!($reg1 & 0x80) && $reg2 == 0xa3)
|| (($reg1 & 0x80) && $reg2 == 0x5c);
$reg1 = i2c_smbus_read_byte_data($file, 0x58);
return unless $reg1 == 0x72;
return 3;
}
# $_[0]: Chip to detect (0 = ASM58, 1 = AS2K129R, 2 = ???)
# $_[1]: A reference to the file descriptor to access this chip
# $_[2]: Address (unused)
# Returns: undef if not detected, 5 if detected
# Registers used:
# 0x4e: Vendor ID high byte
# 0x4f: Vendor ID low byte
# 0x58: Device ID
# Note: The values were given by Alex van Kaam, we don't have datasheets
# to confirm.
sub mozart_detect
{
my ($vid,$dev);
my ($chip,$file,$addr) = @_;
$vid = (i2c_smbus_read_byte_data($file,0x4e) << 8)
+ i2c_smbus_read_byte_data($file,0x4f);
$dev = i2c_smbus_read_byte_data($file,0x58);
return if ($chip == 0) and ($dev != 0x56 || $vid != 0x9436);
return if ($chip == 1) and ($dev != 0x56 || $vid != 0x9406);
return if ($chip == 2) and ($dev != 0x10 || $vid != 0x5ca3);
return 5;
}
# $_[0]: Chip to detect (0 = W83781D, 1 = W83782D, 3 = W83627HF,
# 9 = W83627EHF 10 = W83627DHG)
# $_[1]: ISA address
# $_[2]: I2C file handle
# $_[3]: I2C address
sub w83781d_alias_detect
{
my ($chip,$isa_addr,$file,$i2c_addr) = @_;
my $i;
my $readproc = sub { isa_read_byte $isa_addr + 5, $isa_addr + 6, @_ };
return 0 unless &$readproc(0x48) == $i2c_addr;
for ($i = 0x2b; $i <= 0x3d; $i ++) {
return 0 unless &$readproc($i) == i2c_smbus_read_byte_data($file,$i);
}
return 1;
}
# $_[0]: Chip to detect (0 = W83781D, 1 = W83782D)
# $_[1]: Address
# Returns: undef if not detected, (8) if detected.
sub w83781d_isa_detect
{
my ($chip,$addr) = @_ ;
my ($reg1,$reg2);
my $val = inb ($addr + 1);
return if inb ($addr + 2) != $val or inb ($addr + 3) != $val or
inb ($addr + 7) != $val;
$val = inb($addr + 5);
outb($addr+5, ~$val & 0x7f);
if ((inb ($addr+5) & 0x7f) != (~ $val & 0x7f)) {
outb($addr+5,$val);
return;
}
my $read_proc = sub { isa_read_byte $addr + 5, $addr + 6, @_ };
$reg1 = &$read_proc(0x4e);
$reg2 = &$read_proc(0x4f);
return unless (($reg1 & 0x80) == 0x00 and $reg2 == 0xa3) or
(($reg1 & 0x80) == 0x80 and $reg2 == 0x5c);
return unless ($reg1 & 0x07) == 0x00;
$reg1 = &$read_proc(0x58);
return if $chip == 0 and ($reg1 & 0xfe) != 0x10;
return if $chip == 1 and ($reg1 & 0xfe) != 0x30;
return 8;
}
# $_[0]: Chip to detect (0 = Revision 0x00, 1 = Revision 0x80)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (6) if detected.
# Registers used:
# 0x00: Device ID
# 0x01: Revision ID
# 0x03: Configuration
# Mediocre detection
sub gl518sm_detect
{
my $reg;
my ($chip,$file,$addr) = @_;
return unless i2c_smbus_read_byte_data($file,0x00) == 0x80;
return unless (i2c_smbus_read_byte_data($file,0x03) & 0x80) == 0x00;
$reg = i2c_smbus_read_byte_data($file,0x01);
return unless ($chip == 0 and $reg == 0x00) or
($chip == 1 and $reg == 0x80);
return (6);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (5) if detected.
# Registers used:
# 0x00: Device ID
# 0x01: Revision ID
# 0x03: Configuration
# Mediocre detection
sub gl520sm_detect
{
my ($file,$addr) = @_;
return unless i2c_smbus_read_byte_data($file,0x00) == 0x20;
return unless (i2c_smbus_read_byte_data($file,0x03) & 0x80) == 0x00;
# The line below must be better checked before I dare to use it.
# return unless i2c_smbus_read_byte_data($file,0x01) == 0x00;
return (5);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (5) if detected.
# Registers used:
# 0x00: Device ID
# Mediocre detection
sub gl525sm_detect
{
my ($file,$addr) = @_;
return unless i2c_smbus_read_byte_data($file,0x00) == 0x25;
return (5);
}
# $_[0]: Chip to detect (0 = ADM9240, 1 = DS1780, 2 = LM81)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (7) if detected.
# Registers used:
# 0x3e: Company ID
# 0x40: Configuration
# 0x48: Full I2C Address
# Note: Detection overrules a previous LM78 detection
sub adm9240_detect
{
my $reg;
my ($chip, $file,$addr) = @_;
$reg = i2c_smbus_read_byte_data($file,0x3e);
return unless ($chip == 0 and $reg == 0x23) or
($chip == 1 and $reg == 0xda) or
($chip == 2 and $reg == 0x01);
return unless (i2c_smbus_read_byte_data($file,0x40) & 0x80) == 0x00;
return unless i2c_smbus_read_byte_data($file,0x48) == $addr;
return (7);
}
# $_[0]: Chip to detect (0 = ADM1022, 1 = THMC50, 2 = ADM1028)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x3e: Company ID
# 0x3f: Revision
# 0x40: Configuration
# Note: Detection overrules a previous LM78 or ADM9240 detection
sub adm1022_detect
{
my $reg;
my ($chip, $file,$addr) = @_;
$reg = i2c_smbus_read_byte_data($file,0x3e);
return unless ($chip == 0 and $reg == 0x41) or
($chip == 1 and $reg == 0x49) or
($chip == 2 and $reg == 0x41);
$reg = i2c_smbus_read_byte_data($file,0x40);
return if ($reg & 0x10); # Soft Reset always reads 0
return if ($chip != 0 and ($reg & 0x80)); # Reserved on THMC50 and ADM1028
$reg = i2c_smbus_read_byte_data($file, 0x3f) & 0xf0;
return unless ($chip == 0 and $reg == 0xc0) or
($chip == 1 and $reg == 0xc0) or
($chip == 2 and $reg == 0xd0);
return (8);
}
# $_[0]: Chip to detect (0 = ADM1025, 1 = NE1619)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x3e: Company ID
# 0x3f: Revision
# 0x40: Configuration
# 0x41: Status 1
# 0x42: Status 2
# Note: Detection overrules a previous LM78 or ADM9240 detection
sub adm1025_detect
{
my $reg;
my ($chip, $file,$addr) = @_;
$reg = i2c_smbus_read_byte_data($file,0x3e);
return if ($chip == 0) and ($reg != 0x41);
return if ($chip == 1) and ($reg != 0xA1);
return unless (i2c_smbus_read_byte_data($file,0x40) & 0x80) == 0x00;
return unless (i2c_smbus_read_byte_data($file,0x41) & 0xC0) == 0x00;
return unless (i2c_smbus_read_byte_data($file,0x42) & 0xBC) == 0x00;
return unless (i2c_smbus_read_byte_data($file,0x3f) & 0xf0) == 0x20;
return (8);
}
# $_[0]: Chip to detect (0 = ADM1026)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x16: Company ID
# 0x17: Revision
sub adm1026_detect
{
my $reg;
my ($chip, $file,$addr) = @_;
$reg = i2c_smbus_read_byte_data($file,0x16);
return unless ($reg == 0x41);
return unless (i2c_smbus_read_byte_data($file,0x17) & 0xf0) == 0x40;
return (8);
}
# $_[0]: Chip to detect (0 = ADM1024)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x3e: Company ID
# 0x3f: Revision
# 0x40: Configuration
sub adm1024_detect
{
my $reg;
my ($chip, $file,$addr) = @_;
$reg = i2c_smbus_read_byte_data($file,0x3e);
return unless ($reg == 0x41);
return unless (i2c_smbus_read_byte_data($file,0x40) & 0x80) == 0x00;
return unless (i2c_smbus_read_byte_data($file,0x3f) & 0xf0) == 0x10;
return (8);
}
# $_[0]: Chip to detect
# (0 = ADM1021, 1 = ADM1021A/ADM1023, 2 = MAX1617, 3 = MAX1617A, 4 = THMC10,
# 5 = LM84, 6 = GL523, 7 = MC1066)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 3 if simply detected, 5 if detected and
# manufacturer ID matches, 7 if detected and manufacturer ID and
# revision match
# Registers used:
# 0x04: Company ID (LM84 only)
# 0xfe: Company ID (all but LM84 and MAX1617)
# 0xff: Revision (ADM1021, ADM1021A/ADM1023 and MAX1617A)
# 0x02: Status
# 0x03: Configuration
# 0x04: Conversion rate
# 0x00-0x01, 0x05-0x08: Temperatures (MAX1617 and LM84)
# Note: Especially the MAX1617 has very bad detection; we give it a low
# confidence value.
sub adm1021_detect
{
my ($chip, $file, $addr) = @_;
my $man_id = i2c_smbus_read_byte_data($file, 0xfe);
my $rev = i2c_smbus_read_byte_data($file, 0xff);
my $conf = i2c_smbus_read_byte_data($file, 0x03);
my $status = i2c_smbus_read_byte_data($file, 0x02);
my $convrate = i2c_smbus_read_byte_data($file, 0x04);
# Check manufacturer IDs and product revisions when available
return if $chip == 0 and $man_id != 0x41 ||
($rev & 0xf0) != 0x00;
return if $chip == 1 and $man_id != 0x41 ||
($rev & 0xf0) != 0x30;
return if $chip == 3 and $man_id != 0x4d ||
$rev != 0x01;
return if $chip == 4 and $man_id != 0x49;
return if $chip == 5 and $convrate != 0x00;
return if $chip == 6 and $man_id != 0x23;
return if $chip == 7 and $man_id != 0x54;
# Check unused bits
if ($chip == 5) # LM84
{
return if ($status & 0xab) != 0;
return if ($conf & 0x7f) != 0;
}
else
{
return if ($status & 0x03) != 0;
return if ($conf & 0x3f) != 0;
return if ($convrate & 0xf8) != 0;
}
# Extra checks for MAX1617 and LM84, since those are often misdetected
# We verify several assertions (6 for the MAX1617, 4 for the LM84) and
# discard the chip if any fail. Note that these checks are not done
# by the adm1021 driver.
if ($chip == 2 || $chip == 5)
{
my $lte = i2c_smbus_read_byte_data($file, 0x00);
my $rte = i2c_smbus_read_byte_data($file, 0x01);
my $lhi = i2c_smbus_read_byte_data($file, 0x05);
my $rhi = i2c_smbus_read_byte_data($file, 0x07);
my $llo = i2c_smbus_read_byte_data($file, 0x06);
my $rlo = i2c_smbus_read_byte_data($file, 0x08);
# If all registers hold the same value, it has to be a misdetection
return if $lte == $rte and $lte == $lhi and $lte == $rhi
and $lte == $llo and $lte == $rlo;
# Negative temperatures
return if ($lte & 0x80) or ($rte & 0x80);
# Negative high limits
return if ($lhi & 0x80) or ($rhi & 0x80);
# Low limits over high limits
if ($chip != 5) # LM84 doesn't have low limits
{
$llo-=256 if ($llo & 0x80);
$rlo-=256 if ($rlo & 0x80);
return if ($llo > $lhi) or ($rlo > $rhi);
}
}
return 3 if ($chip == 2) or ($chip == 5);
return 7 if $chip <= 3;
return 5;
}
# $_[0]: Chip to detect
# (0 = MAX1668, 1 = MAX1805, 2 = MAX1989)
# $_[1]: A reference to the file descriptor to access this chip.
# We may assume an i2c_set_slave_addr was already done.
# $_[2]: Address
# Returns: undef if not detected, 7 if detected
# Registers used:
# 0xfe: Company ID
# 0xff: Device ID
sub max1668_detect
{
my ($chip, $file, $addr) = @_;
my $man_id = i2c_smbus_read_byte_data($file, 0xfe);
my $dev_id = i2c_smbus_read_byte_data($file, 0xff);
return if $man_id != 0x4d;
return if $chip == 0 and $dev_id != 0x03;
return if $chip == 1 and $dev_id != 0x05;
return if $chip == 2 and $dev_id != 0x0b;
return 7;
}
# $_[0]: Chip to detect
# (0 = MAX1619)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 7 if detected
# Registers used:
# 0xfe: Company ID
# 0xff: Device ID
# 0x02: Status
# 0x03: Configuration
# 0x04: Conversion rate
sub max1619_detect
{
my ($chip, $file, $addr) = @_;
my $man_id = i2c_smbus_read_byte_data($file, 0xfe);
my $dev_id = i2c_smbus_read_byte_data($file, 0xff);
my $conf = i2c_smbus_read_byte_data($file, 0x03);
my $status = i2c_smbus_read_byte_data($file, 0x02);
my $convrate = i2c_smbus_read_byte_data($file, 0x04);
return if $man_id != 0x4D
or $dev_id != 0x04
or ($conf & 0x03)
or ($status & 0x61)
or $convrate >= 8;
return 7;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address (unused)
# Returns: undef if not detected, 6 if detected.
# Registers used:
# 0x28: User ID
# 0x29: User ID2
# 0x2A: Version ID
sub ite_overclock_detect
{
my ($file, $addr) = @_;
my $uid1 = i2c_smbus_read_byte_data($file, 0x28);
my $uid2 = i2c_smbus_read_byte_data($file, 0x29);
return if $uid1 != 0x83
|| $uid2 != 0x12;
return 6;
}
# $_[0]: Chip to detect (0 = IT8712F)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 7 or 8 if detected (tops LM78).
# Registers used:
# 0x00: Configuration
# 0x48: Full I2C Address
# 0x58: Mfr ID
# 0x5b: Device ID (not on IT8705)
sub ite_detect
{
my $reg;
my ($chip,$file,$addr) = @_;
return unless i2c_smbus_read_byte_data($file,0x48) == $addr;
return unless (i2c_smbus_read_byte_data($file, 0x00) & 0x90) == 0x10;
return unless i2c_smbus_read_byte_data($file,0x58) == 0x90;
return if $chip == 0 and i2c_smbus_read_byte_data($file,0x5b) != 0x12;
return (7 + ($addr == 0x2d));
}
# $_[0]: Chip to detect (0 = IT8712F)
# $_[1]: ISA address
# $_[2]: I2C file handle
# $_[3]: I2C address
sub ite_alias_detect
{
my ($chip,$isa_addr,$file,$i2c_addr) = @_;
my $i;
my $readproc = sub { isa_read_byte $isa_addr + 5, $isa_addr + 6, @_ };
return 0 unless &$readproc(0x48) == $i2c_addr;
for ($i = 0x30; $i <= 0x45; $i++) {
return 0 unless &$readproc($i) == i2c_smbus_read_byte_data($file,$i);
}
return 1;
}
# $_[0]: A reference to the file descriptor to access this chip
# $_[1]: Address
# Returns: 8 for a memory eeprom
# Registers used:
# 0-63: SPD Data and Checksum
sub eeprom_detect
{
my ($file, $addr) = @_;
my $checksum = 0;
# Check the checksum for validity (works for most DIMMs and RIMMs)
for (my $i = 0; $i <= 62; $i++) {
$checksum += i2c_smbus_read_byte_data($file, $i);
}
$checksum &= 255;
return 8
if $checksum == i2c_smbus_read_byte_data($file, 63);
return;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, 8 if detected.
# Registers used:
# 0x00..0x07: DDC signature
sub ddcmonitor_detect
{
my ($file,$addr) = @_;
return unless
i2c_smbus_read_byte_data($file,0x00) == 0x00 and
i2c_smbus_read_byte_data($file,0x01) == 0xFF and
i2c_smbus_read_byte_data($file,0x02) == 0xFF and
i2c_smbus_read_byte_data($file,0x03) == 0xFF and
i2c_smbus_read_byte_data($file,0x04) == 0xFF and
i2c_smbus_read_byte_data($file,0x05) == 0xFF and
i2c_smbus_read_byte_data($file,0x06) == 0xFF and
i2c_smbus_read_byte_data($file,0x07) == 0x00;
return 8;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x00-0x02: Identification ('P','E','G' -> Pegasus ? :-) aka Poseidon I
sub fscpeg_detect
{
my ($file,$addr) = @_;
# check the first 3 registers
if (i2c_smbus_read_byte_data($file,0x00) != 0x50) {
return;
}
if (i2c_smbus_read_byte_data($file,0x01) != 0x45) {
return;
}
if (i2c_smbus_read_byte_data($file,0x02) != 0x47) {
return;
}
return (8);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x00-0x02: Identification 'P','O','S' -> Poseideon II
sub fscpos_detect
{
my ($file,$addr) = @_;
# check the first 3 registers
if (i2c_smbus_read_byte_data($file,0x00) != 0x50) {
return;
}
if (i2c_smbus_read_byte_data($file,0x01) != 0x4F) {
return;
}
if (i2c_smbus_read_byte_data($file,0x02) != 0x53) {
return;
}
return (8);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x00-0x02: Identification ('S','C','Y')
sub fscscy_detect
{
my ($file,$addr) = @_;
# check the first 3 registers
if (i2c_smbus_read_byte_data($file,0x00) != 0x53) {
return;
}
if (i2c_smbus_read_byte_data($file,0x01) != 0x43) {
return;
}
if (i2c_smbus_read_byte_data($file,0x02) != 0x59) {
return;
}
return (8);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x00-0x02: Identification ('H','E','R')
sub fscher_detect
{
my ($file,$addr) = @_;
# check the first 3 registers
if (i2c_smbus_read_byte_data($file,0x00) != 0x48) {
return;
}
if (i2c_smbus_read_byte_data($file,0x01) != 0x45) {
return;
}
if (i2c_smbus_read_byte_data($file,0x02) != 0x52) {
return;
}
return (8);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x00-0x02: Identification ('H','M','D')
sub fschmd_detect
{
my ($file,$addr) = @_;
# check the first 3 registers
if (i2c_smbus_read_byte_data($file,0x00) != 0x48) {
return;
}
if (i2c_smbus_read_byte_data($file,0x01) != 0x4D) {
return;
}
if (i2c_smbus_read_byte_data($file,0x02) != 0x44) {
return;
}
return (8);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (8) if detected.
# Registers used:
# 0x00-0x02: Identification ('H','R','C')
sub fschrc_detect
{
my ($file,$addr) = @_;
# check the first 3 registers
if (i2c_smbus_read_byte_data($file,0x00) != 0x48) {
return;
}
if (i2c_smbus_read_byte_data($file,0x01) != 0x52) {
return;
}
if (i2c_smbus_read_byte_data($file,0x02) != 0x43) {
return;
}
return (8);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address (unused)
# Returns: undef if not detected, 5 if detected.
# Registers used:
# 0x3E: Manufacturer ID
# 0x3F: Version/Stepping
sub lm93_detect
{
my $file = shift;
return unless i2c_smbus_read_byte_data($file, 0x3E) == 0x01
and i2c_smbus_read_byte_data($file, 0x3F) == 0x73;
return 5;
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, (7) if detected.
# Registers used:
# 0x3F: Revision ID
# 0x48: Address
# 0x4A, 0x4B, 0x4F, 0x57, 0x58: Reserved bits.
# We do not use 0x49's reserved bits on purpose. The register is named
# "VID4/Device ID" so it is doubtful bits 7-1 are really unused.
sub m5879_detect
{
my ($file, $addr) = @_;
return
unless i2c_smbus_read_byte_data($file, 0x3F) == 0x01;
return
unless i2c_smbus_read_byte_data($file, 0x48) == $addr;
return
unless (i2c_smbus_read_byte_data($file, 0x4A) & 0x06) == 0
and (i2c_smbus_read_byte_data($file, 0x4B) & 0xFC) == 0
and (i2c_smbus_read_byte_data($file, 0x4F) & 0xFC) == 0
and (i2c_smbus_read_byte_data($file, 0x57) & 0xFE) == 0
and (i2c_smbus_read_byte_data($file, 0x58) & 0xEF) == 0;
return (7);
}
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: undef if not detected, 5 or 6 if detected.
# Registers used:
# 0x3E: Manufacturer ID
# 0x3F: Version/Stepping
# 0x47: VID (3 reserved bits)
# 0x49: VID4 (7 reserved bits)
sub smsc47m192_detect
{
my ($file, $addr) = @_;
return unless i2c_smbus_read_byte_data($file, 0x3E) == 0x55
and (i2c_smbus_read_byte_data($file, 0x3F) & 0xF0) == 0x20
and (i2c_smbus_read_byte_data($file, 0x47) & 0x70) == 0x00
and (i2c_smbus_read_byte_data($file, 0x49) & 0xFE) == 0x80;
return ($addr == 0x2d ? 6 : 5);
}
# $_[0]: Chip to detect
# (1 = DME1737, 2 = SCH5027)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 5 or 6 if detected.
# Registers used:
# 0x3E: Manufacturer ID
# 0x3F: Version/Stepping
# 0x73: Read-only test register (4 test bits)
# 0x8A: Read-only test register (7 test bits)
# 0xBA: Read-only test register (8 test bits)
sub dme1737_detect
{
my ($chip, $file, $addr) = @_;
my $vendor = i2c_smbus_read_byte_data($file, 0x3E);
my $verstep = i2c_smbus_read_byte_data($file, 0x3F);
return unless $vendor == 0x5C; # SMSC
if ($chip == 1) { # DME1737
return unless ($verstep & 0xF8) == 0x88 and
(i2c_smbus_read_byte_data($file, 0x73) & 0x0F) == 0x09 and
(i2c_smbus_read_byte_data($file, 0x8A) & 0x7F) == 0x4D;
} elsif ($chip == 2) { # SCH5027
return unless $verstep >= 0x69 and $verstep <= 0x6F and
i2c_smbus_read_byte_data($file, 0xBA) == 0x0F;
}
return ($addr == 0x2e ? 6 : 5);
}
# $_[0]: Chip to detect
# (1 = F75111R/RG/N, 2 = F75121R/F75122R/RG, 3 = F75373S/SG,
# 4 = F75375S/SP, 5 = F75387SG/RG, 6 = F75383M/S/F75384M/S,
# 7 = custom power control IC)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address (unused)
# Returns: undef if not detected, 7 if detected.
# Registers used:
# 0x5A-0x5B: Chip ID
# 0x5D-0x5E: Vendor ID
sub fintek_detect
{
my ($chip, $file, $addr) = @_;
my $chipid = (i2c_smbus_read_byte_data($file, 0x5A) << 8)
| i2c_smbus_read_byte_data($file, 0x5B);
my $vendid = (i2c_smbus_read_byte_data($file, 0x5D) << 8)
| i2c_smbus_read_byte_data($file, 0x5E);
return unless $vendid == 0x1934; # Fintek ID
if ($chip == 1) { # F75111R/RG/N
return unless $chipid == 0x0300;
} elsif ($chip == 2) { # F75121R/F75122R/RG
return unless $chipid == 0x0301;
} elsif ($chip == 3) { # F75373S/SG
return unless $chipid == 0x0204;
} elsif ($chip == 4) { # F75375S/SP
return unless $chipid == 0x0306;
} elsif ($chip == 5) { # F75387SG/RG
return unless $chipid == 0x0410;
} elsif ($chip == 6) { # F75383M/S/F75384M/S
# The datasheet has 0x0303, but Fintek say 0x0413 is also possible
return unless $chipid == 0x0303 || $chipid == 0x0413;
} elsif ($chip == 7) { # custom power control IC
return unless $chipid == 0x0302;
}
return 7;
}
# This checks for non-FFFF values for temperature, voltage, and current.
# The address (0x0b) is specified by the SMBus standard so it's likely
# that this really is a smart battery.
# $_[0]: A reference to the file descriptor to access this chip.
# $_[1]: Address
# Returns: 5
sub smartbatt_detect
{
my ($file,$addr) = @_;
# check some registers
if (i2c_smbus_read_word_data($file,0x08) == 0xffff) {
return;
}
if (i2c_smbus_read_word_data($file,0x09) == 0xffff) {
return;
}
if (i2c_smbus_read_word_data($file,0x0a) == 0xffff) {
return;
}
return (5);
}
# Returns: 4
# These are simple detectors that only look for a register at the
# standard location. No writes are performed.
# For KCS, use the STATUS register. For SMIC, use the FLAGS register.
sub ipmi_kcs_detect
{
return if inb (0x0ca3) == 0xff;
return (4);
}
sub ipmi_smic_detect
{
return if inb (0x0cab) == 0xff;
return (4);
}
# $_[0]: Chip to detect (0 = W83L784R/AR/G, 1 = W83L785R/G,
# 2 = W83L786NR/NG/R/G)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 6 or 8 if detected
# Registers used:
# 0x40: Configuration
# 0x4a: Full I2C Address (W83L784R only)
# 0x4b: I2C addresses of emulated LM75 chips (W83L784R only)
# 0x4c: Winbond Vendor ID (Low Byte)
# 0x4d: Winbond Vendor ID (High Byte)
# 0x4e: Chip ID
sub w83l784r_detect
{
my ($reg,@res);
my ($chip,$file,$addr) = @_;
return unless (i2c_smbus_read_byte_data($file,0x40) & 0x80) == 0x00;
return if $chip == 0
and i2c_smbus_read_byte_data($file,0x4a) != $addr;
return unless i2c_smbus_read_byte_data($file,0x4c) == 0xa3;
return unless i2c_smbus_read_byte_data($file,0x4d) == 0x5c;
$reg = i2c_smbus_read_byte_data($file, 0x4e);
return if $chip == 0 and $reg != 0x50;
return if $chip == 1 and $reg != 0x60;
return if $chip == 2 and $reg != 0x80;
return 6 if $chip != 0; # No subclients
@res = (8);
$reg = i2c_smbus_read_byte_data($file, 0x4b);
push @res, ($reg & 0x07) + 0x48 unless $reg & 0x08 ;
push @res, (($reg & 0x70) >> 4) + 0x48 unless $reg & 0x80;
return @res;
}
# $_[0]: Chip to detect (0 = W83L785TS-S)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 8 if detected
# Registers used:
# 0x4C-4E: Mfr and Chip ID
sub w83l785ts_detect
{
my ($chip,$file,$addr) = @_;
return unless i2c_smbus_read_byte_data($file,0x4c) == 0xa3;
return unless i2c_smbus_read_byte_data($file,0x4d) == 0x5c;
return unless i2c_smbus_read_byte_data($file,0x4e) == 0x70;
return (8);
}
# $_[0]: Chip to detect. Always zero for now, but available for future use
# if somebody finds a way to distinguish MAX6650 and MAX6651.
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
# Returns: undef if not detected, 3 if detected.
#
# The max6650 has no device ID register. However, a few registers have
# spare bits, which are documented as being always zero on read. We read
# all of these registers check the spare bits. Any non-zero means this
# is not a max6650/1.
#
# The always zero bits are:
# configuration byte register (0x02) - top 2 bits
# gpio status register (0x14) - top 3 bits
# alarm enable register (0x08) - top 3 bits
# alarm status register (0x0A) - top 3 bits
# tachometer count time register (0x16) - top 6 bits
# Additionally, not all values are possible for lower 3 bits of
# the configuration register.
sub max6650_detect
{
my ($chip, $file) = @_;
my $conf = i2c_smbus_read_byte_data($file,0x02);
return if i2c_smbus_read_byte_data($file,0x16) & 0xFC;
return if i2c_smbus_read_byte_data($file,0x0A) & 0xE0;
return if i2c_smbus_read_byte_data($file,0x08) & 0xE0;
return if i2c_smbus_read_byte_data($file,0x14) & 0xE0;
return if ($conf & 0xC0) or ($conf & 0x07) > 4;
return 3;
}
# $_[0]: Chip to detect. Always zero.
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address.
#
# Returns: undef if not detected, 6 if detected.
sub max6655_detect
{
my ($chip, $file, $addr) = @_;
# checking RDID (Device ID)
return unless i2c_smbus_read_byte_data($file, 0xfe) == 0x0a;
# checking RDRV (Manufacturer ID)
return unless i2c_smbus_read_byte_data($file, 0xff) == 0x4d;
# checking unused bits (conversion rate, extended temperature)
return unless i2c_smbus_read_byte_data($file, 0x04) & 0xf8;
return unless i2c_smbus_read_byte_data($file, 0x10) & 0x1f;
return unless i2c_smbus_read_byte_data($file, 0x11) & 0x1f;
return unless i2c_smbus_read_byte_data($file, 0x12) & 0x1f;
return 6;
}
# $_[0]: Chip to detect (0 = VT1211)
# $_[1]: A reference to the file descriptor to access this chip.
# $_[2]: Address
#
# This isn't very good detection.
# Verify the i2c address, and the stepping ID (which is 0xb0 on
# my chip but could be different for others...
#
sub vt1211_i2c_detect
{
my ($chip,$file,$addr) = @_;
return unless (i2c_smbus_read_byte_data($file,0x48) & 0x7f) == $addr;
return unless i2c_smbus_read_byte_data($file,0x3f) == 0xb0;
return 2;
}
# $_[0]: Chip to detect (0 = VT1211)
# $_[1]: ISA address
# $_[2]: I2C file handle
# $_[3]: I2C address
sub vt1211_alias_detect
{
my ($chip,$isa_addr,$file,$i2c_addr) = @_;
my $i;
return 0 unless (inb($isa_addr + 0x48) & 0x7f) == $i2c_addr;
return 0 unless (i2c_smbus_read_byte_data($file,0x48) & 0x7f) == $i2c_addr;
for ($i = 0x2b; $i <= 0x3d; $i ++) {
return 0 unless inb($isa_addr + $i) == i2c_smbus_read_byte_data($file,$i);
}
return 1;
}
######################
# PCI CHIP DETECTION #
######################
# Returns: undef if not detected, (7) or (9) if detected.
# The address is encoded in PCI space. We could decode it and print it.
# For Linux 2.4 we should probably check for invalid matches (SiS645).
sub sis5595_pci_detect
{
return unless exists $pci_list{'1039:0008'};
return (kernel_version_at_least(2, 6, 0) ? 9 : 7);
}
# Returns: undef if not detected, (9) if detected.
# The address is encoded in PCI space. We could decode it and print it.
sub via686a_pci_detect
{
return unless exists $pci_list{'1106:3057'};
return 9;
}
# Returns: undef if not detected, (9) if detected.
# The address is encoded in PCI space. We could decode it and print it.
sub via8231_pci_detect
{
return unless exists $pci_list{'1106:8235'};
return 9;
}
# Returns: undef if not detected, (9) if detected.
sub k8temp_pci_detect
{
return unless exists $pci_list{'1022:1103'};
return 9;
}
sub k10temp_pci_detect
{
return unless exists $pci_list{'1022:1203'};
return 9;
}
# Returns: undef if not detected, (9) if detected.
# the device 0xa620 should not be visible on host PCI bus, gateway
# must be used
sub intel_amb_detect
{
if ((exists $pci_list{'8086:a620'}) ||
(exists $pci_list{'8086:25f0'})) {
return 9;
}
return;
}
# Returns: undef if not detected, (9) if detected.
sub coretemp_detect
{
my $probecpu;
foreach $probecpu (@cpu) {
if ($probecpu->{'vendor_id'} eq 'GenuineIntel' &&
$probecpu->{'cpu family'} == 6 &&
($probecpu->{'model'} == 14 ||
$probecpu->{'model'} == 15 ||
$probecpu->{'model'} == 0x16 ||
$probecpu->{'model'} == 0x17)) {
return 9;
}
}
return;
}
################
# MAIN PROGRAM #
################
# $_[0]: reference to a list of chip hashes
sub print_chips_report
{
my ($listref) = @_;
my $data;
foreach $data (@$listref) {
my $is_i2c = exists $data->{i2c_addr};
my $is_isa = exists $data->{isa_addr};
print " * ";
if ($is_i2c) {
printf "Bus `%s'\n", $data->{i2c_adap};
printf " Busdriver `%s', I2C address 0x%02x",
$data->{i2c_driver}, $data->{i2c_addr};
if (exists $data->{i2c_sub_addrs}) {
print " (and";
my $sub_addr;
foreach $sub_addr (@{$data->{i2c_sub_addrs}}) {
printf " 0x%02x",$sub_addr;
}
print ")"
}
print "\n ";
}
if ($is_isa) {
print "ISA bus";
if ($data->{isa_addr}) {
printf ", address 0x%x", $data->{isa_addr};
}
print " (Busdriver `i2c-isa')"
unless kernel_version_at_least(2, 6, 18);
print "\n ";
}
printf "Chip `%s' (confidence: %d)\n",
$data->{chipname}, $data->{conf};
}
}
# $_[0]: 1 if ISA bus is prefered, 0 for SMBus
# We build here an array adapters, indexed on the number the adapter has
# at this moment (we assume only loaded adapters are interesting at all;
# everything that got scanned also got loaded). Each entry is a reference
# to a hash containing:
# driver: Name of the adapter driver
# nr_now: Number of the bus now
# nr_later: Number of the bus when the modprobes are done (not included if the
# driver should not be loaded)
# A second array, called
sub generate_modprobes
{
my ($prefer_isa) = @_;
my ($chip,$detection,$nr,$i,@optionlist,@probelist,$driver,$isa,$adap);
my $ipmi = 0;
my $modprobes = "";
my $configfile;
# Collect all adapters used
$nr = 0;
$isa = 0;
foreach $chip (@chips_detected) {
foreach $detection (@{$chip->{detected}}) {
# If there is more than one bus detected by a driver, they are
# still all added. So we number them in the correct order
if (exists $detection->{i2c_driver} and
not exists $i2c_adapters[$detection->{i2c_devnr}]->{nr_later} and
not (exists $detection->{isa_addr} and $prefer_isa)) {
foreach $adap (@i2c_adapters) {
next unless exists $adap->{driver};
$adap->{nr_later} = $nr++ if $adap->{driver} eq $detection->{i2c_driver};
}
}
if (exists $detection->{isa_addr} and
not (exists $detection->{i2c_driver} and not $prefer_isa)) {
$isa=1;
}
if ($chip->{driver} eq "bmcsensors" ||
$chip->{driver} eq "ipmisensors") {
$ipmi = 1;
}
}
}
$modprobes .= "# I2C adapter drivers\n" if $nr;
for ($i = 0; $i < $nr; $i++) {
foreach $adap (@i2c_adapters) {
next unless exists $adap->{nr_later} and $adap->{nr_later} == $i;
if ($adap->{driver} eq "UNKNOWN") {
$modprobes .= "# modprobe unknown adapter ".$adap->{name}."\n";
} elsif ($adap->{driver} eq "DISABLED") {
$modprobes .= "# modprobe disabled adapter ".$adap->{name}."\n";
} elsif ($adap->{driver} eq "to-be-written") {
$modprobes .= "# no driver available for adapter ".$adap->{name}."\n";
} else {
$modprobes .= "modprobe $adap->{driver}\n"
unless $modprobes =~ /modprobe $adap->{driver}\n/;
}
last;
}
}
# i2c-isa is loaded automatically (as a dependency) since 2.6.14,
# and will soon be gone.
$modprobes .= "modprobe i2c-isa\n" if ($isa && !kernel_version_at_least(2, 6, 18));
if ($ipmi) {
$modprobes .= "# You must also install and load the IPMI modules\n";
if (kernel_version_at_least(2, 6, 0)) {
$modprobes .= "modprobe ipmi-si\n";
} else {
$modprobes .= "modprobe i2c-ipmi\n";
}
}
# Now determine the chip probe lines
$modprobes .= "# Chip drivers\n";
foreach $chip (@chips_detected) {
next if not @{$chip->{detected}};
if ($chip->{driver} eq "to-be-written") {
$modprobes .= "# no driver for $chip->{detected}[0]{chipname} yet\n";
} else {
# need the * for 2.4 kernels, won't necessarily be an exact match
open(local *INPUTFILE, "modprobe -l $chip->{driver}\\* 2>/dev/null |");
local $_;
my $modulefound = 0;
while (<INPUTFILE>) {
if(m@/@) {
$modulefound = 1;
last;
}
}
close INPUTFILE;
#check return value from modprobe in case modprobe -l isn't supported
if((($? >> 8) == 0) && ! $modulefound) {
$modprobes .= "# Warning: the required module $chip->{driver} is not currently installed\n".
"# on your system. For status of 2.6 kernel ports check\n".
"# http://www.lm-sensors.org/wiki/Devices. If driver is built\n".
"# into the kernel, or unavailable, comment out the following line.\n";
}
$modprobes .= "modprobe $chip->{driver}\n";
}
# Handle misdetects
foreach $detection (@{$chip->{misdetected}}) {
push @optionlist, $i2c_adapters[$detection->{i2c_devnr}]->{nr_later},
$detection->{i2c_addr}
if exists $detection->{i2c_addr} and
exists $i2c_adapters[$detection->{i2c_devnr}]->{nr_later};
push @optionlist, -1, $detection->{isa_addr}
if exists $detection->{isa_addr} and $isa;
}
# Handle aliases
foreach $detection (@{$chip->{detected}}) {
if (exists $detection->{i2c_driver} and
exists $detection->{isa_addr} and
exists $i2c_adapters[$detection->{i2c_devnr}]->{nr_later} and
$isa) {
if ($prefer_isa) {
push @optionlist, $i2c_adapters[$detection->{i2c_devnr}]->{nr_later},
$detection->{i2c_addr};
} else {
push @optionlist, -1, $detection->{isa_addr}
}
}
}
next if not (@probelist or @optionlist);
$configfile = "# hwmon module options\n" unless defined $configfile;
$configfile .= "options $chip->{driver}";
$configfile .= sprintf " ignore=%d,0x%02x",shift @optionlist,
shift @optionlist
if @optionlist;
$configfile .= sprintf ",%d,0x%02x",shift @optionlist, shift @optionlist
while @optionlist;
$configfile .= sprintf " probe=%d,0x%02x",shift @probelist,
shift @probelist
if @probelist;
$configfile .= sprintf ",%d,0x%02x",shift @probelist, shift @probelist
while @probelist;
$configfile .= "\n";
}
return ($modprobes,$configfile);
}
sub main
{
my (@adapters,$res,$did_adapter_detection,$adapter);
# We won't go very far if not root
unless ($> == 0) {
print "You need to be root to run this script.\n";
exit -1;
}
initialize_kernel_version();
initialize_conf;
initialize_proc_pci;
initialize_modules_list;
initialize_modules_supported;
initialize_cpu_list();
print "# sensors-detect revision $revision\n\n";
print "This program will help you determine which kernel modules you need\n",
"to load to use lm_sensors most effectively. It is generally safe\n",
"and recommended to accept the default answers to all questions,\n",
"unless you know what you're doing.\n";
print "You need to have i2c and lm_sensors installed before running this\n",
"program.\n"
unless kernel_version_at_least(2, 6, 0);
print "\n";
print "We can start with probing for (PCI) I2C or SMBus adapters.\n";
print "Do you want to probe now? (YES/no): ";
@adapters = adapter_pci_detection
if ($did_adapter_detection = not <STDIN> =~ /\s*[Nn]/);
print "\n";
if (not $did_adapter_detection) {
print "As you skipped adapter detection, we will only scan already loaded\n".
"adapter modules.\n";
} else {
print "We will now try to load each adapter module in turn.\n";
foreach $adapter (@adapters) {
next if $adapter eq "DISABLED";
next if $adapter eq "to-be-tested";
if (exists($modules_list{$adapter})) {
print "Module `$adapter' already loaded.\n";
} else {
print "Load `$adapter' (say NO if built into your kernel)? (YES/no): ";
unless (<STDIN> =~ /^\s*[Nn]/) {
if (system ("modprobe", $adapter)) {
print "Loading failed... skipping.\n";
} else {
print "Module loaded successfully.\n";
}
}
}
}
}
print "If you have undetectable or unsupported adapters, you can have them\n".
"scanned by manually loading the modules before running this script.\n\n";
initialize_i2c_adapters_list();
if (!exists($modules_list{"i2c-dev"})
&& !(defined $sysfs_root && -e "$sysfs_root/class/i2c-dev")) {
print "To continue, we need module `i2c-dev' to be loaded.\n";
print "If it is built-in into your kernel, you can safely skip this.\n"
unless kernel_version_at_least(2, 6, 0);
print "Do you want to load `i2c-dev' now? (YES/no): ";
if (<STDIN> =~ /^\s*n/i) {
print "Well, you will know best.\n";
} elsif (system "modprobe", "i2c-dev") {
print "Loading failed, expect problems later on.\n";
} else {
print "Module loaded successfully.\n";
}
print "\n";
}
# Before looking for chips, make sure any special case chips are
# added to the chip_ids list
chip_special_cases();
$i2c_addresses_to_scan = i2c_addresses_to_scan();
print "We are now going to do the I2C/SMBus adapter probings. Some chips may\n",
"be double detected; we choose the one with the highest confidence\n",
"value in that case.\n",
"If you found that the adapter hung after probing a certain address,\n",
"you can specify that address to remain unprobed.\n";
my ($inp,@not_to_scan,$inp2);
for (my $dev_nr = 0; $dev_nr < @i2c_adapters; $dev_nr++) {
next unless exists $i2c_adapters[$dev_nr];
my $adap = $i2c_adapters[$dev_nr]->{'name'};
print "\n";
print "Next adapter: $adap (i2c-$dev_nr)\n";
print "Do you want to scan it? (YES/no/selectively): ";
$inp = <STDIN>;
if ($inp =~ /^\s*[Ss]/) {
print "Please enter one or more addresses not to scan. Separate them ",
"with comma's.\n",
"You can specify a range by using dashes. Addresses may be ",
"decimal (like 54)\n",
"or hexadecimal (like 0x33).\n",
"Addresses: ";
$inp2 = <STDIN>;
chop $inp2;
@not_to_scan = parse_not_to_scan 0,0x7f,$inp2;
}
scan_adapter $dev_nr, $adap, $i2c_adapters[$dev_nr]->{'driver'},
\@not_to_scan unless $inp =~ /^\s*[Nn]/;
}
print "\n";
print "Some chips are also accessible through the ISA I/O ports. We have to\n".
"write to arbitrary I/O ports to probe them. This is usually safe though.\n".
"Yes, you do have ISA I/O ports even if you do not have any ISA slots!\n";
print "Do you want to scan the ISA I/O ports? (YES/no): ";
unless (<STDIN> =~ /^\s*n/i) {
initialize_ioports();
scan_isa_bus();
close_ioports();
}
print "\n";
print "Some Super I/O chips may also contain sensors. We have to write to\n".
"standard I/O ports to probe them. This is usually safe.\n";
print "Do you want to scan for Super I/O sensors? (YES/no): ";
unless (<STDIN> =~ /^\s*n/i) {
initialize_ioports();
scan_superio(0x2e, 0x2f);
scan_superio(0x4e, 0x4f);
close_ioports();
}
print "\n";
print "Some CPUs or memory controllers may also contain embedded sensors.\n";
print "Do you want to scan for them? (YES/no): ";
unless (<STDIN> =~ /^\s*n/i) {
$| = 1;
foreach my $entry (@cpu_ids) {
scan_cpu($entry);
}
$| = 0;
}
print "\n";
if(! @chips_detected) {
print "Sorry, no sensors were detected.\n",
"Either your sensors are not supported, or they are connected to an\n",
"I2C or SMBus adapter that is not supported. See doc/FAQ,\n",
"doc/lm_sensors-FAQ.html or http://www.lm-sensors.org/wiki/FAQ\n",
"(FAQ #4.24.3) for further information.\n",
"If you find out what chips are on your board, check\n",
"http://www.lm-sensors.org/wiki/Devices for driver status.\n";
exit;
}
print "Now follows a summary of the probes I have just done.\n".
"Just press ENTER to continue: ";
<STDIN>;
my ($chip,$data);
foreach $chip (@chips_detected) {
print "\nDriver `$chip->{driver}' ";
if (@{$chip->{detected}}) {
if (@{$chip->{misdetected}}) {
print "(should be inserted but causes problems):\n";
} else {
print "(should be inserted):\n";
}
} else {
if (@{$chip->{misdetected}}) {
print "(may not be inserted):\n";
} else {
print "(should not be inserted, but is harmless):\n";
}
}
if (@{$chip->{detected}}) {
print " Detects correctly:\n";
print_chips_report $chip->{detected};
}
if (@{$chip->{misdetected}}) {
print " Misdetects:\n";
print_chips_report $chip->{misdetected};
}
}
print "\n";
my ($modprobes, $configfile) = generate_modprobes 1; # 1 == prefer ISA
if (defined $configfile) {
my $have_modprobe_d = -d '/etc/modprobe.d';
printf "Do you want to \%s /etc/modprobe.d/lm_sensors? (\%s): ",
(-e '/etc/modprobe.d/lm_sensors' ? 'overwrite' : 'generate'),
($have_modprobe_d ? 'YES/no' : 'yes/NO');
$_ = <STDIN>;
if (($have_modprobe_d and not m/^\s*n/i) or m/^\s*y/i) {
unless ($have_modprobe_d) {
mkdir '/etc/modprobe.d', 0777
or die "Sorry, can't create /etc/modprobe.d ($!)";
}
open(local *MODPROBE_D, ">/etc/modprobe.d/lm_sensors")
or die "Sorry, can't create /etc/modprobe.d/lm_sensors ($!)";
print MODPROBE_D
"# Generated by sensors-detect on " . scalar localtime() . "\n";
print MODPROBE_D $configfile;
close(MODPROBE_D);
} else {
print "To make the sensors modules behave correctly, add these lines to\n".
"$modules_conf:\n\n";
print "#----cut here----\n".
$configfile.
"#----cut here----\n\n";
}
}
my $have_sysconfig = -d '/etc/sysconfig';
printf "Do you want to \%s /etc/sysconfig/lm_sensors? (\%s): ",
(-e '/etc/sysconfig/lm_sensors' ? 'overwrite' : 'generate'),
($have_sysconfig ? 'YES/no' : 'yes/NO');
$_ = <STDIN>;
if (($have_sysconfig and not m/^\s*n/i) or m/^\s*y/i) {
unless ($have_sysconfig) {
mkdir '/etc/sysconfig', 0777
or die "Sorry, can't create /etc/sysconfig ($!)";
}
open(local *SYSCONFIG, ">/etc/sysconfig/lm_sensors")
or die "Sorry, can't create /etc/sysconfig/lm_sensors ($!)";
print SYSCONFIG <<'EOT';
# /etc/sysconfig/lm_sensors - Defines modules loaded by
# /etc/init.d/lm_sensors
# Copyright (c) 1998 - 2001 Frodo Looijaard <frodol@dds.nl>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
#
# See also the lm_sensors homepage at:
# http://www.lm-sensors.org/
#
# This file is used by /etc/init.d/lm_sensors and defines the modules to
# be loaded/unloaded. This file is sourced into /etc/init.d/lm_sensors.
#
# The format of this file is a shell script that simply defines the modules
# in order as normal variables with the special names:
# MODULE_0, MODULE_1, MODULE_2, etc.
#
# List the modules that are to be loaded for your system
#
EOT
print SYSCONFIG
"# Generated by sensors-detect on " . scalar localtime() . "\n";
my @modules = grep /^modprobe /, split "\n", $modprobes;
my $i = 0;
my $sysconfig = "";
foreach (@modules) {
s/^modprobe //;
$sysconfig .= "MODULE_$i=$_\n";
$i++;
}
print SYSCONFIG $sysconfig;
close(SYSCONFIG);
print "Copy prog/init/lm_sensors.init to /etc/init.d/lm_sensors\n".
"for initialization at boot time.\n"
unless -f "/etc/init.d/lm_sensors";
if (-x "/sbin/insserv" && -f "/etc/init.d/lm_sensors") {
system("/sbin/insserv", "/etc/init.d/lm_sensors");
} else {
print "You should now start the lm_sensors service to load the required\n".
"kernel modules.\n\n";
}
} else {
print "To load everything that is needed, add this to one of the system\n".
"initialization scripts (e.g. /etc/rc.d/rc.local):\n\n";
print "#----cut here----\n".
$modprobes.
(-e '/usr/bin/sensors' ?
"/usr/bin/sensors -s\n" :
"/usr/local/bin/sensors -s\n") .
"#----cut here----\n\n";
print "If you have some drivers built into your kernel, the list above will\n".
"contain too many modules. Skip the appropriate ones! You really\n".
"should try these commands right now to make sure everything is\n".
"working properly. Monitoring programs won't work until the needed\n".
"modules are loaded.\n\n";
}
}
main;
[-- Attachment #3: Type: text/plain, Size: 153 bytes --]
_______________________________________________
lm-sensors mailing list
lm-sensors@lm-sensors.org
http://lists.lm-sensors.org/mailman/listinfo/lm-sensors
^ permalink raw reply [flat|nested] 23+ messages in thread* Re: [lm-sensors] SMSC Super I/O: unknown chip with ID 0x8902 (was:
2008-01-14 14:47 [lm-sensors] SMSC Super I/O: unknown chip with ID 0x8902 (was: lm85 Andrew Voznytsa
` (17 preceding siblings ...)
2008-01-30 19:08 ` Andrew Voznytsa
@ 2008-02-05 7:31 ` Juerg Haefliger
2008-02-05 12:20 ` Andrew Voznytsa
` (2 subsequent siblings)
21 siblings, 0 replies; 23+ messages in thread
From: Juerg Haefliger @ 2008-02-05 7:31 UTC (permalink / raw)
To: lm-sensors
[-- Attachment #1: Type: text/plain, Size: 25463 bytes --]
Andrew,
Can you please give the attached driver a try? It should recognize
your chip properly.
Please send the relevant output of /var/log/syslog and 'ls -l
/sys/class/hwmon/hwmon*/device/' to the list.
Thanks
...juerg
On Jan 30, 2008 11:08 AM, Andrew Voznytsa <andrew.voznytsa@gmail.com> wrote:
> Hi Juerg,
>
> It is easy (around 1 min to compile kernel, so why not?). New output is
> below. Quick summary - works as you said.
>
> # sensors-detect revision 5108 (2008-01-22 04:22:47 -0800)
>
> This program will help you determine which kernel modules you need
> to load to use lm_sensors most effectively. It is generally safe
> and recommended to accept the default answers to all questions,
> unless you know what you're doing.
>
> We can start with probing for (PCI) I2C or SMBus adapters.
> Do you want to probe now? (YES/no):
> Probing for PCI bus adapters...
> Use driver `i2c-i801' for device 0000:00:1f.3: Intel 82801G ICH7
>
> We will now try to load each adapter module in turn.
> Load `i2c-i801' (say NO if built into your kernel)? (YES/no):
> FATAL: Module i2c_i801 not found.
> Loading failed... skipping.
> If you have undetectable or unsupported adapters, you can have them
> scanned by manually loading the modules before running this script.
>
> We are now going to do the I2C/SMBus adapter probings. Some chips may
> be double detected; we choose the one with the highest confidence
> value in that case.
> If you found that the adapter hung after probing a certain address,
> you can specify that address to remain unprobed.
>
> Next adapter: SMBus I801 adapter at 3000 (i2c-0)
> Do you want to scan it? (YES/no/selectively):
> Client found at address 0x2e
> Probing for `Myson MTP008'... No
> Probing for `National Semiconductor LM78'... No
> Probing for `National Semiconductor LM78-J'... No
> Probing for `National Semiconductor LM79'... No
> Probing for `National Semiconductor LM80'... No
> Probing for `National Semiconductor LM85 or LM96000'... No
> Probing for `Analog Devices ADM1027, ADT7460 or ADT7463'... No
> Probing for `SMSC EMC6D100, EMC6D101 or EMC6D102'... No
> Probing for `Analog Devices ADT7462'... No
> Probing for `Analog Devices ADT7467 or ADT7468'... No
> Probing for `Analog Devices ADT7470'... No
> Probing for `Analog Devices ADT7473'... No
> Probing for `Analog Devices ADT7475'... No
> Probing for `Analog Devices ADT7476'... No
> Probing for `Andigilog aSC7611'... No
> Probing for `Andigilog aSC7621'... No
> Probing for `National Semiconductor LM87'... No
> Probing for `National Semiconductor LM93'... No
> Probing for `Winbond W83781D'... No
> Probing for `Winbond W83782D'... No
> Probing for `Winbond W83792D'... No
> Probing for `Winbond W83793R/G'... No
> Probing for `Winbond W83791SD'... No
> Probing for `Winbond W83627HF'... No
> Probing for `Winbond W83627EHF'... No
> Probing for `Winbond W83627DHG'... No
> Probing for `Asus AS99127F (rev.1)'... No
> Probing for `Asus AS99127F (rev.2)'... No
> Probing for `Asus ASB100 Bach'... No
> Probing for `Winbond W83L786NR/NG/R/G'... No
> Probing for `Winbond W83L785TS-S'... No
> Probing for `Analog Devices ADM9240'... No
> Probing for `Dallas Semiconductor DS1780'... No
> Probing for `National Semiconductor LM81'... No
> Probing for `Analog Devices ADM1026'... No
> Probing for `Analog Devices ADM1025'... No
> Probing for `Analog Devices ADM1029'... No
> Probing for `Analog Devices ADM1030'... No
> Probing for `Analog Devices ADM1031'... No
> Probing for `Analog Devices ADM1022'... No
> Probing for `Texas Instruments THMC50'... No
> Probing for `Analog Devices ADM1028'... No
> Probing for `ITE IT8712F'... No
> Probing for `SMSC DME1737'... No
> Probing for `SMSC SCH5027D-NW'... Success!
> (confidence 6, driver `dme1737')
> Probing for `Fintek F75373S/SG'... No
> Probing for `Fintek F75375S/SP'... No
> Probing for `Fintek F75387SG/RG'... No
> Probing for `Analog Devices ADM1024'... No
> Probing for `Winbond W83791D'... No
>
> Client found at address 0x44
> Probing for `Maxim MAX6633/MAX6634/MAX6635'... No
> Client found at address 0x50
> Probing for `Analog Devices ADM1033'... No
> Probing for `Analog Devices ADM1034'... No
> Probing for `SPD EEPROM'... Yes
> (confidence 8, not a hardware monitoring chip)
> Probing for `EDID EEPROM'... No
> Client found at address 0x51
> Probing for `Analog Devices ADM1033'... No
> Probing for `Analog Devices ADM1034'... No
> Probing for `SPD EEPROM'... Yes
> (confidence 8, not a hardware monitoring chip)
> Probing for `EDID EEPROM'... No
> Client found at address 0x52
> Probing for `Analog Devices ADM1033'... No
> Probing for `Analog Devices ADM1034'... No
> Probing for `SPD EEPROM'... Yes
> (confidence 8, not a hardware monitoring chip)
> Probing for `EDID EEPROM'... No
> Client found at address 0x53
> Probing for `Analog Devices ADM1033'... No
> Probing for `Analog Devices ADM1034'... No
> Probing for `SPD EEPROM'... Yes
> (confidence 8, not a hardware monitoring chip)
> Probing for `EDID EEPROM'... No
>
>
> Some chips are also accessible through the ISA I/O ports. We have to
> write to arbitrary I/O ports to probe them. This is usually safe though.
> Yes, you do have ISA I/O ports even if you do not have any ISA slots!
> Do you want to scan the ISA I/O ports? (YES/no):
> Probing for `National Semiconductor LM78' at 0x290... No
> Probing for `National Semiconductor LM78-J' at 0x290... No
> Probing for `National Semiconductor LM79' at 0x290... No
> Probing for `Winbond W83781D' at 0x290... No
> Probing for `Winbond W83782D' at 0x290... No
> Probing for `Silicon Integrated Systems SIS5595'... No
> Probing for `VIA VT82C686 Integrated Sensors'... No
> Probing for `VIA VT8231 Integrated Sensors'... No
> Probing for `IPMI BMC KCS' at 0xca0... No
> Probing for `IPMI BMC SMIC' at 0xca8... No
>
> Some Super I/O chips may also contain sensors. We have to write to
> standard I/O ports to probe them. This is usually safe.
> Do you want to scan for Super I/O sensors? (YES/no):
> Probing for Super-I/O at 0x2e/0x2f
> Trying family `National Semiconductor'... No
> Trying family `SMSC'... Yes
> Found `SMSC SCH5027D-NW Super IO'
> (hardware monitoring capabilities accessible via SMBus only)
> Probing for Super-I/O at 0x4e/0x4f
> Trying family `National Semiconductor'... No
> Trying family `SMSC'... No
> Trying family `VIA/Winbond/Fintek'... No
> Trying family `ITE'... No
>
> Some CPUs or memory controllers may also contain embedded sensors.
> Do you want to scan for them? (YES/no):
> AMD K8 thermal sensors... No
> AMD K10 thermal sensors... No
> Intel Core family thermal sensor... Success!
> (driver `coretemp')
> Intel AMB FB-DIMM thermal sensor... No
>
> Now follows a summary of the probes I have just done.
> Just press ENTER to continue:
>
> Driver `dme1737' (should be inserted):
> Detects correctly:
> * Bus `SMBus I801 adapter at 3000'
> Busdriver `i2c-i801', I2C address 0x2e
> Chip `SMSC SCH5027D-NW' (confidence: 6)
>
> Driver `coretemp' (should be inserted):
> Detects correctly:
> * Chip `Intel Core family thermal sensor' (confidence: 9)
>
> Do you want to generate /etc/sysconfig/lm_sensors? (yes/NO):
> To load everything that is needed, add this to one of the system
> initialization scripts (e.g. /etc/rc.d/rc.local):
>
> #----cut here----
> # I2C adapter drivers
> modprobe i2c-i801
> # Chip drivers
> modprobe dme1737
> # Warning: the required module coretemp is not currently installed
> # on your system. For status of 2.6 kernel ports check
> # http://www.lm-sensors.org/wiki/Devices. If driver is built
> # into the kernel, or unavailable, comment out the following line.
> modprobe coretemp
> /usr/bin/sensors -s
> #----cut here----
>
> If you have some drivers built into your kernel, the list above will
> contain too many modules. Skip the appropriate ones! You really
> should try these commands right now to make sure everything is
> working properly. Monitoring programs won't work until the needed
> modules are loaded.
>
> Best regards,
> Andrew Voznytsa
>
>
>
> > -----Original Message-----
> > From: Juerg Haefliger [mailto:juergh@gmail.com]
>
> > Sent: Wednesday, January 30, 2008 8:20 PM
> > To: Andrew Voznytsa
> > Cc: lm-sensors@lm-sensors.org
> > Subject: Re: [lm-sensors] SMSC Super I/O: unknown chip with ID 0x8902
> > (was: lm85 in Intel S3000AH case)
> >
> > Hi Andrew,
> >
> >
> > On Jan 30, 2008 9:29 AM, Andrew Voznytsa <andrew.voznytsa@gmail.com>
> > wrote:
> > > # sensors-detect revision 5108 (2008-01-22 04:22:47 -0800)
> > >
> > > This program will help you determine which kernel modules you need
> > > to load to use lm_sensors most effectively. It is generally safe
> > > and recommended to accept the default answers to all questions,
> > > unless you know what you're doing.
> > >
> > > We can start with probing for (PCI) I2C or SMBus adapters.
> > > Do you want to probe now? (YES/no):
> > > Probing for PCI bus adapters...
> > > Use driver `i2c-i801' for device 0000:00:1f.3: Intel 82801G ICH7
> > >
> > > We will now try to load each adapter module in turn.
> > > Load `i2c-i801' (say NO if built into your kernel)? (YES/no): no
> > > If you have undetectable or unsupported adapters, you can have them
> > > scanned by manually loading the modules before running this script.
> > >
> > > We are now going to do the I2C/SMBus adapter probings. Some chips may
> > > be double detected; we choose the one with the highest confidence
> > > value in that case.
> > > If you found that the adapter hung after probing a certain address,
> > > you can specify that address to remain unprobed.
> > >
> > > Next adapter: SMBus I801 adapter at 3000 (i2c-0)
> > > Do you want to scan it? (YES/no/selectively):
> > > Client found at address 0x2e
> > > Handled by driver `lm85' (already loaded), chip type `lm85'
> > > Client found at address 0x44
> > > Probing for `Maxim MAX6633/MAX6634/MAX6635'... No
> > > Client found at address 0x50
> > > Probing for `Analog Devices ADM1033'... No
> > > Probing for `Analog Devices ADM1034'... No
> > > Probing for `SPD EEPROM'... Yes
> > > (confidence 8, not a hardware monitoring chip)
> > > Probing for `EDID EEPROM'... No
> > > Client found at address 0x51
> > > Probing for `Analog Devices ADM1033'... No
> > > Probing for `Analog Devices ADM1034'... No
> > > Probing for `SPD EEPROM'... Yes
> > > (confidence 8, not a hardware monitoring chip)
> > > Probing for `EDID EEPROM'... No
> > > Client found at address 0x52
> > > Probing for `Analog Devices ADM1033'... No
> > > Probing for `Analog Devices ADM1034'... No
> > > Probing for `SPD EEPROM'... Yes
> > > (confidence 8, not a hardware monitoring chip)
> > > Probing for `EDID EEPROM'... No
> > > Client found at address 0x53
> > > Probing for `Analog Devices ADM1033'... No
> > > Probing for `Analog Devices ADM1034'... No
> > > Probing for `SPD EEPROM'... Yes
> > > (confidence 8, not a hardware monitoring chip)
> > > Probing for `EDID EEPROM'... No
> > >
> > > Here it is. I'd notice that I used 2.6.23-gentoo-r3 kernel with builtin
> > lm85
> > > driver. If you need I can easily build any other kernel with any
> > > drivers/etc.
> >
> > Ah yes, that explains why the SCH5027 is not detected here. If you
> > have the time and care about it you can rebuild a kernel without the
> > builtin lm85 and rerun the attached sensors-detect. It should then
> > suggest the dme1737 driver for your chip. Anyways, I tested the
> > modified script with the dump file that you provided and the i2c-stub
> > driver so I'm confident it works correctly. I'll submit a patch for
> > sensors-detect shortly...
> >
> > ...juerg
> >
> >
> > > Some chips are also accessible through the ISA I/O ports. We have to
> > > write to arbitrary I/O ports to probe them. This is usually safe though.
> > > Yes, you do have ISA I/O ports even if you do not have any ISA slots!
> > > Do you want to scan the ISA I/O ports? (YES/no):
> > > Probing for `National Semiconductor LM78' at 0x290... No
> > > Probing for `National Semiconductor LM78-J' at 0x290... No
> > > Probing for `National Semiconductor LM79' at 0x290... No
> > > Probing for `Winbond W83781D' at 0x290... No
> > > Probing for `Winbond W83782D' at 0x290... No
> > > Probing for `Silicon Integrated Systems SIS5595'... No
> > > Probing for `VIA VT82C686 Integrated Sensors'... No
> > > Probing for `VIA VT8231 Integrated Sensors'... No
> > > Probing for `IPMI BMC KCS' at 0xca0... No
> > > Probing for `IPMI BMC SMIC' at 0xca8... No
> > >
> > > Some Super I/O chips may also contain sensors. We have to write to
> > > standard I/O ports to probe them. This is usually safe.
> > > Do you want to scan for Super I/O sensors? (YES/no):
> > > Probing for Super-I/O at 0x2e/0x2f
> > > Trying family `National Semiconductor'... No
> > > Trying family `SMSC'... Yes
> > > Found `SMSC SCH5027D-NW Super IO'
> > > (hardware monitoring capabilities accessible via SMBus only)
> > > Probing for Super-I/O at 0x4e/0x4f
> > > Trying family `National Semiconductor'... No
> > > Trying family `SMSC'... No
> > > Trying family `VIA/Winbond/Fintek'... No
> > > Trying family `ITE'... No
> > >
> > > Some CPUs or memory controllers may also contain embedded sensors.
> > > Do you want to scan for them? (YES/no):
> > > AMD K8 thermal sensors... No
> > > AMD K10 thermal sensors... No
> > > Intel Core family thermal sensor... Success!
> > > (driver `coretemp')
> > > Intel AMB FB-DIMM thermal sensor... No
> > >
> > > Now follows a summary of the probes I have just done.
> > > Just press ENTER to continue:
> > >
> > > Driver `lm85' (should be inserted):
> > > Detects correctly:
> > > * Bus `SMBus I801 adapter at 3000'
> > > Busdriver `i2c-i801', I2C address 0x2e
> > > Chip `lm85' (confidence: 6)
> > >
> > > Driver `coretemp' (should be inserted):
> > > Detects correctly:
> > > * Chip `Intel Core family thermal sensor' (confidence: 9)
> > >
> > > Do you want to generate /etc/sysconfig/lm_sensors? (yes/NO):
> > > To load everything that is needed, add this to one of the system
> > > initialization scripts (e.g. /etc/rc.d/rc.local):
> > >
> > > #----cut here----
> > > # I2C adapter drivers
> > > modprobe i2c-i801
> > > # Chip drivers
> > > modprobe lm85
> > > # Warning: the required module coretemp is not currently installed
> > > # on your system. For status of 2.6 kernel ports check
> > > # http://www.lm-sensors.org/wiki/Devices. If driver is built
> > > # into the kernel, or unavailable, comment out the following line.
> > > modprobe coretemp
> > > /usr/bin/sensors -s
> > > #----cut here----
> > >
> > > If you have some drivers built into your kernel, the list above will
> > > contain too many modules. Skip the appropriate ones! You really
> > > should try these commands right now to make sure everything is
> > > working properly. Monitoring programs won't work until the needed
> > > modules are loaded.
> > >
> > > Best regards,
> > > Andrew Voznytsa
> > >
> > > > -----Original Message-----
> > > > From: Juerg Haefliger [mailto:juergh@gmail.com]
> > >
> > > > Sent: Wednesday, January 30, 2008 6:08 PM
> > > > To: Andrew Voznytsa
> > > > Cc: lm-sensors@lm-sensors.org
> > > > Subject: Re: [lm-sensors] SMSC Super I/O: unknown chip with ID 0x8902
> > > > (was: lm85 in Intel S3000AH case)
> > > >
> > > > Hi Andrew,
> > > >
> > > >
> > > > On Jan 30, 2008 5:18 AM, Andrew Voznytsa <andrew.voznytsa@gmail.com>
> > > > wrote:
> > > > > Hi Juerg,
> > > > >
> > > > > Of course - works perfectly. It said
> > > > >
> > > > > [..]
> > > > > Trying family `SMSC'... Yes
> > > > > Found `SMSC SCH5027D-NW Super IO'
> > > > > (hardware monitoring capabilities accessible via SMBus only)
> > > > > [..]
> > > >
> > > > There should be another instance where the SMSC is detected as an I2C
> > > > device. Can you post the complete log?
> > > >
> > > >
> > > > > If I can do anything else - just let me know.
> > > > >
> > > > > Should I try some lm-sensors's svn branch/revision to test if all
> > fans
> > > > are
> > > > > monitored now? If there is such - could you send me URL?
> > > >
> > > > That won't help. I need to update the dme1737 driver first which is
> > > > part of the kernel, not lm-sensors.
> > > >
> > > > ...juerg
> > > >
> > > >
> > > > > Many thanks,
> > > > > Andrew Voznytsa
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > > -----Original Message-----
> > > > > > From: Juerg Haefliger [mailto:juergh@gmail.com]
> > > > > > Sent: Wednesday, January 30, 2008 7:22 AM
> > > > > > To: Andrew Voznytsa
> > > > > > Cc: lm-sensors@lm-sensors.org
> > > > > > Subject: Re: [lm-sensors] SMSC Super I/O: unknown chip with ID
> > 0x8902
> > > > > > (was: lm85 in Intel S3000AH case)
> > > > > >
> > > > > > Hi Andrew,
> > > > > >
> > > > > > Could you run the attached script and post the output? It should
> > > > > > correctly identify the SCH5027.
> > > > > >
> > > > > > ...juerg
> > > > > >
> > > > > >
> > > > > > On Jan 18, 2008 7:25 AM, Andrew Voznytsa
> > <andrew.voznytsa@gmail.com>
> > > > > > wrote:
> > > > > > >
> > > > > > > Hi Juerg,
> > > > > > >
> > > > > > > > > > > > > > > Trying family `SMSC'...
> > > > > > > > Yes
> > > > > > > > > > > > > > >
> > > > > > > > > > > > > > > Found unknown chip with ID 0x8902
> > > > > > > > > > > > > >
> > > > > > > > > > > > > > This is indeed unknown. Can you check the markings
> > on
> > > > the
> > > > > > chip
> > > > > > > > so
> > > > > > > > > > that
> > > > > > > > > > > > > > we know what we're dealing with? From the product
> > > > picture
> > > > > > my
> > > > > > > > guess
> > > > > > > > > > is
> > > > > > > > > > > > > > it's the chip in the QFP package close to the IDE
> > > > > > connector.
> > > > > > > > It
> > > > > > > > > > should
> > > > > > > > > > > > > > read something like SMSC xyz.
> > > > > > > > > > > > >
> > > > > > > > > > > > > There is chip marked SMSC SCH-5027D(not sure that D,
> > > > might
> > > > > > be
> > > > > > > > 0)-NW
> > > > > > > > > > > > >
> > > > > > > > > > > > > According to spec which comes with MB it should be
> > SMSC
> > > > SC-
> > > > > > 5027D
> > > > > > > > > > > >
> > > > > > > > > > > > Can you run
> > > > > > > > > > > > i2cdetect -y 0
> > > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > >
> > > > > > > > > > > Of course - here is output:
> > > > > > > > > > >
> > > > > > > > > > > 0 1 2 3 4 5 6 7 8 9 a b c d e f
> > > > > > > > > > > 00: -- -- -- -- -- 08 -- -- -- -- -- -- --
> > > > > > > > > > > 10: -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
> > > > > > > > > > > 20: -- -- -- -- -- -- -- -- -- -- -- -- -- -- UU --
> > > > > > > > > > > 30: 30 31 32 33 -- -- -- -- -- -- -- -- -- -- -- --
> > > > > > > > > > > 40: -- -- -- -- 44 -- -- -- -- -- -- -- -- -- -- --
> > > > > > > > > > > 50: 50 51 52 53 -- -- -- -- -- -- -- -- -- -- -- --
> > > > > > > > > > > 60: -- 61 -- 63 64 -- -- -- -- 69 -- -- -- -- -- --
> > > > > > > > > > > 70: -- -- -- -- -- -- -- --
> > > > > > > > > >
> > > > > > > > > > OK, I figured it out, I believe :-) I received the
> > datasheet
> > > > for
> > > > > > the
> > > > > > > > > > SCH5027 from SMSC and after a quick glance at it, it looks
> > > > like
> > > > > > the
> > > > > > > > > > hardware monitoring features of the DME1737, SCH5027 and
> > > > EMC6D10x
> > > > > > are
> > > > > > > > > > identical but they advertise themselves differently. In
> > your
> > > > case,
> > > > > > the
> > > > > > > > > > chip is detected as a EMC6D10x and sensors-detect suggests
> > the
> > > > > > lm85
> > > > > > > > > > driver. However, I believe the dme1737 driver is more
> > > > appropriate.
> > > > > > I
> > > > > > > > > > will take a closer look at the various datasheets over the
> > > > next
> > > > > > couple
> > > > > > > > > > of days to confirm my theory. In the meantime, you can try
> > the
> > > > > > > > > > following:
> > > > > > > > > > 1) remove the lm85 driver (rmmod lm85)
> > > > > > > > > > 2) force the dme1737 driver (modprobe dme1737
> > force=0,0x2e)
> > > > > > > > > > 3) post the dme1737-related messages in /var/log/messages
> > to
> > > > the
> > > > > > > > mailing
> > > > > > > > > > list
> > > > > > > > >
> > > > > > > > > Here is output:
> > > > > > > > >
> > > > > > > > > Jan 18 16:09:12 farm dme1737 0-002e: Failed to query Super-
> > IO
> > > > for
> > > > > > > > optional
> > > > > > > > > features.
> > > > > > > >
> > > > > > > > Ah yes, the dme1737 driver doesn't know anything about the
> > SCH5027
> > > > > > > > Super-IO so it can't determine if fans 5&6 and PWMs 5&6 are
> > > > > > > > configured.
> > > > > > > >
> > > > > > > >
> > > > > > > > > Jan 18 16:09:12 farm dme1737 0-002e: Optional features:
> > > > pwm3=yes,
> > > > > > > > pwm5=no,
> > > > > > > > > pwm6=no, fan3=yes, fan4=yes, fan5=no, fan6=no.
> > > > > > > >
> > > > > > > > If the BIOS shows 6 fans, fans 5&6 should become available
> > once
> > > > the
> > > > > > > > driver is fixed to recognize the SCH5027.
> > > > > > > >
> > > > > > > >
> > > > > > > > > Jan 18 16:09:12 farm i2c-adapter i2c-0: Found a DME1737 chip
> > at
> > > > 0x2e
> > > > > > > > (rev
> > > > > > > > > 0x00)
> > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > Note that the SCH5027 only supports 4 fans, so you won't
> > see
> > > > > > fan5&6.
> > > > > > > > > > How many fans do you have in the machine? Can you see RPMs
> > for
> > > > all
> > > > > > of
> > > > > > > > > > them in the BIOS?
> > > > > > > >
> > > > > > > > Correction: This is not true. The SCH5027 supports 6 fans,
> > just
> > > > like
> > > > > > > > the dme1737.
> > > > > > > >
> > > > > > > >
> > > > > > > > > I've 2 fans - CPU (fan1) and chassis (fan5). They are
> > connected
> > > > as
> > > > > > > > Intel's
> > > > > > > > > manual says.
> > > > > > > > >
> > > > > > > > > BIOS shows 6 fans - it shows some (reasonable) RPMs for
> > fans1, 5
> > > > and
> > > > > > > > zero
> > > > > > > > > for rest (nothing attached there). BIOS is able to control
> > RPMs
> > > > > > itself,
> > > > > > > > > depending on CPU, chassis and DIMM temperature sensors.
> > > > > > > >
> > > > > > > > Again, I'll take a look at the datasheets and if the chips are
> > > > indeed
> > > > > > > > compatible, I'll fix the dme1737 driver to support the
> > sch5027. I
> > > > > > > > don't have access to a test machine until next week, so it has
> > to
> > > > wait
> > > > > > > > until then.
> > > > > > > >
> > > > > > >
> > > > > > > Just let me know if I can help with testing - I can't give
> > access to
> > > > my
> > > > > > > S3000AH-based system but definitely can run some tests, etc.
> > > > > > >
> > > > > > > All the best,
> > > > > > > Andrew
> > > > > > >
> > > > > > >
> > > > > > >
> > > > >
> > > > >
> > >
> > >
>
>
[-- Attachment #2: dme1737.c --]
[-- Type: application/octet-stream, Size: 75284 bytes --]
/*
* dme1737.c - Driver for the SMSC DME1737, Asus A8000, SMSC SCH5027 and
* SCH311x Super-I/O chips integrated hardware monitoring features.
* Copyright (c) 2007 Juerg Haefliger <juergh@gmail.com>
*
* This driver is an I2C/ISA hybrid, meaning that it uses the I2C bus to access
* the chip registers if a DME1737 (or A8000) is found and the ISA bus if a
* SCH311x chip is found. Both types of chips have very similar hardware
* monitoring capabilities but differ in the way they can be accessed.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <linux/module.h>
#include <linux/init.h>
#include <linux/slab.h>
#include <linux/jiffies.h>
#include <linux/i2c.h>
#include <linux/platform_device.h>
#include <linux/hwmon.h>
#include <linux/hwmon-sysfs.h>
#include <linux/hwmon-vid.h>
#include <linux/err.h>
#include <linux/mutex.h>
#include <asm/io.h>
/* ISA device, if found */
static struct platform_device *pdev;
/* Module load parameters */
static int force_start;
module_param(force_start, bool, 0);
MODULE_PARM_DESC(force_start, "Force the chip to start monitoring inputs");
static unsigned short force_id;
module_param(force_id, ushort, 0);
MODULE_PARM_DESC(force_id, "Override the detected device ID");
/* Addresses to scan */
static unsigned short normal_i2c[] = {0x2c, 0x2d, 0x2e, I2C_CLIENT_END};
/* Insmod parameters */
I2C_CLIENT_INSMOD_2(dme1737, sch5027);
/* ISA chip types for device differentiation */
enum isa_chips { sch311x = sch5027 + 1 };
/* ---------------------------------------------------------------------
* Registers
*
* The sensors are defined as follows:
*
* Voltages Temperatures
* -------- ------------
* in0 +5VTR (+5V stdby) temp1 Remote diode 1
* in1 Vccp (proc core) temp2 Internal temp
* in2 VCC (internal +3.3V) temp3 Remote diode 2
* in3 +5V
* in4 +12V
* in5 VTR (+3.3V stby)
* in6 Vbat
*
* --------------------------------------------------------------------- */
/* Voltages (in) numbered 0-6 (ix) */
#define DME1737_REG_IN(ix) ((ix) < 5 ? 0x20 + (ix) \
: 0x94 + (ix))
#define DME1737_REG_IN_MIN(ix) ((ix) < 5 ? 0x44 + (ix) * 2 \
: 0x91 + (ix) * 2)
#define DME1737_REG_IN_MAX(ix) ((ix) < 5 ? 0x45 + (ix) * 2 \
: 0x92 + (ix) * 2)
/* Temperatures (temp) numbered 0-2 (ix) */
#define DME1737_REG_TEMP(ix) (0x25 + (ix))
#define DME1737_REG_TEMP_MIN(ix) (0x4e + (ix) * 2)
#define DME1737_REG_TEMP_MAX(ix) (0x4f + (ix) * 2)
#define DME1737_REG_TEMP_OFFSET(ix) ((ix) == 0 ? 0x1f \
: 0x1c + (ix))
/* Voltage and temperature LSBs
* The LSBs (4 bits each) are stored in 5 registers with the following layouts:
* IN_TEMP_LSB(0) = [in5, in6]
* IN_TEMP_LSB(1) = [temp3, temp1]
* IN_TEMP_LSB(2) = [in4, temp2]
* IN_TEMP_LSB(3) = [in3, in0]
* IN_TEMP_LSB(4) = [in2, in1] */
#define DME1737_REG_IN_TEMP_LSB(ix) (0x84 + (ix))
static const u8 DME1737_REG_IN_LSB[] = {3, 4, 4, 3, 2, 0, 0};
static const u8 DME1737_REG_IN_LSB_SHL[] = {4, 4, 0, 0, 0, 0, 4};
static const u8 DME1737_REG_TEMP_LSB[] = {1, 2, 1};
static const u8 DME1737_REG_TEMP_LSB_SHL[] = {4, 4, 0};
/* Fans numbered 0-5 (ix) */
#define DME1737_REG_FAN(ix) ((ix) < 4 ? 0x28 + (ix) * 2 \
: 0xa1 + (ix) * 2)
#define DME1737_REG_FAN_MIN(ix) ((ix) < 4 ? 0x54 + (ix) * 2 \
: 0xa5 + (ix) * 2)
#define DME1737_REG_FAN_OPT(ix) ((ix) < 4 ? 0x90 + (ix) \
: 0xb2 + (ix))
#define DME1737_REG_FAN_MAX(ix) (0xb4 + (ix)) /* only for fan[4-5] */
/* PWMs numbered 0-2, 4-5 (ix) */
#define DME1737_REG_PWM(ix) ((ix) < 3 ? 0x30 + (ix) \
: 0xa1 + (ix))
#define DME1737_REG_PWM_CONFIG(ix) (0x5c + (ix)) /* only for pwm[0-2] */
#define DME1737_REG_PWM_MIN(ix) (0x64 + (ix)) /* only for pwm[0-2] */
#define DME1737_REG_PWM_FREQ(ix) ((ix) < 3 ? 0x5f + (ix) \
: 0xa3 + (ix))
/* The layout of the ramp rate registers is different from the other pwm
* registers. The bits for the 3 PWMs are stored in 2 registers:
* PWM_RR(0) = [OFF3, OFF2, OFF1, RES, RR1E, RR1-2, RR1-1, RR1-0]
* PWM_RR(1) = [RR2E, RR2-2, RR2-1, RR2-0, RR3E, RR3-2, RR3-1, RR3-0] */
#define DME1737_REG_PWM_RR(ix) (0x62 + (ix)) /* only for pwm[0-2] */
/* Thermal zones 0-2 */
#define DME1737_REG_ZONE_LOW(ix) (0x67 + (ix))
#define DME1737_REG_ZONE_ABS(ix) (0x6a + (ix))
/* The layout of the hysteresis registers is different from the other zone
* registers. The bits for the 3 zones are stored in 2 registers:
* ZONE_HYST(0) = [H1-3, H1-2, H1-1, H1-0, H2-3, H2-2, H2-1, H2-0]
* ZONE_HYST(1) = [H3-3, H3-2, H3-1, H3-0, RES, RES, RES, RES] */
#define DME1737_REG_ZONE_HYST(ix) (0x6d + (ix))
/* Alarm registers and bit mapping
* The 3 8-bit alarm registers will be concatenated to a single 32-bit
* alarm value [0, ALARM3, ALARM2, ALARM1]. */
#define DME1737_REG_ALARM1 0x41
#define DME1737_REG_ALARM2 0x42
#define DME1737_REG_ALARM3 0x83
static const u8 DME1737_BIT_ALARM_IN[] = {0, 1, 2, 3, 8, 16, 17};
static const u8 DME1737_BIT_ALARM_TEMP[] = {4, 5, 6};
static const u8 DME1737_BIT_ALARM_FAN[] = {10, 11, 12, 13, 22, 23};
/* Miscellaneous registers */
#define DME1737_REG_DEVICE 0x3d
#define DME1737_REG_COMPANY 0x3e
#define DME1737_REG_VERSTEP 0x3f
#define DME1737_REG_CONFIG 0x40
#define DME1737_REG_CONFIG2 0x7f
#define DME1737_REG_VID 0x43
#define DME1737_REG_TACH_PWM 0x81
/* ---------------------------------------------------------------------
* Misc defines
* --------------------------------------------------------------------- */
/* Chip identification */
#define DME1737_COMPANY_SMSC 0x5c
#define DME1737_VERSTEP 0x88
#define DME1737_VERSTEP_MASK 0xf8
#define SCH311X_DEVICE 0x8c
#define SCH5027_VERSTEP_MIN 0x69
#define SCH5027_VERSTEP_MAX 0x6f
/* Length of ISA address segment */
#define DME1737_EXTENT 2
/* ---------------------------------------------------------------------
* Data structures and manipulation thereof
* --------------------------------------------------------------------- */
/* For ISA chips, we abuse the i2c_client addr and name fields. We also use
the driver field to differentiate between I2C and ISA chips. */
struct dme1737_data {
struct i2c_client client;
struct device *hwmon_dev;
struct mutex update_lock;
int valid; /* !=0 if following fields are valid */
unsigned long last_update; /* in jiffies */
unsigned long last_vbat; /* in jiffies */
enum chips type;
u8 vid;
u8 pwm_rr_en;
u8 has_pwm;
u8 has_fan;
/* Register values */
u16 in[7];
u8 in_min[7];
u8 in_max[7];
s16 temp[3];
s8 temp_min[3];
s8 temp_max[3];
s8 temp_offset[3];
u8 config;
u8 config2;
u8 vrm;
u16 fan[6];
u16 fan_min[6];
u8 fan_max[2];
u8 fan_opt[6];
u8 pwm[6];
u8 pwm_min[3];
u8 pwm_config[3];
u8 pwm_acz[3];
u8 pwm_freq[6];
u8 pwm_rr[2];
u8 zone_low[3];
u8 zone_abs[3];
u8 zone_hyst[2];
u32 alarms;
};
/* Nominal voltage values */
static const int IN_NOMINAL[] = {5000, 2250, 3300, 5000, 12000, 3300, 3300};
/* Voltage input
* Voltage inputs have 16 bits resolution, limit values have 8 bits
* resolution. */
static inline int IN_FROM_REG(int reg, int ix, int res)
{
return (reg * IN_NOMINAL[ix] + (3 << (res - 3))) / (3 << (res - 2));
}
static inline int IN_TO_REG(int val, int ix)
{
return SENSORS_LIMIT((val * 192 + IN_NOMINAL[ix] / 2) /
IN_NOMINAL[ix], 0, 255);
}
/* Temperature input
* The register values represent temperatures in 2's complement notation from
* -127 degrees C to +127 degrees C. Temp inputs have 16 bits resolution, limit
* values have 8 bits resolution. */
static inline int TEMP_FROM_REG(int reg, int res)
{
return (reg * 1000) >> (res - 8);
}
static inline int TEMP_TO_REG(int val)
{
return SENSORS_LIMIT((val < 0 ? val - 500 : val + 500) / 1000,
-128, 127);
}
/* Temperature range */
static const int TEMP_RANGE[] = {2000, 2500, 3333, 4000, 5000, 6666, 8000,
10000, 13333, 16000, 20000, 26666, 32000,
40000, 53333, 80000};
static inline int TEMP_RANGE_FROM_REG(int reg)
{
return TEMP_RANGE[(reg >> 4) & 0x0f];
}
static int TEMP_RANGE_TO_REG(int val, int reg)
{
int i;
for (i = 15; i > 0; i--) {
if (val > (TEMP_RANGE[i] + TEMP_RANGE[i - 1] + 1) / 2) {
break;
}
}
return (reg & 0x0f) | (i << 4);
}
/* Temperature hysteresis
* Register layout:
* reg[0] = [H1-3, H1-2, H1-1, H1-0, H2-3, H2-2, H2-1, H2-0]
* reg[1] = [H3-3, H3-2, H3-1, H3-0, xxxx, xxxx, xxxx, xxxx] */
static inline int TEMP_HYST_FROM_REG(int reg, int ix)
{
return (((ix == 1) ? reg : reg >> 4) & 0x0f) * 1000;
}
static inline int TEMP_HYST_TO_REG(int val, int ix, int reg)
{
int hyst = SENSORS_LIMIT((val + 500) / 1000, 0, 15);
return (ix == 1) ? (reg & 0xf0) | hyst : (reg & 0x0f) | (hyst << 4);
}
/* Fan input RPM */
static inline int FAN_FROM_REG(int reg, int tpc)
{
if (tpc) {
return tpc * reg;
} else {
return (reg == 0 || reg == 0xffff) ? 0 : 90000 * 60 / reg;
}
}
static inline int FAN_TO_REG(int val, int tpc)
{
if (tpc) {
return SENSORS_LIMIT(val / tpc, 0, 0xffff);
} else {
return (val <= 0) ? 0xffff :
SENSORS_LIMIT(90000 * 60 / val, 0, 0xfffe);
}
}
/* Fan TPC (tach pulse count)
* Converts a register value to a TPC multiplier or returns 0 if the tachometer
* is configured in legacy (non-tpc) mode */
static inline int FAN_TPC_FROM_REG(int reg)
{
return (reg & 0x20) ? 0 : 60 >> (reg & 0x03);
}
/* Fan type
* The type of a fan is expressed in number of pulses-per-revolution that it
* emits */
static inline int FAN_TYPE_FROM_REG(int reg)
{
int edge = (reg >> 1) & 0x03;
return (edge > 0) ? 1 << (edge - 1) : 0;
}
static inline int FAN_TYPE_TO_REG(int val, int reg)
{
int edge = (val == 4) ? 3 : val;
return (reg & 0xf9) | (edge << 1);
}
/* Fan max RPM */
static const int FAN_MAX[] = {0x54, 0x38, 0x2a, 0x21, 0x1c, 0x18, 0x15, 0x12,
0x11, 0x0f, 0x0e};
static int FAN_MAX_FROM_REG(int reg)
{
int i;
for (i = 10; i > 0; i--) {
if (reg == FAN_MAX[i]) {
break;
}
}
return 1000 + i * 500;
}
static int FAN_MAX_TO_REG(int val)
{
int i;
for (i = 10; i > 0; i--) {
if (val > (1000 + (i - 1) * 500)) {
break;
}
}
return FAN_MAX[i];
}
/* PWM enable
* Register to enable mapping:
* 000: 2 fan on zone 1 auto
* 001: 2 fan on zone 2 auto
* 010: 2 fan on zone 3 auto
* 011: 0 fan full on
* 100: -1 fan disabled
* 101: 2 fan on hottest of zones 2,3 auto
* 110: 2 fan on hottest of zones 1,2,3 auto
* 111: 1 fan in manual mode */
static inline int PWM_EN_FROM_REG(int reg)
{
static const int en[] = {2, 2, 2, 0, -1, 2, 2, 1};
return en[(reg >> 5) & 0x07];
}
static inline int PWM_EN_TO_REG(int val, int reg)
{
int en = (val == 1) ? 7 : 3;
return (reg & 0x1f) | ((en & 0x07) << 5);
}
/* PWM auto channels zone
* Register to auto channels zone mapping (ACZ is a bitfield with bit x
* corresponding to zone x+1):
* 000: 001 fan on zone 1 auto
* 001: 010 fan on zone 2 auto
* 010: 100 fan on zone 3 auto
* 011: 000 fan full on
* 100: 000 fan disabled
* 101: 110 fan on hottest of zones 2,3 auto
* 110: 111 fan on hottest of zones 1,2,3 auto
* 111: 000 fan in manual mode */
static inline int PWM_ACZ_FROM_REG(int reg)
{
static const int acz[] = {1, 2, 4, 0, 0, 6, 7, 0};
return acz[(reg >> 5) & 0x07];
}
static inline int PWM_ACZ_TO_REG(int val, int reg)
{
int acz = (val == 4) ? 2 : val - 1;
return (reg & 0x1f) | ((acz & 0x07) << 5);
}
/* PWM frequency */
static const int PWM_FREQ[] = {11, 15, 22, 29, 35, 44, 59, 88,
15000, 20000, 30000, 25000, 0, 0, 0, 0};
static inline int PWM_FREQ_FROM_REG(int reg)
{
return PWM_FREQ[reg & 0x0f];
}
static int PWM_FREQ_TO_REG(int val, int reg)
{
int i;
/* the first two cases are special - stupid chip design! */
if (val > 27500) {
i = 10;
} else if (val > 22500) {
i = 11;
} else {
for (i = 9; i > 0; i--) {
if (val > (PWM_FREQ[i] + PWM_FREQ[i - 1] + 1) / 2) {
break;
}
}
}
return (reg & 0xf0) | i;
}
/* PWM ramp rate
* Register layout:
* reg[0] = [OFF3, OFF2, OFF1, RES, RR1-E, RR1-2, RR1-1, RR1-0]
* reg[1] = [RR2-E, RR2-2, RR2-1, RR2-0, RR3-E, RR3-2, RR3-1, RR3-0] */
static const u8 PWM_RR[] = {206, 104, 69, 41, 26, 18, 10, 5};
static inline int PWM_RR_FROM_REG(int reg, int ix)
{
int rr = (ix == 1) ? reg >> 4 : reg;
return (rr & 0x08) ? PWM_RR[rr & 0x07] : 0;
}
static int PWM_RR_TO_REG(int val, int ix, int reg)
{
int i;
for (i = 0; i < 7; i++) {
if (val > (PWM_RR[i] + PWM_RR[i + 1] + 1) / 2) {
break;
}
}
return (ix == 1) ? (reg & 0x8f) | (i << 4) : (reg & 0xf8) | i;
}
/* PWM ramp rate enable */
static inline int PWM_RR_EN_FROM_REG(int reg, int ix)
{
return PWM_RR_FROM_REG(reg, ix) ? 1 : 0;
}
static inline int PWM_RR_EN_TO_REG(int val, int ix, int reg)
{
int en = (ix == 1) ? 0x80 : 0x08;
return val ? reg | en : reg & ~en;
}
/* PWM min/off
* The PWM min/off bits are part of the PMW ramp rate register 0 (see above for
* the register layout). */
static inline int PWM_OFF_FROM_REG(int reg, int ix)
{
return (reg >> (ix + 5)) & 0x01;
}
static inline int PWM_OFF_TO_REG(int val, int ix, int reg)
{
return (reg & ~(1 << (ix + 5))) | ((val & 0x01) << (ix + 5));
}
/* ---------------------------------------------------------------------
* Device I/O access
*
* ISA access is performed through an index/data register pair and needs to
* be protected by a mutex during runtime (not required for initialization).
* We use data->update_lock for this and need to ensure that we acquire it
* before calling dme1737_read or dme1737_write.
* --------------------------------------------------------------------- */
static u8 dme1737_read(struct i2c_client *client, u8 reg)
{
s32 val;
if (client->driver) { /* I2C device */
val = i2c_smbus_read_byte_data(client, reg);
if (val < 0) {
dev_warn(&client->dev, "Read from register "
"0x%02x failed! Please report to the driver "
"maintainer.\n", reg);
}
} else { /* ISA device */
outb(reg, client->addr);
val = inb(client->addr + 1);
}
return val;
}
static s32 dme1737_write(struct i2c_client *client, u8 reg, u8 val)
{
s32 res = 0;
if (client->driver) { /* I2C device */
res = i2c_smbus_write_byte_data(client, reg, val);
if (res < 0) {
dev_warn(&client->dev, "Write to register "
"0x%02x failed! Please report to the driver "
"maintainer.\n", reg);
}
} else { /* ISA device */
outb(reg, client->addr);
outb(val, client->addr + 1);
}
return res;
}
static struct dme1737_data *dme1737_update_device(struct device *dev)
{
struct dme1737_data *data = dev_get_drvdata(dev);
struct i2c_client *client = &data->client;
int ix;
u8 lsb[5];
mutex_lock(&data->update_lock);
/* Enable a Vbat monitoring cycle every 10 mins */
if (time_after(jiffies, data->last_vbat + 600 * HZ) || !data->valid) {
dme1737_write(client, DME1737_REG_CONFIG, dme1737_read(client,
DME1737_REG_CONFIG) | 0x10);
data->last_vbat = jiffies;
}
/* Sample register contents every 1 sec */
if (time_after(jiffies, data->last_update + HZ) || !data->valid) {
data->vid = dme1737_read(client, DME1737_REG_VID);
data->vid &= (data->type == sch5027) ? 0x38 : 0x3f;
/* In (voltage) registers */
for (ix = 0; ix < ARRAY_SIZE(data->in); ix++) {
/* Voltage inputs are stored as 16 bit values even
* though they have only 12 bits resolution. This is
* to make it consistent with the temp inputs. */
data->in[ix] = dme1737_read(client,
DME1737_REG_IN(ix)) << 8;
data->in_min[ix] = dme1737_read(client,
DME1737_REG_IN_MIN(ix));
data->in_max[ix] = dme1737_read(client,
DME1737_REG_IN_MAX(ix));
}
/* Temp registers */
for (ix = 0; ix < ARRAY_SIZE(data->temp); ix++) {
/* Temp inputs are stored as 16 bit values even
* though they have only 12 bits resolution. This is
* to take advantage of implicit conversions between
* register values (2's complement) and temp values
* (signed decimal). */
data->temp[ix] = dme1737_read(client,
DME1737_REG_TEMP(ix)) << 8;
data->temp_min[ix] = dme1737_read(client,
DME1737_REG_TEMP_MIN(ix));
data->temp_max[ix] = dme1737_read(client,
DME1737_REG_TEMP_MAX(ix));
if (data->type != sch5027) {
data->temp_offset[ix] = dme1737_read(client,
DME1737_REG_TEMP_OFFSET(ix));
}
}
/* In and temp LSB registers
* The LSBs are latched when the MSBs are read, so the order in
* which the registers are read (MSB first, then LSB) is
* important! */
for (ix = 0; ix < ARRAY_SIZE(lsb); ix++) {
lsb[ix] = dme1737_read(client,
DME1737_REG_IN_TEMP_LSB(ix));
}
for (ix = 0; ix < ARRAY_SIZE(data->in); ix++) {
data->in[ix] |= (lsb[DME1737_REG_IN_LSB[ix]] <<
DME1737_REG_IN_LSB_SHL[ix]) & 0xf0;
}
for (ix = 0; ix < ARRAY_SIZE(data->temp); ix++) {
data->temp[ix] |= (lsb[DME1737_REG_TEMP_LSB[ix]] <<
DME1737_REG_TEMP_LSB_SHL[ix]) & 0xf0;
}
/* Fan registers */
for (ix = 0; ix < ARRAY_SIZE(data->fan); ix++) {
/* Skip reading registers if optional fans are not
* present */
if (!(data->has_fan & (1 << ix))) {
continue;
}
data->fan[ix] = dme1737_read(client,
DME1737_REG_FAN(ix));
data->fan[ix] |= dme1737_read(client,
DME1737_REG_FAN(ix) + 1) << 8;
data->fan_min[ix] = dme1737_read(client,
DME1737_REG_FAN_MIN(ix));
data->fan_min[ix] |= dme1737_read(client,
DME1737_REG_FAN_MIN(ix) + 1) << 8;
data->fan_opt[ix] = dme1737_read(client,
DME1737_REG_FAN_OPT(ix));
/* fan_max exists only for fan[5-6] */
if (ix > 3) {
data->fan_max[ix - 4] = dme1737_read(client,
DME1737_REG_FAN_MAX(ix));
}
}
/* PWM registers */
for (ix = 0; ix < ARRAY_SIZE(data->pwm); ix++) {
/* Skip reading registers if optional PWMs are not
* present */
if (!(data->has_pwm & (1 << ix))) {
continue;
}
data->pwm[ix] = dme1737_read(client,
DME1737_REG_PWM(ix));
data->pwm_freq[ix] = dme1737_read(client,
DME1737_REG_PWM_FREQ(ix));
/* pwm_config and pwm_min exist only for pwm[1-3] */
if (ix < 3) {
data->pwm_config[ix] = dme1737_read(client,
DME1737_REG_PWM_CONFIG(ix));
data->pwm_min[ix] = dme1737_read(client,
DME1737_REG_PWM_MIN(ix));
}
}
for (ix = 0; ix < ARRAY_SIZE(data->pwm_rr); ix++) {
data->pwm_rr[ix] = dme1737_read(client,
DME1737_REG_PWM_RR(ix));
}
/* Thermal zone registers */
for (ix = 0; ix < ARRAY_SIZE(data->zone_low); ix++) {
data->zone_low[ix] = dme1737_read(client,
DME1737_REG_ZONE_LOW(ix));
data->zone_abs[ix] = dme1737_read(client,
DME1737_REG_ZONE_ABS(ix));
}
for (ix = 0; ix < ARRAY_SIZE(data->zone_hyst); ix++) {
data->zone_hyst[ix] = dme1737_read(client,
DME1737_REG_ZONE_HYST(ix));
}
/* Alarm registers */
data->alarms = dme1737_read(client,
DME1737_REG_ALARM1);
/* Bit 7 tells us if the other alarm registers are non-zero and
* therefore also need to be read */
if (data->alarms & 0x80) {
data->alarms |= dme1737_read(client,
DME1737_REG_ALARM2) << 8;
data->alarms |= dme1737_read(client,
DME1737_REG_ALARM3) << 16;
}
/* The ISA chips require explicit clearing of alarm bits.
* Don't worry, an alarm will come back if the condition
* that causes it still exists */
if (!client->driver) {
if (data->alarms & 0xff0000) {
dme1737_write(client, DME1737_REG_ALARM3,
0xff);
}
if (data->alarms & 0xff00) {
dme1737_write(client, DME1737_REG_ALARM2,
0xff);
}
if (data->alarms & 0xff) {
dme1737_write(client, DME1737_REG_ALARM1,
0xff);
}
}
data->last_update = jiffies;
data->valid = 1;
}
mutex_unlock(&data->update_lock);
return data;
}
/* ---------------------------------------------------------------------
* Voltage sysfs attributes
* ix = [0-5]
* --------------------------------------------------------------------- */
#define SYS_IN_INPUT 0
#define SYS_IN_MIN 1
#define SYS_IN_MAX 2
#define SYS_IN_ALARM 3
static ssize_t show_in(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct dme1737_data *data = dme1737_update_device(dev);
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
int res;
switch (fn) {
case SYS_IN_INPUT:
res = IN_FROM_REG(data->in[ix], ix, 16);
break;
case SYS_IN_MIN:
res = IN_FROM_REG(data->in_min[ix], ix, 8);
break;
case SYS_IN_MAX:
res = IN_FROM_REG(data->in_max[ix], ix, 8);
break;
case SYS_IN_ALARM:
res = (data->alarms >> DME1737_BIT_ALARM_IN[ix]) & 0x01;
break;
default:
res = 0;
dev_dbg(dev, "Unknown function %d.\n", fn);
}
return sprintf(buf, "%d\n", res);
}
static ssize_t set_in(struct device *dev, struct device_attribute *attr,
const char *buf, size_t count)
{
struct dme1737_data *data = dev_get_drvdata(dev);
struct i2c_client *client = &data->client;
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
long val = simple_strtol(buf, NULL, 10);
mutex_lock(&data->update_lock);
switch (fn) {
case SYS_IN_MIN:
data->in_min[ix] = IN_TO_REG(val, ix);
dme1737_write(client, DME1737_REG_IN_MIN(ix),
data->in_min[ix]);
break;
case SYS_IN_MAX:
data->in_max[ix] = IN_TO_REG(val, ix);
dme1737_write(client, DME1737_REG_IN_MAX(ix),
data->in_max[ix]);
break;
default:
dev_dbg(dev, "Unknown function %d.\n", fn);
}
mutex_unlock(&data->update_lock);
return count;
}
/* ---------------------------------------------------------------------
* Temperature sysfs attributes
* ix = [0-2]
* --------------------------------------------------------------------- */
#define SYS_TEMP_INPUT 0
#define SYS_TEMP_MIN 1
#define SYS_TEMP_MAX 2
#define SYS_TEMP_OFFSET 3
#define SYS_TEMP_ALARM 4
#define SYS_TEMP_FAULT 5
static ssize_t show_temp(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct dme1737_data *data = dme1737_update_device(dev);
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
int res;
switch (fn) {
case SYS_TEMP_INPUT:
res = TEMP_FROM_REG(data->temp[ix], 16);
break;
case SYS_TEMP_MIN:
res = TEMP_FROM_REG(data->temp_min[ix], 8);
break;
case SYS_TEMP_MAX:
res = TEMP_FROM_REG(data->temp_max[ix], 8);
break;
case SYS_TEMP_OFFSET:
res = TEMP_FROM_REG(data->temp_offset[ix], 8);
break;
case SYS_TEMP_ALARM:
res = (data->alarms >> DME1737_BIT_ALARM_TEMP[ix]) & 0x01;
break;
case SYS_TEMP_FAULT:
res = (((u16)data->temp[ix] & 0xff00) == 0x8000);
break;
default:
res = 0;
dev_dbg(dev, "Unknown function %d.\n", fn);
}
return sprintf(buf, "%d\n", res);
}
static ssize_t set_temp(struct device *dev, struct device_attribute *attr,
const char *buf, size_t count)
{
struct dme1737_data *data = dev_get_drvdata(dev);
struct i2c_client *client = &data->client;
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
long val = simple_strtol(buf, NULL, 10);
mutex_lock(&data->update_lock);
switch (fn) {
case SYS_TEMP_MIN:
data->temp_min[ix] = TEMP_TO_REG(val);
dme1737_write(client, DME1737_REG_TEMP_MIN(ix),
data->temp_min[ix]);
break;
case SYS_TEMP_MAX:
data->temp_max[ix] = TEMP_TO_REG(val);
dme1737_write(client, DME1737_REG_TEMP_MAX(ix),
data->temp_max[ix]);
break;
case SYS_TEMP_OFFSET:
data->temp_offset[ix] = TEMP_TO_REG(val);
dme1737_write(client, DME1737_REG_TEMP_OFFSET(ix),
data->temp_offset[ix]);
break;
default:
dev_dbg(dev, "Unknown function %d.\n", fn);
}
mutex_unlock(&data->update_lock);
return count;
}
/* ---------------------------------------------------------------------
* Zone sysfs attributes
* ix = [0-2]
* --------------------------------------------------------------------- */
#define SYS_ZONE_AUTO_CHANNELS_TEMP 0
#define SYS_ZONE_AUTO_POINT1_TEMP_HYST 1
#define SYS_ZONE_AUTO_POINT1_TEMP 2
#define SYS_ZONE_AUTO_POINT2_TEMP 3
#define SYS_ZONE_AUTO_POINT3_TEMP 4
static ssize_t show_zone(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct dme1737_data *data = dme1737_update_device(dev);
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
int res;
switch (fn) {
case SYS_ZONE_AUTO_CHANNELS_TEMP:
/* check config2 for non-standard temp-to-zone mapping */
if ((ix == 1) && (data->config2 & 0x02)) {
res = 4;
} else {
res = 1 << ix;
}
break;
case SYS_ZONE_AUTO_POINT1_TEMP_HYST:
res = TEMP_FROM_REG(data->zone_low[ix], 8) -
TEMP_HYST_FROM_REG(data->zone_hyst[ix == 2], ix);
break;
case SYS_ZONE_AUTO_POINT1_TEMP:
res = TEMP_FROM_REG(data->zone_low[ix], 8);
break;
case SYS_ZONE_AUTO_POINT2_TEMP:
/* pwm_freq holds the temp range bits in the upper nibble */
res = TEMP_FROM_REG(data->zone_low[ix], 8) +
TEMP_RANGE_FROM_REG(data->pwm_freq[ix]);
break;
case SYS_ZONE_AUTO_POINT3_TEMP:
res = TEMP_FROM_REG(data->zone_abs[ix], 8);
break;
default:
res = 0;
dev_dbg(dev, "Unknown function %d.\n", fn);
}
return sprintf(buf, "%d\n", res);
}
static ssize_t set_zone(struct device *dev, struct device_attribute *attr,
const char *buf, size_t count)
{
struct dme1737_data *data = dev_get_drvdata(dev);
struct i2c_client *client = &data->client;
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
long val = simple_strtol(buf, NULL, 10);
mutex_lock(&data->update_lock);
switch (fn) {
case SYS_ZONE_AUTO_POINT1_TEMP_HYST:
/* Refresh the cache */
data->zone_low[ix] = dme1737_read(client,
DME1737_REG_ZONE_LOW(ix));
/* Modify the temp hyst value */
data->zone_hyst[ix == 2] = TEMP_HYST_TO_REG(
TEMP_FROM_REG(data->zone_low[ix], 8) -
val, ix, dme1737_read(client,
DME1737_REG_ZONE_HYST(ix == 2)));
dme1737_write(client, DME1737_REG_ZONE_HYST(ix == 2),
data->zone_hyst[ix == 2]);
break;
case SYS_ZONE_AUTO_POINT1_TEMP:
data->zone_low[ix] = TEMP_TO_REG(val);
dme1737_write(client, DME1737_REG_ZONE_LOW(ix),
data->zone_low[ix]);
break;
case SYS_ZONE_AUTO_POINT2_TEMP:
/* Refresh the cache */
data->zone_low[ix] = dme1737_read(client,
DME1737_REG_ZONE_LOW(ix));
/* Modify the temp range value (which is stored in the upper
* nibble of the pwm_freq register) */
data->pwm_freq[ix] = TEMP_RANGE_TO_REG(val -
TEMP_FROM_REG(data->zone_low[ix], 8),
dme1737_read(client,
DME1737_REG_PWM_FREQ(ix)));
dme1737_write(client, DME1737_REG_PWM_FREQ(ix),
data->pwm_freq[ix]);
break;
case SYS_ZONE_AUTO_POINT3_TEMP:
data->zone_abs[ix] = TEMP_TO_REG(val);
dme1737_write(client, DME1737_REG_ZONE_ABS(ix),
data->zone_abs[ix]);
break;
default:
dev_dbg(dev, "Unknown function %d.\n", fn);
}
mutex_unlock(&data->update_lock);
return count;
}
/* ---------------------------------------------------------------------
* Fan sysfs attributes
* ix = [0-5]
* --------------------------------------------------------------------- */
#define SYS_FAN_INPUT 0
#define SYS_FAN_MIN 1
#define SYS_FAN_MAX 2
#define SYS_FAN_ALARM 3
#define SYS_FAN_TYPE 4
static ssize_t show_fan(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct dme1737_data *data = dme1737_update_device(dev);
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
int res;
switch (fn) {
case SYS_FAN_INPUT:
res = FAN_FROM_REG(data->fan[ix],
ix < 4 ? 0 :
FAN_TPC_FROM_REG(data->fan_opt[ix]));
break;
case SYS_FAN_MIN:
res = FAN_FROM_REG(data->fan_min[ix],
ix < 4 ? 0 :
FAN_TPC_FROM_REG(data->fan_opt[ix]));
break;
case SYS_FAN_MAX:
/* only valid for fan[5-6] */
res = FAN_MAX_FROM_REG(data->fan_max[ix - 4]);
break;
case SYS_FAN_ALARM:
res = (data->alarms >> DME1737_BIT_ALARM_FAN[ix]) & 0x01;
break;
case SYS_FAN_TYPE:
/* only valid for fan[1-4] */
res = FAN_TYPE_FROM_REG(data->fan_opt[ix]);
break;
default:
res = 0;
dev_dbg(dev, "Unknown function %d.\n", fn);
}
return sprintf(buf, "%d\n", res);
}
static ssize_t set_fan(struct device *dev, struct device_attribute *attr,
const char *buf, size_t count)
{
struct dme1737_data *data = dev_get_drvdata(dev);
struct i2c_client *client = &data->client;
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
long val = simple_strtol(buf, NULL, 10);
mutex_lock(&data->update_lock);
switch (fn) {
case SYS_FAN_MIN:
if (ix < 4) {
data->fan_min[ix] = FAN_TO_REG(val, 0);
} else {
/* Refresh the cache */
data->fan_opt[ix] = dme1737_read(client,
DME1737_REG_FAN_OPT(ix));
/* Modify the fan min value */
data->fan_min[ix] = FAN_TO_REG(val,
FAN_TPC_FROM_REG(data->fan_opt[ix]));
}
dme1737_write(client, DME1737_REG_FAN_MIN(ix),
data->fan_min[ix] & 0xff);
dme1737_write(client, DME1737_REG_FAN_MIN(ix) + 1,
data->fan_min[ix] >> 8);
break;
case SYS_FAN_MAX:
/* Only valid for fan[5-6] */
data->fan_max[ix - 4] = FAN_MAX_TO_REG(val);
dme1737_write(client, DME1737_REG_FAN_MAX(ix),
data->fan_max[ix - 4]);
break;
case SYS_FAN_TYPE:
/* Only valid for fan[1-4] */
if (!(val == 1 || val == 2 || val == 4)) {
count = -EINVAL;
dev_warn(dev, "Fan type value %ld not "
"supported. Choose one of 1, 2, or 4.\n",
val);
goto exit;
}
data->fan_opt[ix] = FAN_TYPE_TO_REG(val, dme1737_read(client,
DME1737_REG_FAN_OPT(ix)));
dme1737_write(client, DME1737_REG_FAN_OPT(ix),
data->fan_opt[ix]);
break;
default:
dev_dbg(dev, "Unknown function %d.\n", fn);
}
exit:
mutex_unlock(&data->update_lock);
return count;
}
/* ---------------------------------------------------------------------
* PWM sysfs attributes
* ix = [0-4]
* --------------------------------------------------------------------- */
#define SYS_PWM 0
#define SYS_PWM_FREQ 1
#define SYS_PWM_ENABLE 2
#define SYS_PWM_RAMP_RATE 3
#define SYS_PWM_AUTO_CHANNELS_ZONE 4
#define SYS_PWM_AUTO_PWM_MIN 5
#define SYS_PWM_AUTO_POINT1_PWM 6
#define SYS_PWM_AUTO_POINT2_PWM 7
static ssize_t show_pwm(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct dme1737_data *data = dme1737_update_device(dev);
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
int res;
switch (fn) {
case SYS_PWM:
if (PWM_EN_FROM_REG(data->pwm_config[ix]) == 0) {
res = 255;
} else {
res = data->pwm[ix];
}
break;
case SYS_PWM_FREQ:
res = PWM_FREQ_FROM_REG(data->pwm_freq[ix]);
break;
case SYS_PWM_ENABLE:
if (ix > 3) {
res = 1; /* pwm[5-6] hard-wired to manual mode */
} else {
res = PWM_EN_FROM_REG(data->pwm_config[ix]);
}
break;
case SYS_PWM_RAMP_RATE:
/* Only valid for pwm[1-3] */
res = PWM_RR_FROM_REG(data->pwm_rr[ix > 0], ix);
break;
case SYS_PWM_AUTO_CHANNELS_ZONE:
/* Only valid for pwm[1-3] */
if (PWM_EN_FROM_REG(data->pwm_config[ix]) == 2) {
res = PWM_ACZ_FROM_REG(data->pwm_config[ix]);
} else {
res = data->pwm_acz[ix];
}
break;
case SYS_PWM_AUTO_PWM_MIN:
/* Only valid for pwm[1-3] */
if (data->type == sch5027 ||
PWM_OFF_FROM_REG(data->pwm_rr[0], ix)) {
res = data->pwm_min[ix];
} else {
res = 0;
}
break;
case SYS_PWM_AUTO_POINT1_PWM:
/* Only valid for pwm[1-3] */
res = data->pwm_min[ix];
break;
case SYS_PWM_AUTO_POINT2_PWM:
/* Only valid for pwm[1-3] */
res = 255; /* hard-wired */
break;
default:
res = 0;
dev_dbg(dev, "Unknown function %d.\n", fn);
}
return sprintf(buf, "%d\n", res);
}
static struct attribute *dme1737_attr_pwm_chmod[];
static void dme1737_chmod_file(struct device*, struct attribute*, mode_t);
static ssize_t set_pwm(struct device *dev, struct device_attribute *attr,
const char *buf, size_t count)
{
struct dme1737_data *data = dev_get_drvdata(dev);
struct i2c_client *client = &data->client;
struct sensor_device_attribute_2
*sensor_attr_2 = to_sensor_dev_attr_2(attr);
int ix = sensor_attr_2->index;
int fn = sensor_attr_2->nr;
long val = simple_strtol(buf, NULL, 10);
mutex_lock(&data->update_lock);
switch (fn) {
case SYS_PWM:
data->pwm[ix] = SENSORS_LIMIT(val, 0, 255);
dme1737_write(client, DME1737_REG_PWM(ix), data->pwm[ix]);
break;
case SYS_PWM_FREQ:
data->pwm_freq[ix] = PWM_FREQ_TO_REG(val, dme1737_read(client,
DME1737_REG_PWM_FREQ(ix)));
dme1737_write(client, DME1737_REG_PWM_FREQ(ix),
data->pwm_freq[ix]);
break;
case SYS_PWM_ENABLE:
/* Only valid for pwm[1-3] */
if (val < 0 || val > 2) {
count = -EINVAL;
dev_warn(dev, "PWM enable %ld not "
"supported. Choose one of 0, 1, or 2.\n",
val);
goto exit;
}
/* Refresh the cache */
data->pwm_config[ix] = dme1737_read(client,
DME1737_REG_PWM_CONFIG(ix));
if (val == PWM_EN_FROM_REG(data->pwm_config[ix])) {
/* Bail out if no change */
goto exit;
}
/* Do some housekeeping if we are currently in auto mode */
if (PWM_EN_FROM_REG(data->pwm_config[ix]) == 2) {
/* Save the current zone channel assignment */
data->pwm_acz[ix] = PWM_ACZ_FROM_REG(
data->pwm_config[ix]);
/* Save the current ramp rate state and disable it */
data->pwm_rr[ix > 0] = dme1737_read(client,
DME1737_REG_PWM_RR(ix > 0));
data->pwm_rr_en &= ~(1 << ix);
if (PWM_RR_EN_FROM_REG(data->pwm_rr[ix > 0], ix)) {
data->pwm_rr_en |= (1 << ix);
data->pwm_rr[ix > 0] = PWM_RR_EN_TO_REG(0, ix,
data->pwm_rr[ix > 0]);
dme1737_write(client,
DME1737_REG_PWM_RR(ix > 0),
data->pwm_rr[ix > 0]);
}
}
/* Set the new PWM mode */
switch (val) {
case 0:
/* Change permissions of pwm[ix] to read-only */
dme1737_chmod_file(dev, dme1737_attr_pwm_chmod[ix],
S_IRUGO);
/* Turn fan fully on */
data->pwm_config[ix] = PWM_EN_TO_REG(0,
data->pwm_config[ix]);
dme1737_write(client, DME1737_REG_PWM_CONFIG(ix),
data->pwm_config[ix]);
break;
case 1:
/* Turn on manual mode */
data->pwm_config[ix] = PWM_EN_TO_REG(1,
data->pwm_config[ix]);
dme1737_write(client, DME1737_REG_PWM_CONFIG(ix),
data->pwm_config[ix]);
/* Change permissions of pwm[ix] to read-writeable */
dme1737_chmod_file(dev, dme1737_attr_pwm_chmod[ix],
S_IRUGO | S_IWUSR);
break;
case 2:
/* Change permissions of pwm[ix] to read-only */
dme1737_chmod_file(dev, dme1737_attr_pwm_chmod[ix],
S_IRUGO);
/* Turn on auto mode using the saved zone channel
* assignment */
data->pwm_config[ix] = PWM_ACZ_TO_REG(
data->pwm_acz[ix],
data->pwm_config[ix]);
dme1737_write(client, DME1737_REG_PWM_CONFIG(ix),
data->pwm_config[ix]);
/* Enable PWM ramp rate if previously enabled */
if (data->pwm_rr_en & (1 << ix)) {
data->pwm_rr[ix > 0] = PWM_RR_EN_TO_REG(1, ix,
dme1737_read(client,
DME1737_REG_PWM_RR(ix > 0)));
dme1737_write(client,
DME1737_REG_PWM_RR(ix > 0),
data->pwm_rr[ix > 0]);
}
break;
}
break;
case SYS_PWM_RAMP_RATE:
/* Only valid for pwm[1-3] */
/* Refresh the cache */
data->pwm_config[ix] = dme1737_read(client,
DME1737_REG_PWM_CONFIG(ix));
data->pwm_rr[ix > 0] = dme1737_read(client,
DME1737_REG_PWM_RR(ix > 0));
/* Set the ramp rate value */
if (val > 0) {
data->pwm_rr[ix > 0] = PWM_RR_TO_REG(val, ix,
data->pwm_rr[ix > 0]);
}
/* Enable/disable the feature only if the associated PWM
* output is in automatic mode. */
if (PWM_EN_FROM_REG(data->pwm_config[ix]) == 2) {
data->pwm_rr[ix > 0] = PWM_RR_EN_TO_REG(val > 0, ix,
data->pwm_rr[ix > 0]);
}
dme1737_write(client, DME1737_REG_PWM_RR(ix > 0),
data->pwm_rr[ix > 0]);
break;
case SYS_PWM_AUTO_CHANNELS_ZONE:
/* Only valid for pwm[1-3] */
if (!(val == 1 || val == 2 || val == 4 ||
val == 6 || val == 7)) {
count = -EINVAL;
dev_warn(dev, "PWM auto channels zone %ld "
"not supported. Choose one of 1, 2, 4, 6, "
"or 7.\n", val);
goto exit;
}
/* Refresh the cache */
data->pwm_config[ix] = dme1737_read(client,
DME1737_REG_PWM_CONFIG(ix));
if (PWM_EN_FROM_REG(data->pwm_config[ix]) == 2) {
/* PWM is already in auto mode so update the temp
* channel assignment */
data->pwm_config[ix] = PWM_ACZ_TO_REG(val,
data->pwm_config[ix]);
dme1737_write(client, DME1737_REG_PWM_CONFIG(ix),
data->pwm_config[ix]);
} else {
/* PWM is not in auto mode so we save the temp
* channel assignment for later use */
data->pwm_acz[ix] = val;
}
break;
case SYS_PWM_AUTO_PWM_MIN:
/* Only valid for pwm[1-3] */
/* Refresh the cache */
data->pwm_min[ix] = dme1737_read(client,
DME1737_REG_PWM_MIN(ix));
/* There are only 2 values supported for the auto_pwm_min
* value: 0 or auto_point1_pwm. So if the temperature drops
* below the auto_point1_temp_hyst value, the fan either turns
* off or runs at auto_point1_pwm duty-cycle. */
if (val > ((data->pwm_min[ix] + 1) / 2)) {
data->pwm_rr[0] = PWM_OFF_TO_REG(1, ix,
dme1737_read(client,
DME1737_REG_PWM_RR(0)));
} else {
data->pwm_rr[0] = PWM_OFF_TO_REG(0, ix,
dme1737_read(client,
DME1737_REG_PWM_RR(0)));
}
dme1737_write(client, DME1737_REG_PWM_RR(0),
data->pwm_rr[0]);
break;
case SYS_PWM_AUTO_POINT1_PWM:
/* Only valid for pwm[1-3] */
data->pwm_min[ix] = SENSORS_LIMIT(val, 0, 255);
dme1737_write(client, DME1737_REG_PWM_MIN(ix),
data->pwm_min[ix]);
break;
default:
dev_dbg(dev, "Unknown function %d.\n", fn);
}
exit:
mutex_unlock(&data->update_lock);
return count;
}
/* ---------------------------------------------------------------------
* Miscellaneous sysfs attributes
* --------------------------------------------------------------------- */
static ssize_t show_vrm(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct i2c_client *client = to_i2c_client(dev);
struct dme1737_data *data = i2c_get_clientdata(client);
return sprintf(buf, "%d\n", data->vrm);
}
static ssize_t set_vrm(struct device *dev, struct device_attribute *attr,
const char *buf, size_t count)
{
struct dme1737_data *data = dev_get_drvdata(dev);
long val = simple_strtol(buf, NULL, 10);
data->vrm = val;
return count;
}
static ssize_t show_vid(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct dme1737_data *data = dme1737_update_device(dev);
return sprintf(buf, "%d\n", vid_from_reg(data->vid, data->vrm));
}
static ssize_t show_name(struct device *dev, struct device_attribute *attr,
char *buf)
{
struct dme1737_data *data = dev_get_drvdata(dev);
return sprintf(buf, "%s\n", data->client.name);
}
/* ---------------------------------------------------------------------
* Sysfs device attribute defines and structs
* --------------------------------------------------------------------- */
/* Voltages 0-6 */
#define SENSOR_DEVICE_ATTR_IN(ix) \
static SENSOR_DEVICE_ATTR_2(in##ix##_input, S_IRUGO, \
show_in, NULL, SYS_IN_INPUT, ix); \
static SENSOR_DEVICE_ATTR_2(in##ix##_min, S_IRUGO | S_IWUSR, \
show_in, set_in, SYS_IN_MIN, ix); \
static SENSOR_DEVICE_ATTR_2(in##ix##_max, S_IRUGO | S_IWUSR, \
show_in, set_in, SYS_IN_MAX, ix); \
static SENSOR_DEVICE_ATTR_2(in##ix##_alarm, S_IRUGO, \
show_in, NULL, SYS_IN_ALARM, ix)
SENSOR_DEVICE_ATTR_IN(0);
SENSOR_DEVICE_ATTR_IN(1);
SENSOR_DEVICE_ATTR_IN(2);
SENSOR_DEVICE_ATTR_IN(3);
SENSOR_DEVICE_ATTR_IN(4);
SENSOR_DEVICE_ATTR_IN(5);
SENSOR_DEVICE_ATTR_IN(6);
/* Temperatures 1-3 */
#define SENSOR_DEVICE_ATTR_TEMP(ix) \
static SENSOR_DEVICE_ATTR_2(temp##ix##_input, S_IRUGO, \
show_temp, NULL, SYS_TEMP_INPUT, ix-1); \
static SENSOR_DEVICE_ATTR_2(temp##ix##_min, S_IRUGO | S_IWUSR, \
show_temp, set_temp, SYS_TEMP_MIN, ix-1); \
static SENSOR_DEVICE_ATTR_2(temp##ix##_max, S_IRUGO | S_IWUSR, \
show_temp, set_temp, SYS_TEMP_MAX, ix-1); \
static SENSOR_DEVICE_ATTR_2(temp##ix##_offset, S_IRUGO, \
show_temp, set_temp, SYS_TEMP_OFFSET, ix-1); \
static SENSOR_DEVICE_ATTR_2(temp##ix##_alarm, S_IRUGO, \
show_temp, NULL, SYS_TEMP_ALARM, ix-1); \
static SENSOR_DEVICE_ATTR_2(temp##ix##_fault, S_IRUGO, \
show_temp, NULL, SYS_TEMP_FAULT, ix-1)
SENSOR_DEVICE_ATTR_TEMP(1);
SENSOR_DEVICE_ATTR_TEMP(2);
SENSOR_DEVICE_ATTR_TEMP(3);
/* Zones 1-3 */
#define SENSOR_DEVICE_ATTR_ZONE(ix) \
static SENSOR_DEVICE_ATTR_2(zone##ix##_auto_channels_temp, S_IRUGO, \
show_zone, NULL, SYS_ZONE_AUTO_CHANNELS_TEMP, ix-1); \
static SENSOR_DEVICE_ATTR_2(zone##ix##_auto_point1_temp_hyst, S_IRUGO, \
show_zone, set_zone, SYS_ZONE_AUTO_POINT1_TEMP_HYST, ix-1); \
static SENSOR_DEVICE_ATTR_2(zone##ix##_auto_point1_temp, S_IRUGO, \
show_zone, set_zone, SYS_ZONE_AUTO_POINT1_TEMP, ix-1); \
static SENSOR_DEVICE_ATTR_2(zone##ix##_auto_point2_temp, S_IRUGO, \
show_zone, set_zone, SYS_ZONE_AUTO_POINT2_TEMP, ix-1); \
static SENSOR_DEVICE_ATTR_2(zone##ix##_auto_point3_temp, S_IRUGO, \
show_zone, set_zone, SYS_ZONE_AUTO_POINT3_TEMP, ix-1)
SENSOR_DEVICE_ATTR_ZONE(1);
SENSOR_DEVICE_ATTR_ZONE(2);
SENSOR_DEVICE_ATTR_ZONE(3);
/* Fans 1-4 */
#define SENSOR_DEVICE_ATTR_FAN_1TO4(ix) \
static SENSOR_DEVICE_ATTR_2(fan##ix##_input, S_IRUGO, \
show_fan, NULL, SYS_FAN_INPUT, ix-1); \
static SENSOR_DEVICE_ATTR_2(fan##ix##_min, S_IRUGO | S_IWUSR, \
show_fan, set_fan, SYS_FAN_MIN, ix-1); \
static SENSOR_DEVICE_ATTR_2(fan##ix##_alarm, S_IRUGO, \
show_fan, NULL, SYS_FAN_ALARM, ix-1); \
static SENSOR_DEVICE_ATTR_2(fan##ix##_type, S_IRUGO | S_IWUSR, \
show_fan, set_fan, SYS_FAN_TYPE, ix-1)
SENSOR_DEVICE_ATTR_FAN_1TO4(1);
SENSOR_DEVICE_ATTR_FAN_1TO4(2);
SENSOR_DEVICE_ATTR_FAN_1TO4(3);
SENSOR_DEVICE_ATTR_FAN_1TO4(4);
/* Fans 5-6 */
#define SENSOR_DEVICE_ATTR_FAN_5TO6(ix) \
static SENSOR_DEVICE_ATTR_2(fan##ix##_input, S_IRUGO, \
show_fan, NULL, SYS_FAN_INPUT, ix-1); \
static SENSOR_DEVICE_ATTR_2(fan##ix##_min, S_IRUGO | S_IWUSR, \
show_fan, set_fan, SYS_FAN_MIN, ix-1); \
static SENSOR_DEVICE_ATTR_2(fan##ix##_alarm, S_IRUGO, \
show_fan, NULL, SYS_FAN_ALARM, ix-1); \
static SENSOR_DEVICE_ATTR_2(fan##ix##_max, S_IRUGO | S_IWUSR, \
show_fan, set_fan, SYS_FAN_MAX, ix-1)
SENSOR_DEVICE_ATTR_FAN_5TO6(5);
SENSOR_DEVICE_ATTR_FAN_5TO6(6);
/* PWMs 1-3 */
#define SENSOR_DEVICE_ATTR_PWM_1TO3(ix) \
static SENSOR_DEVICE_ATTR_2(pwm##ix, S_IRUGO, \
show_pwm, set_pwm, SYS_PWM, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_freq, S_IRUGO, \
show_pwm, set_pwm, SYS_PWM_FREQ, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_enable, S_IRUGO, \
show_pwm, set_pwm, SYS_PWM_ENABLE, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_ramp_rate, S_IRUGO, \
show_pwm, set_pwm, SYS_PWM_RAMP_RATE, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_auto_channels_zone, S_IRUGO, \
show_pwm, set_pwm, SYS_PWM_AUTO_CHANNELS_ZONE, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_auto_pwm_min, S_IRUGO, \
show_pwm, set_pwm, SYS_PWM_AUTO_PWM_MIN, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_auto_point1_pwm, S_IRUGO, \
show_pwm, set_pwm, SYS_PWM_AUTO_POINT1_PWM, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_auto_point2_pwm, S_IRUGO, \
show_pwm, NULL, SYS_PWM_AUTO_POINT2_PWM, ix-1)
SENSOR_DEVICE_ATTR_PWM_1TO3(1);
SENSOR_DEVICE_ATTR_PWM_1TO3(2);
SENSOR_DEVICE_ATTR_PWM_1TO3(3);
/* PWMs 5-6 */
#define SENSOR_DEVICE_ATTR_PWM_5TO6(ix) \
static SENSOR_DEVICE_ATTR_2(pwm##ix, S_IRUGO | S_IWUSR, \
show_pwm, set_pwm, SYS_PWM, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_freq, S_IRUGO | S_IWUSR, \
show_pwm, set_pwm, SYS_PWM_FREQ, ix-1); \
static SENSOR_DEVICE_ATTR_2(pwm##ix##_enable, S_IRUGO, \
show_pwm, NULL, SYS_PWM_ENABLE, ix-1)
SENSOR_DEVICE_ATTR_PWM_5TO6(5);
SENSOR_DEVICE_ATTR_PWM_5TO6(6);
/* Misc */
static DEVICE_ATTR(vrm, S_IRUGO | S_IWUSR, show_vrm, set_vrm);
static DEVICE_ATTR(cpu0_vid, S_IRUGO, show_vid, NULL);
static DEVICE_ATTR(name, S_IRUGO, show_name, NULL); /* for ISA devices */
/* This struct holds all the attributes that are always present and need to be
* created unconditionally. The attributes that need modification of their
* permissions are created read-only and write permissions are added or removed
* on the fly when required */
static struct attribute *dme1737_attr[] ={
/* Voltages */
&sensor_dev_attr_in0_input.dev_attr.attr,
&sensor_dev_attr_in0_min.dev_attr.attr,
&sensor_dev_attr_in0_max.dev_attr.attr,
&sensor_dev_attr_in0_alarm.dev_attr.attr,
&sensor_dev_attr_in1_input.dev_attr.attr,
&sensor_dev_attr_in1_min.dev_attr.attr,
&sensor_dev_attr_in1_max.dev_attr.attr,
&sensor_dev_attr_in1_alarm.dev_attr.attr,
&sensor_dev_attr_in2_input.dev_attr.attr,
&sensor_dev_attr_in2_min.dev_attr.attr,
&sensor_dev_attr_in2_max.dev_attr.attr,
&sensor_dev_attr_in2_alarm.dev_attr.attr,
&sensor_dev_attr_in3_input.dev_attr.attr,
&sensor_dev_attr_in3_min.dev_attr.attr,
&sensor_dev_attr_in3_max.dev_attr.attr,
&sensor_dev_attr_in3_alarm.dev_attr.attr,
&sensor_dev_attr_in4_input.dev_attr.attr,
&sensor_dev_attr_in4_min.dev_attr.attr,
&sensor_dev_attr_in4_max.dev_attr.attr,
&sensor_dev_attr_in4_alarm.dev_attr.attr,
&sensor_dev_attr_in5_input.dev_attr.attr,
&sensor_dev_attr_in5_min.dev_attr.attr,
&sensor_dev_attr_in5_max.dev_attr.attr,
&sensor_dev_attr_in5_alarm.dev_attr.attr,
&sensor_dev_attr_in6_input.dev_attr.attr,
&sensor_dev_attr_in6_min.dev_attr.attr,
&sensor_dev_attr_in6_max.dev_attr.attr,
&sensor_dev_attr_in6_alarm.dev_attr.attr,
/* Temperatures */
&sensor_dev_attr_temp1_input.dev_attr.attr,
&sensor_dev_attr_temp1_min.dev_attr.attr,
&sensor_dev_attr_temp1_max.dev_attr.attr,
&sensor_dev_attr_temp1_alarm.dev_attr.attr,
&sensor_dev_attr_temp1_fault.dev_attr.attr,
&sensor_dev_attr_temp2_input.dev_attr.attr,
&sensor_dev_attr_temp2_min.dev_attr.attr,
&sensor_dev_attr_temp2_max.dev_attr.attr,
&sensor_dev_attr_temp2_alarm.dev_attr.attr,
&sensor_dev_attr_temp2_fault.dev_attr.attr,
&sensor_dev_attr_temp3_input.dev_attr.attr,
&sensor_dev_attr_temp3_min.dev_attr.attr,
&sensor_dev_attr_temp3_max.dev_attr.attr,
&sensor_dev_attr_temp3_alarm.dev_attr.attr,
&sensor_dev_attr_temp3_fault.dev_attr.attr,
/* Zones */
&sensor_dev_attr_zone1_auto_point1_temp_hyst.dev_attr.attr,
&sensor_dev_attr_zone1_auto_point1_temp.dev_attr.attr,
&sensor_dev_attr_zone1_auto_point2_temp.dev_attr.attr,
&sensor_dev_attr_zone1_auto_point3_temp.dev_attr.attr,
&sensor_dev_attr_zone1_auto_channels_temp.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point1_temp_hyst.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point1_temp.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point2_temp.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point3_temp.dev_attr.attr,
&sensor_dev_attr_zone2_auto_channels_temp.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point1_temp_hyst.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point1_temp.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point2_temp.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point3_temp.dev_attr.attr,
&sensor_dev_attr_zone3_auto_channels_temp.dev_attr.attr,
/* Misc */
&dev_attr_vrm.attr,
&dev_attr_cpu0_vid.attr,
NULL
};
static const struct attribute_group dme1737_group = {
.attrs = dme1737_attr,
};
/* The following struct holds the temp offset attributes, which are not
* available in all chips. Their creation depends on the chip type which is
* determined during module load. */
static struct attribute *dme1737_attr_temp_offset[] = {
&sensor_dev_attr_temp1_offset.dev_attr.attr,
&sensor_dev_attr_temp2_offset.dev_attr.attr,
&sensor_dev_attr_temp3_offset.dev_attr.attr,
NULL
};
static const struct attribute_group dme1737_temp_offset_group = {
.attrs = dme1737_attr_temp_offset,
};
/* The following structs hold the PWM attributes, some of which are optional.
* Their creation depends on the chip configuration which is determined during
* module load. */
static struct attribute *dme1737_attr_pwm1[] = {
&sensor_dev_attr_pwm1.dev_attr.attr,
&sensor_dev_attr_pwm1_freq.dev_attr.attr,
&sensor_dev_attr_pwm1_enable.dev_attr.attr,
&sensor_dev_attr_pwm1_ramp_rate.dev_attr.attr,
&sensor_dev_attr_pwm1_auto_channels_zone.dev_attr.attr,
&sensor_dev_attr_pwm1_auto_pwm_min.dev_attr.attr,
&sensor_dev_attr_pwm1_auto_point1_pwm.dev_attr.attr,
&sensor_dev_attr_pwm1_auto_point2_pwm.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm2[] = {
&sensor_dev_attr_pwm2.dev_attr.attr,
&sensor_dev_attr_pwm2_freq.dev_attr.attr,
&sensor_dev_attr_pwm2_enable.dev_attr.attr,
&sensor_dev_attr_pwm2_ramp_rate.dev_attr.attr,
&sensor_dev_attr_pwm2_auto_channels_zone.dev_attr.attr,
&sensor_dev_attr_pwm2_auto_pwm_min.dev_attr.attr,
&sensor_dev_attr_pwm2_auto_point1_pwm.dev_attr.attr,
&sensor_dev_attr_pwm2_auto_point2_pwm.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm3[] = {
&sensor_dev_attr_pwm3.dev_attr.attr,
&sensor_dev_attr_pwm3_freq.dev_attr.attr,
&sensor_dev_attr_pwm3_enable.dev_attr.attr,
&sensor_dev_attr_pwm3_ramp_rate.dev_attr.attr,
&sensor_dev_attr_pwm3_auto_channels_zone.dev_attr.attr,
&sensor_dev_attr_pwm3_auto_pwm_min.dev_attr.attr,
&sensor_dev_attr_pwm3_auto_point1_pwm.dev_attr.attr,
&sensor_dev_attr_pwm3_auto_point2_pwm.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm5[] = {
&sensor_dev_attr_pwm5.dev_attr.attr,
&sensor_dev_attr_pwm5_freq.dev_attr.attr,
&sensor_dev_attr_pwm5_enable.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm6[] = {
&sensor_dev_attr_pwm6.dev_attr.attr,
&sensor_dev_attr_pwm6_freq.dev_attr.attr,
&sensor_dev_attr_pwm6_enable.dev_attr.attr,
NULL
};
static const struct attribute_group dme1737_pwm_group[] = {
{ .attrs = dme1737_attr_pwm1 },
{ .attrs = dme1737_attr_pwm2 },
{ .attrs = dme1737_attr_pwm3 },
{ .attrs = NULL },
{ .attrs = dme1737_attr_pwm5 },
{ .attrs = dme1737_attr_pwm6 },
};
/* The following structs hold the fan attributes, some of which are optional.
* Their creation depends on the chip configuration which is determined during
* module load. */
static struct attribute *dme1737_attr_fan1[] = {
&sensor_dev_attr_fan1_input.dev_attr.attr,
&sensor_dev_attr_fan1_min.dev_attr.attr,
&sensor_dev_attr_fan1_alarm.dev_attr.attr,
&sensor_dev_attr_fan1_type.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_fan2[] = {
&sensor_dev_attr_fan2_input.dev_attr.attr,
&sensor_dev_attr_fan2_min.dev_attr.attr,
&sensor_dev_attr_fan2_alarm.dev_attr.attr,
&sensor_dev_attr_fan2_type.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_fan3[] = {
&sensor_dev_attr_fan3_input.dev_attr.attr,
&sensor_dev_attr_fan3_min.dev_attr.attr,
&sensor_dev_attr_fan3_alarm.dev_attr.attr,
&sensor_dev_attr_fan3_type.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_fan4[] = {
&sensor_dev_attr_fan4_input.dev_attr.attr,
&sensor_dev_attr_fan4_min.dev_attr.attr,
&sensor_dev_attr_fan4_alarm.dev_attr.attr,
&sensor_dev_attr_fan4_type.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_fan5[] = {
&sensor_dev_attr_fan5_input.dev_attr.attr,
&sensor_dev_attr_fan5_min.dev_attr.attr,
&sensor_dev_attr_fan5_alarm.dev_attr.attr,
&sensor_dev_attr_fan5_max.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_fan6[] = {
&sensor_dev_attr_fan6_input.dev_attr.attr,
&sensor_dev_attr_fan6_min.dev_attr.attr,
&sensor_dev_attr_fan6_alarm.dev_attr.attr,
&sensor_dev_attr_fan6_max.dev_attr.attr,
NULL
};
static const struct attribute_group dme1737_fan_group[] = {
{ .attrs = dme1737_attr_fan1 },
{ .attrs = dme1737_attr_fan2 },
{ .attrs = dme1737_attr_fan3 },
{ .attrs = dme1737_attr_fan4 },
{ .attrs = dme1737_attr_fan5 },
{ .attrs = dme1737_attr_fan6 },
};
/* The permissions of the following zone attributes are changed to read-
* writeable if the chip is *not* locked. Otherwise they stay read-only. */
static struct attribute *dme1737_attr_zone_chmod[] = {
&sensor_dev_attr_zone1_auto_point1_temp_hyst.dev_attr.attr,
&sensor_dev_attr_zone1_auto_point1_temp.dev_attr.attr,
&sensor_dev_attr_zone1_auto_point2_temp.dev_attr.attr,
&sensor_dev_attr_zone1_auto_point3_temp.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point1_temp_hyst.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point1_temp.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point2_temp.dev_attr.attr,
&sensor_dev_attr_zone2_auto_point3_temp.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point1_temp_hyst.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point1_temp.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point2_temp.dev_attr.attr,
&sensor_dev_attr_zone3_auto_point3_temp.dev_attr.attr,
NULL
};
static const struct attribute_group dme1737_zone_chmod_group = {
.attrs = dme1737_attr_zone_chmod,
};
/* The permissions of the following temp offset attributes are changed to read-
* writeable if the chip is *not* locked and it is *not* a SCH5027 (which
* doesn't support temp offsets). */
static struct attribute *dme1737_attr_temp_offset_chmod[] = {
&sensor_dev_attr_temp1_offset.dev_attr.attr,
&sensor_dev_attr_temp2_offset.dev_attr.attr,
&sensor_dev_attr_temp3_offset.dev_attr.attr,
NULL
};
static const struct attribute_group dme1737_temp_offset_chmod_group = {
.attrs = dme1737_attr_temp_offset_chmod,
};
/* The permissions of the following PWM attributes are changed to read-
* writeable if the chip is *not* locked and the respective PWM is available.
* Otherwise they stay read-only. */
static struct attribute *dme1737_attr_pwm1_chmod[] = {
&sensor_dev_attr_pwm1_freq.dev_attr.attr,
&sensor_dev_attr_pwm1_enable.dev_attr.attr,
&sensor_dev_attr_pwm1_ramp_rate.dev_attr.attr,
&sensor_dev_attr_pwm1_auto_channels_zone.dev_attr.attr,
&sensor_dev_attr_pwm1_auto_point1_pwm.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm2_chmod[] = {
&sensor_dev_attr_pwm2_freq.dev_attr.attr,
&sensor_dev_attr_pwm2_enable.dev_attr.attr,
&sensor_dev_attr_pwm2_ramp_rate.dev_attr.attr,
&sensor_dev_attr_pwm2_auto_channels_zone.dev_attr.attr,
&sensor_dev_attr_pwm2_auto_point1_pwm.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm3_chmod[] = {
&sensor_dev_attr_pwm3_freq.dev_attr.attr,
&sensor_dev_attr_pwm3_enable.dev_attr.attr,
&sensor_dev_attr_pwm3_ramp_rate.dev_attr.attr,
&sensor_dev_attr_pwm3_auto_channels_zone.dev_attr.attr,
&sensor_dev_attr_pwm3_auto_point1_pwm.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm5_chmod[] = {
&sensor_dev_attr_pwm5.dev_attr.attr,
&sensor_dev_attr_pwm5_freq.dev_attr.attr,
NULL
};
static struct attribute *dme1737_attr_pwm6_chmod[] = {
&sensor_dev_attr_pwm6.dev_attr.attr,
&sensor_dev_attr_pwm6_freq.dev_attr.attr,
NULL
};
static const struct attribute_group dme1737_pwm_chmod_group[] = {
{ .attrs = dme1737_attr_pwm1_chmod },
{ .attrs = dme1737_attr_pwm2_chmod },
{ .attrs = dme1737_attr_pwm3_chmod },
{ .attrs = NULL },
{ .attrs = dme1737_attr_pwm5_chmod },
{ .attrs = dme1737_attr_pwm6_chmod },
};
/* Pwm[1-3] are read-writeable if the associated pwm is in manual mode and the
* chip is not locked. Otherwise they are read-only. */
static struct attribute *dme1737_attr_pwm_chmod[] = {
&sensor_dev_attr_pwm1.dev_attr.attr,
&sensor_dev_attr_pwm2.dev_attr.attr,
&sensor_dev_attr_pwm3.dev_attr.attr,
};
/* Pwm[1-3]_auto_pwm_min are read-writeable if the chip is *not* a SCH5027.
* Otherwise they are read-only. */
static struct attribute *dme1737_attr_pwm_min_chmod[] = {
&sensor_dev_attr_pwm1_auto_pwm_min.dev_attr.attr,
&sensor_dev_attr_pwm2_auto_pwm_min.dev_attr.attr,
&sensor_dev_attr_pwm3_auto_pwm_min.dev_attr.attr,
};
/* ---------------------------------------------------------------------
* Super-IO functions
* --------------------------------------------------------------------- */
static inline void dme1737_sio_enter(int sio_cip)
{
outb(0x55, sio_cip);
}
static inline void dme1737_sio_exit(int sio_cip)
{
outb(0xaa, sio_cip);
}
static inline int dme1737_sio_inb(int sio_cip, int reg)
{
outb(reg, sio_cip);
return inb(sio_cip + 1);
}
static inline void dme1737_sio_outb(int sio_cip, int reg, int val)
{
outb(reg, sio_cip);
outb(val, sio_cip + 1);
}
/* ---------------------------------------------------------------------
* Device initialization
* --------------------------------------------------------------------- */
static int dme1737_i2c_get_features(int, struct dme1737_data*);
static void dme1737_chmod_file(struct device *dev,
struct attribute *attr, mode_t mode)
{
if (sysfs_chmod_file(&dev->kobj, attr, mode)) {
dev_warn(dev, "Failed to change permissions of %s.\n",
attr->name);
}
}
static void dme1737_chmod_group(struct device *dev,
const struct attribute_group *group,
mode_t mode)
{
struct attribute **attr;
for (attr = group->attrs; *attr; attr++) {
dme1737_chmod_file(dev, *attr, mode);
}
}
static void dme1737_remove_files(struct device *dev)
{
struct dme1737_data *data = dev_get_drvdata(dev);
int ix;
for (ix = 0; ix < ARRAY_SIZE(dme1737_fan_group); ix++) {
if (data->has_fan & (1 << ix)) {
sysfs_remove_group(&dev->kobj,
&dme1737_fan_group[ix]);
}
}
for (ix = 0; ix < ARRAY_SIZE(dme1737_pwm_group); ix++) {
if (data->has_pwm & (1 << ix)) {
sysfs_remove_group(&dev->kobj,
&dme1737_pwm_group[ix]);
}
}
if (data->type != sch5027) {
sysfs_remove_group(&dev->kobj, &dme1737_temp_offset_group);
}
sysfs_remove_group(&dev->kobj, &dme1737_group);
if (!data->client.driver) {
sysfs_remove_file(&dev->kobj, &dev_attr_name.attr);
}
}
static int dme1737_create_files(struct device *dev)
{
struct dme1737_data *data = dev_get_drvdata(dev);
int err, ix;
/* Create a name attribute for ISA devices */
if (!data->client.driver &&
(err = sysfs_create_file(&dev->kobj, &dev_attr_name.attr))) {
goto exit;
}
/* Create standard sysfs attributes */
if ((err = sysfs_create_group(&dev->kobj, &dme1737_group))) {
goto exit_remove;
}
/* Create temp offset attributes */
if ((data->type != sch5027) &&
(err = sysfs_create_group(&dev->kobj,
&dme1737_temp_offset_group))) {
goto exit_remove;
}
/* Create fan sysfs attributes */
for (ix = 0; ix < ARRAY_SIZE(dme1737_fan_group); ix++) {
if (data->has_fan & (1 << ix)) {
if ((err = sysfs_create_group(&dev->kobj,
&dme1737_fan_group[ix]))) {
goto exit_remove;
}
}
}
/* Create PWM sysfs attributes */
for (ix = 0; ix < ARRAY_SIZE(dme1737_pwm_group); ix++) {
if (data->has_pwm & (1 << ix)) {
if ((err = sysfs_create_group(&dev->kobj,
&dme1737_pwm_group[ix]))) {
goto exit_remove;
}
}
}
/* Inform if the device is locked. Otherwise change the permissions of
* selected attributes from read-only to read-writeable. */
if (data->config & 0x02) {
dev_info(dev, "Device is locked. Some attributes "
"will be read-only.\n");
} else {
/* Change permissions of zone attributes */
dme1737_chmod_group(dev, &dme1737_zone_chmod_group,
S_IRUGO | S_IWUSR);
/* Change permissions of temp offset attributes */
if ((data->type == dme1737 || data->type == sch311x)) {
dme1737_chmod_group(dev,
&dme1737_temp_offset_chmod_group,
S_IRUGO | S_IWUSR);
}
/* Change permissions of PWM attributes */
for (ix = 0; ix < ARRAY_SIZE(dme1737_pwm_chmod_group); ix++) {
if (data->has_pwm & (1 << ix)) {
dme1737_chmod_group(dev,
&dme1737_pwm_chmod_group[ix],
S_IRUGO | S_IWUSR);
if (data->type != sch5027) {
dme1737_chmod_file(dev,
dme1737_attr_pwm_min_chmod[ix],
S_IRUGO | S_IWUSR);
}
}
}
/* Change permissions of pwm[1-3] if in manual mode */
for (ix = 0; ix < 3; ix++) {
if ((data->has_pwm & (1 << ix)) &&
(PWM_EN_FROM_REG(data->pwm_config[ix]) == 1)) {
dme1737_chmod_file(dev,
dme1737_attr_pwm_chmod[ix],
S_IRUGO | S_IWUSR);
}
}
}
return 0;
exit_remove:
dme1737_remove_files(dev);
exit:
return err;
}
static int dme1737_init_device(struct device *dev)
{
struct dme1737_data *data = dev_get_drvdata(dev);
struct i2c_client *client = &data->client;
int ix;
u8 reg;
data->config = dme1737_read(client, DME1737_REG_CONFIG);
/* Inform if part is not monitoring/started */
if (!(data->config & 0x01)) {
if (!force_start) {
dev_err(dev, "Device is not monitoring. "
"Use the force_start load parameter to "
"override.\n");
return -EFAULT;
}
/* Force monitoring */
data->config |= 0x01;
dme1737_write(client, DME1737_REG_CONFIG, data->config);
}
/* Inform if part is not ready */
if (!(data->config & 0x04)) {
dev_err(dev, "Device is not ready.\n");
return -EFAULT;
}
/* Determine which optional fan and pwm features are enabled/present */
if (client->driver) { /* I2C chip */
data->config2 = dme1737_read(client, DME1737_REG_CONFIG2);
/* Check if optional fan3 input is enabled */
if (data->config2 & 0x04) {
data->has_fan |= (1 << 2);
}
/* Fan4 and pwm3 are only available if the client's I2C address
* is the default 0x2e. Otherwise the I/Os associated with
* these functions are used for addr enable/select. */
if (data->client.addr == 0x2e) {
data->has_fan |= (1 << 3);
data->has_pwm |= (1 << 2);
}
/* Determine which of the optional fan[5-6] and pwm[5-6]
* features are enabled. For this, we need to query the runtime
* registers through the Super-IO LPC interface. Try both
* config ports 0x2e and 0x4e. */
if (dme1737_i2c_get_features(0x2e, data) &&
dme1737_i2c_get_features(0x4e, data)) {
dev_warn(dev, "Failed to query Super-IO for optional "
"features.\n");
}
} else { /* ISA chip */
/* Fan3 and pwm3 are always available. Fan[4-5] and pwm[5-6]
* don't exist in the ISA chip. */
data->has_fan |= (1 << 2);
data->has_pwm |= (1 << 2);
}
/* Fan1, fan2, pwm1, and pwm2 are always present */
data->has_fan |= 0x03;
data->has_pwm |= 0x03;
dev_info(dev, "Optional features: pwm3=%s, pwm5=%s, pwm6=%s, "
"fan3=%s, fan4=%s, fan5=%s, fan6=%s.\n",
(data->has_pwm & (1 << 2)) ? "yes" : "no",
(data->has_pwm & (1 << 4)) ? "yes" : "no",
(data->has_pwm & (1 << 5)) ? "yes" : "no",
(data->has_fan & (1 << 2)) ? "yes" : "no",
(data->has_fan & (1 << 3)) ? "yes" : "no",
(data->has_fan & (1 << 4)) ? "yes" : "no",
(data->has_fan & (1 << 5)) ? "yes" : "no");
reg = dme1737_read(client, DME1737_REG_TACH_PWM);
/* Inform if fan-to-pwm mapping differs from the default */
if (client->driver && reg != 0xa4) { /* I2C chip */
dev_warn(dev, "Non-standard fan to pwm mapping: "
"fan1->pwm%d, fan2->pwm%d, fan3->pwm%d, "
"fan4->pwm%d. Please report to the driver "
"maintainer.\n",
(reg & 0x03) + 1, ((reg >> 2) & 0x03) + 1,
((reg >> 4) & 0x03) + 1, ((reg >> 6) & 0x03) + 1);
} else if (!client->driver && reg != 0x24) { /* ISA chip */
dev_warn(dev, "Non-standard fan to pwm mapping: "
"fan1->pwm%d, fan2->pwm%d, fan3->pwm%d. "
"Please report to the driver maintainer.\n",
(reg & 0x03) + 1, ((reg >> 2) & 0x03) + 1,
((reg >> 4) & 0x03) + 1);
}
/* Switch pwm[1-3] to manual mode if they are currently disabled and
* set the duty-cycles to 0% (which is identical to the PWMs being
* disabled). */
if (!(data->config & 0x02)) {
for (ix = 0; ix < 3; ix++) {
data->pwm_config[ix] = dme1737_read(client,
DME1737_REG_PWM_CONFIG(ix));
if ((data->has_pwm & (1 << ix)) &&
(PWM_EN_FROM_REG(data->pwm_config[ix]) == -1)) {
dev_info(dev, "Switching pwm%d to "
"manual mode.\n", ix + 1);
data->pwm_config[ix] = PWM_EN_TO_REG(1,
data->pwm_config[ix]);
dme1737_write(client, DME1737_REG_PWM(ix), 0);
dme1737_write(client,
DME1737_REG_PWM_CONFIG(ix),
data->pwm_config[ix]);
}
}
}
/* Initialize the default PWM auto channels zone (acz) assignments */
data->pwm_acz[0] = 1; /* pwm1 -> zone1 */
data->pwm_acz[1] = 2; /* pwm2 -> zone2 */
data->pwm_acz[2] = 4; /* pwm3 -> zone3 */
/* Set VRM */
data->vrm = vid_which_vrm();
return 0;
}
/* ---------------------------------------------------------------------
* I2C device detection and registration
* --------------------------------------------------------------------- */
static struct i2c_driver dme1737_i2c_driver;
static int dme1737_i2c_get_features(int sio_cip, struct dme1737_data *data)
{
int err = 0, reg;
u16 addr;
dme1737_sio_enter(sio_cip);
/* Check device ID
* The DME1737 can return either 0x78 or 0x77 as its device ID.
* The SCH5027 returns 0x89 as its device ID. */
reg = force_id ? force_id : dme1737_sio_inb(sio_cip, 0x20);
if (!(reg == 0x77 || reg == 0x78 || reg == 0x89)) {
err = -ENODEV;
goto exit;
}
/* Select logical device A (runtime registers) */
dme1737_sio_outb(sio_cip, 0x07, 0x0a);
/* Get the base address of the runtime registers */
if (!(addr = (dme1737_sio_inb(sio_cip, 0x60) << 8) |
dme1737_sio_inb(sio_cip, 0x61))) {
err = -ENODEV;
goto exit;
}
/* Read the runtime registers to determine which optional features
* are enabled and available. Bits [3:2] of registers 0x43-0x46 are set
* to '10' if the respective feature is enabled. */
if ((inb(addr + 0x43) & 0x0c) == 0x08) { /* fan6 */
data->has_fan |= (1 << 5);
}
if ((inb(addr + 0x44) & 0x0c) == 0x08) { /* pwm6 */
data->has_pwm |= (1 << 5);
}
if ((inb(addr + 0x45) & 0x0c) == 0x08) { /* fan5 */
data->has_fan |= (1 << 4);
}
if ((inb(addr + 0x46) & 0x0c) == 0x08) { /* pwm5 */
data->has_pwm |= (1 << 4);
}
exit:
dme1737_sio_exit(sio_cip);
return err;
}
static int dme1737_i2c_detect(struct i2c_adapter *adapter, int address,
int kind)
{
u8 company, verstep = 0;
struct i2c_client *client;
struct dme1737_data *data;
struct device *dev;
int err = 0;
const char *name;
if (!i2c_check_functionality(adapter, I2C_FUNC_SMBUS_BYTE_DATA)) {
goto exit;
}
if (!(data = kzalloc(sizeof(struct dme1737_data), GFP_KERNEL))) {
err = -ENOMEM;
goto exit;
}
client = &data->client;
i2c_set_clientdata(client, data);
client->addr = address;
client->adapter = adapter;
client->driver = &dme1737_i2c_driver;
dev = &client->dev;
/* A negative kind means that the driver was loaded with no force
* parameter (default), so we must identify the chip. */
if (kind < 0) {
company = dme1737_read(client, DME1737_REG_COMPANY);
verstep = dme1737_read(client, DME1737_REG_VERSTEP);
if (company == DME1737_COMPANY_SMSC &&
(verstep & DME1737_VERSTEP_MASK) == DME1737_VERSTEP) {
kind = dme1737;
} else if (company == DME1737_COMPANY_SMSC &&
verstep >= SCH5027_VERSTEP_MIN &&
verstep <= SCH5027_VERSTEP_MAX &&
/* Also check test register 0xba to prevent false
* positives for SMSC EMC6D103S chips. */
dme1737_read(client, 0xba) == 0x0f) {
kind = sch5027;
} else {
err = -ENODEV;
goto exit_kfree;
}
}
if (kind == sch5027) {
name = "sch5027";
} else {
name = "dme1737";
}
data->type = kind;
/* Fill in the remaining client fields and put it into the global
* list */
strlcpy(client->name, name, I2C_NAME_SIZE);
mutex_init(&data->update_lock);
/* Tell the I2C layer a new client has arrived */
if ((err = i2c_attach_client(client))) {
goto exit_kfree;
}
dev_info(dev, "Found a %s chip at 0x%02x (rev 0x%02x).\n",
kind == sch5027 ? "SCH5027" : "DME1737", client->addr,
verstep);
/* Initialize the DME1737 chip */
if ((err = dme1737_init_device(dev))) {
dev_err(dev, "Failed to initialize device.\n");
goto exit_detach;
}
/* Create sysfs files */
if ((err = dme1737_create_files(dev))) {
dev_err(dev, "Failed to create sysfs files.\n");
goto exit_detach;
}
/* Register device */
data->hwmon_dev = hwmon_device_register(dev);
if (IS_ERR(data->hwmon_dev)) {
dev_err(dev, "Failed to register device.\n");
err = PTR_ERR(data->hwmon_dev);
goto exit_remove;
}
return 0;
exit_remove:
dme1737_remove_files(dev);
exit_detach:
i2c_detach_client(client);
exit_kfree:
kfree(data);
exit:
return err;
}
static int dme1737_i2c_attach_adapter(struct i2c_adapter *adapter)
{
if (!(adapter->class & I2C_CLASS_HWMON)) {
return 0;
}
return i2c_probe(adapter, &addr_data, dme1737_i2c_detect);
}
static int dme1737_i2c_detach_client(struct i2c_client *client)
{
struct dme1737_data *data = i2c_get_clientdata(client);
int err;
hwmon_device_unregister(data->hwmon_dev);
dme1737_remove_files(&client->dev);
if ((err = i2c_detach_client(client))) {
return err;
}
kfree(data);
return 0;
}
static struct i2c_driver dme1737_i2c_driver = {
.driver = {
.name = "dme1737",
},
.attach_adapter = dme1737_i2c_attach_adapter,
.detach_client = dme1737_i2c_detach_client,
};
/* ---------------------------------------------------------------------
* ISA device detection and registration
* --------------------------------------------------------------------- */
static int __init dme1737_isa_detect(int sio_cip, unsigned short *addr)
{
int err = 0, reg;
unsigned short base_addr;
dme1737_sio_enter(sio_cip);
/* Check device ID
* We currently know about SCH3112 (0x7c), SCH3114 (0x7d), and
* SCH3116 (0x7f). */
reg = force_id ? force_id : dme1737_sio_inb(sio_cip, 0x20);
if (!(reg == 0x7c || reg == 0x7d || reg == 0x7f)) {
err = -ENODEV;
goto exit;
}
/* Select logical device A (runtime registers) */
dme1737_sio_outb(sio_cip, 0x07, 0x0a);
/* Get the base address of the runtime registers */
if (!(base_addr = (dme1737_sio_inb(sio_cip, 0x60) << 8) |
dme1737_sio_inb(sio_cip, 0x61))) {
printk(KERN_ERR "dme1737: Base address not set.\n");
err = -ENODEV;
goto exit;
}
/* Access to the hwmon registers is through an index/data register
* pair located at offset 0x70/0x71. */
*addr = base_addr + 0x70;
exit:
dme1737_sio_exit(sio_cip);
return err;
}
static int __init dme1737_isa_device_add(unsigned short addr)
{
struct resource res = {
.start = addr,
.end = addr + DME1737_EXTENT - 1,
.name = "dme1737",
.flags = IORESOURCE_IO,
};
int err;
if (!(pdev = platform_device_alloc("dme1737", addr))) {
printk(KERN_ERR "dme1737: Failed to allocate device.\n");
err = -ENOMEM;
goto exit;
}
if ((err = platform_device_add_resources(pdev, &res, 1))) {
printk(KERN_ERR "dme1737: Failed to add device resource "
"(err = %d).\n", err);
goto exit_device_put;
}
if ((err = platform_device_add(pdev))) {
printk(KERN_ERR "dme1737: Failed to add device (err = %d).\n",
err);
goto exit_device_put;
}
return 0;
exit_device_put:
platform_device_put(pdev);
pdev = NULL;
exit:
return err;
}
static int __devinit dme1737_isa_probe(struct platform_device *pdev)
{
u8 company, device;
struct resource *res;
struct i2c_client *client;
struct dme1737_data *data;
struct device *dev = &pdev->dev;
int err;
res = platform_get_resource(pdev, IORESOURCE_IO, 0);
if (!request_region(res->start, DME1737_EXTENT, "dme1737")) {
dev_err(dev, "Failed to request region 0x%04x-0x%04x.\n",
(unsigned short)res->start,
(unsigned short)res->start + DME1737_EXTENT - 1);
err = -EBUSY;
goto exit;
}
if (!(data = kzalloc(sizeof(struct dme1737_data), GFP_KERNEL))) {
err = -ENOMEM;
goto exit_release_region;
}
client = &data->client;
i2c_set_clientdata(client, data);
client->addr = res->start;
platform_set_drvdata(pdev, data);
company = dme1737_read(client, DME1737_REG_COMPANY);
device = dme1737_read(client, DME1737_REG_DEVICE);
if (!((company == DME1737_COMPANY_SMSC) &&
(device == SCH311X_DEVICE))) {
err = -ENODEV;
goto exit_kfree;
}
data->type = sch311x;
/* Fill in the remaining client fields and initialize the mutex */
strlcpy(client->name, "sch311x", I2C_NAME_SIZE);
mutex_init(&data->update_lock);
dev_info(dev, "Found a SCH311x chip at 0x%04x\n", client->addr);
/* Initialize the chip */
if ((err = dme1737_init_device(dev))) {
dev_err(dev, "Failed to initialize device.\n");
goto exit_kfree;
}
/* Create sysfs files */
if ((err = dme1737_create_files(dev))) {
dev_err(dev, "Failed to create sysfs files.\n");
goto exit_kfree;
}
/* Register device */
data->hwmon_dev = hwmon_device_register(dev);
if (IS_ERR(data->hwmon_dev)) {
dev_err(dev, "Failed to register device.\n");
err = PTR_ERR(data->hwmon_dev);
goto exit_remove_files;
}
return 0;
exit_remove_files:
dme1737_remove_files(dev);
exit_kfree:
platform_set_drvdata(pdev, NULL);
kfree(data);
exit_release_region:
release_region(res->start, DME1737_EXTENT);
exit:
return err;
}
static int __devexit dme1737_isa_remove(struct platform_device *pdev)
{
struct dme1737_data *data = platform_get_drvdata(pdev);
hwmon_device_unregister(data->hwmon_dev);
dme1737_remove_files(&pdev->dev);
release_region(data->client.addr, DME1737_EXTENT);
platform_set_drvdata(pdev, NULL);
kfree(data);
return 0;
}
static struct platform_driver dme1737_isa_driver = {
.driver = {
.owner = THIS_MODULE,
.name = "dme1737",
},
.probe = dme1737_isa_probe,
.remove = __devexit_p(dme1737_isa_remove),
};
/* ---------------------------------------------------------------------
* Module initialization and cleanup
* --------------------------------------------------------------------- */
static int __init dme1737_init(void)
{
int err;
unsigned short addr;
if ((err = i2c_add_driver(&dme1737_i2c_driver))) {
goto exit;
}
if (dme1737_isa_detect(0x2e, &addr) &&
dme1737_isa_detect(0x4e, &addr)) {
/* Return 0 if we didn't find an ISA device */
return 0;
}
if ((err = platform_driver_register(&dme1737_isa_driver))) {
goto exit_del_i2c_driver;
}
/* Sets global pdev as a side effect */
if ((err = dme1737_isa_device_add(addr))) {
goto exit_del_isa_driver;
}
return 0;
exit_del_isa_driver:
platform_driver_unregister(&dme1737_isa_driver);
exit_del_i2c_driver:
i2c_del_driver(&dme1737_i2c_driver);
exit:
return err;
}
static void __exit dme1737_exit(void)
{
if (pdev) {
platform_device_unregister(pdev);
platform_driver_unregister(&dme1737_isa_driver);
}
i2c_del_driver(&dme1737_i2c_driver);
}
MODULE_AUTHOR("Juerg Haefliger <juergh@gmail.com>");
MODULE_DESCRIPTION("DME1737 sensors");
MODULE_LICENSE("GPL");
module_init(dme1737_init);
module_exit(dme1737_exit);
[-- Attachment #3: Type: text/plain, Size: 153 bytes --]
_______________________________________________
lm-sensors mailing list
lm-sensors@lm-sensors.org
http://lists.lm-sensors.org/mailman/listinfo/lm-sensors
^ permalink raw reply [flat|nested] 23+ messages in thread