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 !