The Trunk: System-cmm.492.mcz

Chris Muller uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cmm.492.mcz

==================== Summary ====================

Name: System-cmm.492
Author: cmm
Time: 28 July 2012, 11:26:22.065 am
UUID: dac56f2b-83e8-4ac2-a129-95446e02ee50
Ancestors: System-eem.491

- Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method.
- Stop using a deprecated method.

=============== Diff against System-eem.491 ===============

Item was changed:
  ----- Method: MessageTally>>reportGCStatsOn: (in category 'reporting') -----
  reportGCStatsOn: str
  | oldSpaceEnd youngSpaceEnd memoryEnd fullGCs fullGCTime incrGCs incrGCTime tenureCount upTime rootOverflows |
  upTime := time.
  oldSpaceEnd := gcStats at: 1.
  youngSpaceEnd := gcStats at: 2.
  memoryEnd := gcStats at: 3.
  fullGCs := gcStats at: 7.
  fullGCTime := gcStats at: 8.
  incrGCs := gcStats at: 9.
  incrGCTime := gcStats at: 10.
  tenureCount := gcStats at: 11.
  rootOverflows := gcStats at: 22.
 
  str cr.
  str nextPutAll: '**Memory**'; cr.
  str nextPutAll: ' old ';
+ nextPutAll: (oldSpaceEnd asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr.
- nextPutAll: oldSpaceEnd asStringWithCommasSigned; nextPutAll: ' bytes'; cr.
  str nextPutAll: ' young ';
+ nextPutAll: ((youngSpaceEnd - oldSpaceEnd) asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr.
- nextPutAll: (youngSpaceEnd - oldSpaceEnd) asStringWithCommasSigned; nextPutAll: ' bytes'; cr.
  str nextPutAll: ' used ';
+ nextPutAll: (youngSpaceEnd asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr.
- nextPutAll: youngSpaceEnd asStringWithCommasSigned; nextPutAll: ' bytes'; cr.
  str nextPutAll: ' free ';
+ nextPutAll: ((memoryEnd - youngSpaceEnd) asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr.
- nextPutAll: (memoryEnd - youngSpaceEnd) asStringWithCommasSigned; nextPutAll: ' bytes'; cr.
 
  str cr.
  str nextPutAll: '**GCs**'; cr.
  str nextPutAll: ' full ';
  print: fullGCs; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms (';
  print: (fullGCTime / upTime * 100) maxDecimalPlaces: 2;
  nextPutAll: '% uptime)'.
  fullGCs = 0 ifFalse:
  [str nextPutAll: ', avg '; print: (fullGCTime / fullGCs) maxDecimalPlaces: 1; nextPutAll: ' ms'].
  str cr.
  str nextPutAll: ' incr ';
  print: incrGCs; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms (';
  print: (incrGCTime / upTime * 100) maxDecimalPlaces: 1;
  nextPutAll: '% uptime)'.
  incrGCs = 0 ifFalse:
  [str nextPutAll: ', avg '; print: (incrGCTime / incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms'].
  str cr.
  str nextPutAll: ' tenures ';
  nextPutAll: tenureCount asStringWithCommas.
  tenureCount = 0 ifFalse:
  [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)'].
  str cr.
  str nextPutAll: ' root table ';
  nextPutAll: rootOverflows asStringWithCommas; nextPutAll: ' overflows'.
  str cr.
  !

Item was changed:
+ (PackageInfo named: 'System') postscript: '"Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method."
+ InternalTranslator resetCaches.
+ "Remove obsolete preferences."
- (PackageInfo named: 'System') postscript: '"Remove obsolete preferences."
  #(allowUnderscoreAssignment allowBlockArgumentAssignment soundsEnabled soundQuickStart soundStopWhenDone canRecordWhilePlaying)
  do: [ :each | Preferences removePreference: each ].'!