[Pkg] The Trunk: System-cmm.492.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jul 28 16:29:19 UTC 2012
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 ].'!
More information about the Packages
mailing list