Changeset 5156
- Timestamp:
- 03/22/08 09:59:02 (8 months ago)
- Files:
-
- i2c-tools/trunk/eeprom/decode-dimms.pl (modified) (12 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
i2c-tools/trunk/eeprom/decode-dimms.pl
r5155 r5156 431 431 prints "Memory Characteristics"; 432 432 433 my $k =0;434 my $ii =0;433 my $k = 0; 434 my $ii = 0; 435 435 436 436 $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17; … … 456 456 my $ctime = ($bytes->[9] >> 4) + ($bytes->[9] & 0xf) * 0.1; 457 457 458 $trcd = $bytes->[29];459 $trp = $bytes->[27];;460 $tras = $bytes->[30];458 $trcd = $bytes->[29]; 459 $trp = $bytes->[27];; 460 $tras = $bytes->[30]; 461 461 462 462 printl "tCL-tRCD-tRP-tRAS", … … 592 592 if ($temp == 0) { printl $l, "Undefined!"; } 593 593 else { 594 if ($temp < 4 ) { $temp =$temp +15; }594 if ($temp < 4 ) { $temp += 15; } 595 595 printl $l, $temp + (($bytes->[23] & 0xf) * 0.1) . " ns"; 596 596 } … … 600 600 if ($temp == 0) { printl $l, "Undefined!"; } 601 601 else { 602 if ($temp < 4 ) { $temp =$temp +15; }602 if ($temp < 4 ) { $temp += 15; } 603 603 printl $l, $temp + (($bytes->[24] & 0xf) * 0.1) . " ns"; 604 604 } … … 725 725 726 726 #size computation 727 my $k =0;728 my $ii =0;727 my $k = 0; 728 my $ii = 0; 729 729 730 730 $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17; … … 754 754 my $ctime = ($bytes->[9] >> 4) + ($bytes->[9] & 0xf) * 0.1; 755 755 756 $trcd = ($bytes->[29] >> 2)+(($bytes->[29] & 3)*0.25);757 $trp = ($bytes->[27] >> 2)+(($bytes->[27] & 3)*0.25);756 $trcd = ($bytes->[29] >> 2) + (($bytes->[29] & 3) * 0.25); 757 $trp = ($bytes->[27] >> 2) + (($bytes->[27] & 3) * 0.25); 758 758 $tras = $bytes->[30]; 759 759 … … 905 905 906 906 #size computation 907 my $k =0;908 my $ii =0;907 my $k = 0; 908 my $ii = 0; 909 909 910 910 $ii = ($bytes->[3] & 0x0f) + ($bytes->[4] & 0x0f) - 17; … … 957 957 my $tras; 958 958 959 $trcd = ($bytes->[29] >> 2)+(($bytes->[29] & 3)*0.25);960 $trp = ($bytes->[27] >> 2)+(($bytes->[27] & 3)*0.25);961 $tras = $bytes->[30];959 $trcd = ($bytes->[29] >> 2) + (($bytes->[29] & 3) * 0.25); 960 $trp = ($bytes->[27] >> 2) + (($bytes->[27] & 3) * 0.25); 961 $tras = $bytes->[30]; 962 962 963 963 printl "tCL-tRCD-tRP-tRAS", … … 1086 1086 1087 1087 $l = "Details for 100MHz Support"; 1088 $temp ="";1088 $temp = ""; 1089 1089 if ($bytes->[63] & 1) { $temp .= "Intel Concurrent Auto-precharge\n"; } 1090 1090 if ($bytes->[63] & 2) { $temp .= "CAS Latency = 2\n"; } … … 1155 1155 1156 1156 1157 my $dimm_count =0;1157 my $dimm_count = 0; 1158 1158 my @dimm_list; 1159 1159 my $dir; … … 1168 1168 1169 1169 for my $i ( 0 .. $#dimm_list ) { 1170 $_ =$dimm_list[$i];1170 $_ = $dimm_list[$i]; 1171 1171 if (($use_sysfs && /^\d+-\d+$/) 1172 1172 || (!$use_sysfs && /^eeprom-/)) { … … 1187 1187 if (($use_sysfs && /^[^-]+-([^-]+)$/) 1188 1188 || (!$use_sysfs && /^[^-]+-[^-]+-[^-]+-([^-]+)$/)) { 1189 my $dimm_num =$1 - 49;1189 my $dimm_num = $1 - 49; 1190 1190 printl "Guessing DIMM is in", "bank $dimm_num"; 1191 1191 }
