[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