Changeset 5154
- Timestamp:
- 03/22/08 09:46:24 (8 months ago)
- Files:
-
- i2c-tools/trunk/eeprom/decode-dimms.pl (modified) (4 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
i2c-tools/trunk/eeprom/decode-dimms.pl
r5153 r5154 332 332 } 333 333 334 sub cas_latencies(@) 335 { 336 return "None" unless @_; 337 return join ', ', map("${_}T", sort { $b <=> $a } @_); 338 } 339 334 340 sub printl ($$) # print a line w/ label and value 335 341 { … … 552 558 553 559 $l = "Supported CAS Latencies"; 554 if (@cas) { $temp = join ', ', @cas; } 555 else { $temp = "None"; } 556 printl $l, $temp; 560 printl $l, cas_latencies(@cas); 557 561 558 562 $l = "Supported CS Latencies"; … … 761 765 762 766 # latencies 763 if (keys %cas) { $temp = join ', ', sort { $b <=> $a } keys %cas; } 764 else { $temp = "None"; } 765 printl "Supported CAS Latencies", $temp; 767 printl "Supported CAS Latencies", cas_latencies(keys %cas); 766 768 767 769 my @array; … … 966 968 967 969 # latencies 968 if (keys %cas) { $temp = join ', ', map("${_}T", sort { $b <=> $a } keys %cas); } 969 else { $temp = "None"; } 970 printl "Supported CAS Latencies (tCL)", $temp; 970 printl "Supported CAS Latencies (tCL)", cas_latencies(keys %cas); 971 971 972 972 # timings
