[Pkg] The Trunk: Monticello-cmm.557.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Aug 14 18:37:41 UTC 2013


Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.557.mcz

==================== Summary ====================

Name: Monticello-cmm.557
Author: cmm
Time: 14 August 2013, 1:29:42.337 pm
UUID: 9ac7148c-7115-492a-9f0c-dbb9ad967804
Ancestors: Monticello-cmm.556

Update flushAllCaches to report savings from stubbing of WorkingCopy ancestry.

=============== Diff against Monticello-cmm.556 ===============

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>flushAllCaches (in category 'actions') -----
  flushAllCaches
+ 	| beforeBytes afterBytes beforeVersions afterVersions beforeInfos afterInfos |
+ 	Cursor wait showWhile: 
+ 		[ beforeBytes := Smalltalk garbageCollect.
- 	| beforeBytes afterBytes beforeVersions afterVersions |
- 	Cursor wait showWhile: [
- 		beforeBytes := Smalltalk garbageCollect.
  		beforeVersions := MCVersion allSubInstances size.
+ 		beforeInfos := MCVersionInfo instanceCount.
  		MCFileBasedRepository flushAllCaches.
  		MCWorkingCopy stubAllAncestry.
  		afterBytes := Smalltalk garbageCollect.
  		afterVersions := MCVersion allSubInstances size.
+ 		afterInfos := MCVersionInfo instanceCount ].
+ 	self inform: 
+ 		(beforeVersions-afterVersions) asString, ' versions flushed',
+ 		String cr, (beforeInfos-afterInfos), ' infos flushed',
+ 	 	String cr, (afterBytes-beforeBytes) asBytesDescription, ' reclaimed'!
- 	].
- 	^self inform: (beforeVersions - afterVersions) asString, ' versions flushed', String cr,
-  		(afterBytes - beforeBytes) asStringWithCommas, ' bytes reclaimed'!



More information about the Packages mailing list