From a4b4c94370372df3ff8339e1688b26e127c6b930 Mon Sep 17 00:00:00 2001 From: Jean Delvare Date: Fri, 10 Mar 2006 09:27:28 +0000 Subject: [PATCH] Prevent warning on 64-bit PCI addresses. This is done by not gathering PCI data we have no need for. git-svn-id: http://lm-sensors.org/svn/lm-sensors/trunk@3267 7894878c-1315-0410-8ee3-d5d059ff63e0 --- prog/detect/sensors-detect | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/prog/detect/sensors-detect b/prog/detect/sensors-detect index 281d72c7..6dbc6fd6 100755 --- a/prog/detect/sensors-detect +++ b/prog/detect/sensors-detect @@ -2108,10 +2108,9 @@ sub initialize_modules_list use vars qw(%pci_list); -# This function returns a hash of hashes. Each hash has some PCI information -# (more than we will ever need, probably). The most important -# fields are 'bus', 'slot', 'func' (they uniquely identify a PCI device in -# a computer) and 'vendid','devid' (they uniquely identify a type of device). +# This function returns a hash 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. sub read_proc_dev_pci { my ($dfn,$vend,%pci_list); @@ -2119,10 +2118,7 @@ sub read_proc_dev_pci local $_; while () { my %record; - ($dfn,$vend,$record{irq},$record{base_addr0},$record{base_addr1}, - $record{base_addr2},$record{base_addr3},$record{base_addr4}, - $record{base_addr5},$record{rom_base_addr}) = - map { oct "0x$_" } (split) [0..9]; + ($dfn, $vend) = map { hex } (split) [0..1]; $record{bus} = $dfn >> 8; $record{slot} = ($dfn & 0xf8) >> 3; $record{func} = $dfn & 0x07;