[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:

==================== 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') -----
  	"Do a garbage collection, and report results to the user."
  	| reportString |
  	reportString := String streamContents:
  		[: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:
+ 						cr; cr;
- 						cr; 
  						nextPutAll: '(note: there are ';
  						print: cc;
  						nextPutAll: ' undo record(s) present in your';
  						nextPutAll: 'system; purging them may free up more space.)']]].
  	self inform: reportString

More information about the Squeak-dev mailing list