[Pkg] The Trunk: System-cmm.492.mcz

[commits at source.squeak.org]

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 ].'!