[squeak-dev] The Trunk: System-eem.1244.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Oct 18 04:01:45 UTC 2021
Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.1244.mcz
==================== Summary ====================
Name: System-eem.1244
Author: eem
Time: 17 October 2021, 9:01:41.697469 pm
UUID: f8db54c3-2831-41f1-9335-e157b5a877a3
Ancestors: System-eem.1243
Give a more informative space left message which includes the amount of memory in use.
=============== Diff against System-eem.1243 ===============
Item was added:
+ ----- Method: SmalltalkImage>>bytesUsedString (in category 'memory space') -----
+ bytesUsedString
+ "Answer a string describing the amount of memory in use."
+ "Smalltalk bytesUsedString"
+ | totalUsed |
+ totalUsed := (self vmParameterAt: 2 "used eden + used past space")
+ + ((self vmParameterAt: 1 "old space size") - (self vmParameterAt: 54 "free old space")).
+ ^totalUsed asStringWithCommas, ' bytes in use'!
Item was changed:
----- Method: Utilities class>>garbageCollectAndReport (in category 'miscellaneous') -----
garbageCollectAndReport
"Do a garbage collection, and report results to the user."
| reportString |
reportString := String streamContents:
[:aStream |
aStream
nextPutAll: 'The following amounts of memory are still available:' translated;
+ crtab.
+ aStream nextPutAll: (Smalltalk bytesLeftString copyReplaceAll: (String with: Character cr) with: (String with: Character cr with: Character tab)).
+ aStream skip: -1; nextPutAll: Smalltalk bytesUsedString.
- cr.
- aStream nextPutAll: Smalltalk bytesLeftString.
Smalltalk at: #Command ifPresent:
[:cmdClass | | cc |
(cc := cmdClass instanceCount) > 0 ifTrue:
[aStream
+ cr; cr;
- cr;
nextPutAll: '(note: there are ';
print: cc;
nextPutAll: ' undo record(s) present in your';
cr;
nextPutAll: 'system; purging them may free up more space.)']]].
self inform: reportString
!
More information about the Squeak-dev
mailing list
|