Changeset 3305 for lm-sensors/trunk/prog/eeprom/decode-dimms.pl

Timestamp:

05/26/06 10:39:20 (7 years ago)

Author:

khali

Message:

Fix latencies decoding (SDRAM).
Fix CAS latency decoding (DDR SDRAM).
Decode latencies, timings and module height (DDR SDRAM).

Files:

• lm-sensors/trunk/prog/eeprom/decode-dimms.pl (modified) (8 diffs)

lm-sensors/trunk/prog/eeprom/decode-dimms.pl

@@ -61 +61 @@
 #  check that the manufacturing date is proper BCD, else fall back to
 #  hexadecimal display
+# Version 1.4  2006-05-26  Jean Delvare <khali@linux-fr.org>
+#  fix latencies decoding (SDRAM)
+#  fix CAS latency decoding (DDR SDRAM)
+#  decode latencies, timings and module height (DDR SDRAM)
 #
 #
@@ -436 +440 @@
 
         my @cas;
-        for ($ii = 0; $ii < 6; $ii++) {
+        for ($ii = 0; $ii < 7; $ii++) {
                 push(@cas, $ii + 1) if ($bytes->[18] & (1 << $ii));
         }
@@ -555 +559 @@
         $l = "Supported CS Latencies";
         @array = ();
-        for ($ii = 0; $ii < 6; $ii++) {
+        for ($ii = 0; $ii < 7; $ii++) {
                 push(@array, $ii) if ($bytes->[19] & (1 << $ii));
         }
@@ -564 +568 @@
         $l = "Supported WE Latencies";
         @array = ();
-        for ($ii = 0; $ii < 6; $ii++) {
+        for ($ii = 0; $ii < 7; $ii++) {
                 push(@array, $ii) if ($bytes->[20] & (1 << $ii));
         }
@@ -709 +713 @@
 #size computation
 
-        my $a = $bytes->[3];
-        my $b = $bytes->[4];
-        my $c = $bytes->[5];
-        my $d = $bytes->[17];
         my $k=0;
         my $ii=0;
         
-        $ii = (($a) & 0x0f) + (( $b) & 0x0f) - 17;
-        if (( $c <= 8) && ( $d <= 8)) {
-                 $k = ( $c) * ( $d);
+        $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17;
+        if (($bytes->[5] <= 8) && ($bytes->[17] <= 8)) {
+                 $k = $bytes->[5] * $bytes->[17];
         }
         
@@ -724 +724 @@
                 printl "Size", ((1 << $ii) * $k) . " MB"; }
         else { 
-                printl "INVALID SIZE", $a . "," . $b . "," . $c . "," . $d;
+                printl "INVALID SIZE", $bytes->[3] . ", " . $bytes->[4] . ", " .
+                                       $bytes->[5] . ", " . $bytes->[17];
         }
 
         my $highestCAS = 0;
+        my %cas;
+        for ($ii = 0; $ii < 7; $ii++) {
+                if ($bytes->[18] & (1 << $ii)) {
+                        $highestCAS = 1+$ii*0.5;
+                        $cas{$highestCAS}++;
+                }
+        }
+
         my $trcd;
         my $trp;
@@ -733 +742 @@
         my $ctime = ($bytes->[9] >> 4) + ($bytes->[9] & 0xf) * 0.1;
 
-        if ($bytes->[18] & 1) { $highestCAS = 1; }
-        if ($bytes->[18] & 2) { $highestCAS = 1.5; }
-        if ($bytes->[18] & 4) { $highestCAS = 2; }
-        if ($bytes->[18] & 8) { $highestCAS = 2.5; }
-        if ($bytes->[18] & 16) { $highestCAS = 3.5; }
-        if ($bytes->[18] & 32) { $highestCAS = 4; }
-        if ($bytes->[18] & 64) { $highestCAS = 4.5; }
-        if ($bytes->[18] & 128) { $highestCAS = 5; }
-        
         $trcd =($bytes->[29] >> 2)+(($bytes->[29] & 3)*0.25);
         $trp =($bytes->[27] >> 2)+(($bytes->[27] & 3)*0.25);
@@ -751 +751 @@
                 ceil($trp/$ctime) . "-" .
                 ceil($tras/$ctime);
+
+# latencies
+        if (keys %cas) { $temp = join ', ', sort { $b <=> $a } keys %cas; }
+        else { $temp = "None"; }
+        printl "Supported CAS Latencies", $temp;
+
+        my @array;
+        for ($ii = 0; $ii < 7; $ii++) {
+                push(@array, $ii) if ($bytes->[19] & (1 << $ii));
+        }
+        if (@array) { $temp = join ', ', @array; }
+        else { $temp = "None"; }
+        printl "Supported CS Latencies", $temp;
+
+        @array = ();
+        for ($ii = 0; $ii < 7; $ii++) {
+                push(@array, $ii) if ($bytes->[20] & (1 << $ii));
+        }
+        if (@array) { $temp = join ', ', @array; }
+        else { $temp = "None"; }
+        printl "Supported WE Latencies", $temp;
+
+# timings
+        if (exists $cas{$highestCAS}) {
+                printl "Minimum Cycle Time (CAS $highestCAS)",
+                       "$ctime ns";
+
+                printl "Maximum Access Time (CAS $highestCAS)",
+                       (($bytes->[10] >> 4) * 0.1 + ($bytes->[10] & 0xf) * 0.01) . " ns";
+        }
+
+        if (exists $cas{$highestCAS-0.5} && spd_written(@$bytes[23..24])) {
+                printl "Minimum Cycle Time (CAS ".($highestCAS-0.5).")",
+                       (($bytes->[23] >> 4) + ($bytes->[23] & 0xf) * 0.1) . " ns";
+
+                printl "Maximum Access Time (CAS ".($highestCAS-0.5).")",
+                       (($bytes->[24] >> 4) * 0.1 + ($bytes->[24] & 0xf) * 0.01) . " ns";
+        }
+
+        if (exists $cas{$highestCAS-1} && spd_written(@$bytes[25..26])) {
+                printl "Minimum Cycle Time (CAS ".($highestCAS-1).")",
+                       (($bytes->[25] >> 4) + ($bytes->[25] & 0xf) * 0.1) . " ns";
+
+                printl "Maximum Access Time (CAS ".($highestCAS-1).")",
+                       (($bytes->[26] >> 4) * 0.1 + ($bytes->[26] & 0xf) * 0.01) . " ns";
+        }
+
+# module attributes
+        if ($bytes->[47] & 0x03) {
+                if (($bytes->[47] & 0x03) == 0x01) { $temp = "1.125\" to 1.25\""; }
+                elsif (($bytes->[47] & 0x03) == 0x02) { $temp = "1.7\""; }
+                elsif (($bytes->[47] & 0x03) == 0x03) { $temp = "Other"; }
+                printl "Module Height", $temp;
+        }
 }