Squeak-dev August 2013

squeak-dev@lists.squeakfoundation.org

45 participants
157 discussions

Re: [squeak-dev] The Trunk: Monticello-cmm.560.mcz
by Chris Muller 15 Aug '13

15 Aug '13

I hope I got it right. Someone please check me. The test passes. If there are any other issues, I'm sure we can address it. On Thu, Aug 15, 2013 at 4:07 PM, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of Monticello to project The Trunk: > http://source.squeak.org/trunk/Monticello-cmm.560.mcz > > ==================== Summary ==================== > > Name: Monticello-cmm.560 > Author: cmm > Time: 15 August 2013, 4:06:17.456 pm > UUID: 10b8124c-656a-43a2-8e7f-d5367bba04f1 > Ancestors: Monticello-cmm.559 > > - The ancestry can be restored from the MCVersion's Info that's loaded in the image, it isn't necessary to restore it from an older file. This means not finding a version to recover ancestry is much less likely to happen. > - If it does happen, the user is now given a chance to copy the file back to where it was loaded from and simply Proceed, rather than requiring them to close the debugger and "try again". > - Stub the stepChildren too. > > =============== Diff against Monticello-cmm.559 =============== > > Item was added: > + ----- Method: MCAncestry>>stubAncestryFor:using: (in category 'initialize-release') ----- > + stubAncestryFor: childInfo using: aMCRepository > + "childInfo was retrieved from aMCRepository. Replace my ancestry with a Proxy that can retrieve the full tree from these two elements." > + ancestors := ancestors collect: > + [ : each | MCInfoProxy > + info: each copyWithTrimmedAncestry > + child: childInfo > + repository: aMCRepository ]. > + stepChildren := stepChildren collect: > + [ : each | MCInfoProxy > + info: each copyWithTrimmedAncestry > + child: childInfo > + repository: aMCRepository ].! > > Item was removed: > - ----- Method: MCAncestry>>stubAncestryUsing: (in category 'initialize-release') ----- > - stubAncestryUsing: aMCRepository > - ancestors := ancestors collect: > - [ : each | MCInfoProxy > - info: each copyWithTrimmedAncestry > - repository: aMCRepository ]! > > Item was changed: > ProtoObject subclass: #MCInfoProxy > + instanceVariableNames: 'info repository childInfo' > - instanceVariableNames: 'info repository' > classVariableNames: '' > poolDictionaries: '' > category: 'Monticello-Repositories'! > > !MCInfoProxy commentStamp: 'cmm 8/12/2013 21:51' prior: 0! > A MCInfoProxy takes the place of a MCVersionInfo with a large tree of ancestors that consume memory in the image, but are almost never accessed. If they are, however, I will dynamically retrieve and become the Info from the original MC repository which includes the full ancestry tree.! > > Item was added: > + ----- Method: MCInfoProxy class>>info:child:repository: (in category 'create') ----- > + info: aMCVersionInfo child: childInfo repository: aMCRepository > + ^ self new > + > + setInfo: aMCVersionInfo > + childInfo: childInfo > + repository: aMCRepository! > > Item was changed: > ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- > materializeInfo > + | persistentVersion | > + [ (persistentVersion := repository versionWithInfo: childInfo) isNil ] whileTrue: [ Warning signal: 'Please copy ' , childInfo name , 'with id ' , childInfo id asString , ' back to ' , repository asString , ' and try again.' ]. > + persistentVersion info allAncestorsDo: > + [ : each | each = info ifTrue: [ ^ each ] ]. > + nil error: 'Expected ' , info asString , ' to be an ancestor of ' , childInfo asString! > - ^ (repository versionWithInfo: info) > - ifNil: > - [ (MCRepositoryGroup default versionWithInfo: info) > - ifNil: [ nil error: 'Please copy ' , info name , 'with id ' , info id asString , ' to ' , repository asString , ' and try again.' ] > - ifNotNil: > - [ : foundVersion | repository storeVersion: foundVersion. > - foundVersion info ] ] > - ifNotNil: > - [ : version | version info ]! > > Item was added: > + ----- Method: MCInfoProxy>>setInfo:childInfo:repository: (in category 'initialize-release') ----- > + setInfo: aMCVersionInfo childInfo: childMCVersionInfo repository: aMCRepository > + info := aMCVersionInfo. > + childInfo := childMCVersionInfo. > + repository := aMCRepository! > > Item was removed: > - ----- Method: MCInfoProxy>>setInfo:repository: (in category 'initialize-release') ----- > - setInfo: aMCVersionInfo repository: aMCRepository > - info := aMCVersionInfo. > - repository := aMCRepository! > > Item was changed: > ----- Method: MCWorkingCopy>>stubAncestry (in category 'operations') ----- > stubAncestry > "Stub all but the most recent 10 of my ancestry tree to save memory with a proxy which can be transparently accessed later, if necessary." > + self ancestors ifEmpty: [ ^ self ]. > repositoryGroup ifNotNil: > [ | tenAgo count | > count := 0. > ancestry ancestorsDoWhileTrue: > [ : each | tenAgo := each. > (count := count + 1) < 10 ]. > + tenAgo > + stubAncestryFor: self ancestors anyOne > + using: repositoryGroup ]! > - tenAgo stubAncestryUsing: repositoryGroup ]! > >

1 0

The Trunk: Monticello-cmm.560.mcz
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.560.mcz ==================== Summary ==================== Name: Monticello-cmm.560 Author: cmm Time: 15 August 2013, 4:06:17.456 pm UUID: 10b8124c-656a-43a2-8e7f-d5367bba04f1 Ancestors: Monticello-cmm.559 - The ancestry can be restored from the MCVersion's Info that's loaded in the image, it isn't necessary to restore it from an older file. This means not finding a version to recover ancestry is much less likely to happen. - If it does happen, the user is now given a chance to copy the file back to where it was loaded from and simply Proceed, rather than requiring them to close the debugger and "try again". - Stub the stepChildren too. =============== Diff against Monticello-cmm.559 =============== Item was added: + ----- Method: MCAncestry>>stubAncestryFor:using: (in category 'initialize-release') ----- + stubAncestryFor: childInfo using: aMCRepository + "childInfo was retrieved from aMCRepository. Replace my ancestry with a Proxy that can retrieve the full tree from these two elements." + ancestors := ancestors collect: + [ : each | MCInfoProxy + info: each copyWithTrimmedAncestry + child: childInfo + repository: aMCRepository ]. + stepChildren := stepChildren collect: + [ : each | MCInfoProxy + info: each copyWithTrimmedAncestry + child: childInfo + repository: aMCRepository ].! Item was removed: - ----- Method: MCAncestry>>stubAncestryUsing: (in category 'initialize-release') ----- - stubAncestryUsing: aMCRepository - ancestors := ancestors collect: - [ : each | MCInfoProxy - info: each copyWithTrimmedAncestry - repository: aMCRepository ]! Item was changed: ProtoObject subclass: #MCInfoProxy + instanceVariableNames: 'info repository childInfo' - instanceVariableNames: 'info repository' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Repositories'! !MCInfoProxy commentStamp: 'cmm 8/12/2013 21:51' prior: 0! A MCInfoProxy takes the place of a MCVersionInfo with a large tree of ancestors that consume memory in the image, but are almost never accessed. If they are, however, I will dynamically retrieve and become the Info from the original MC repository which includes the full ancestry tree.! Item was added: + ----- Method: MCInfoProxy class>>info:child:repository: (in category 'create') ----- + info: aMCVersionInfo child: childInfo repository: aMCRepository + ^ self new + + setInfo: aMCVersionInfo + childInfo: childInfo + repository: aMCRepository! Item was changed: ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- materializeInfo + | persistentVersion | + [ (persistentVersion := repository versionWithInfo: childInfo) isNil ] whileTrue: [ Warning signal: 'Please copy ' , childInfo name , 'with id ' , childInfo id asString , ' back to ' , repository asString , ' and try again.' ]. + persistentVersion info allAncestorsDo: + [ : each | each = info ifTrue: [ ^ each ] ]. + nil error: 'Expected ' , info asString , ' to be an ancestor of ' , childInfo asString! - ^ (repository versionWithInfo: info) - ifNil: - [ (MCRepositoryGroup default versionWithInfo: info) - ifNil: [ nil error: 'Please copy ' , info name , 'with id ' , info id asString , ' to ' , repository asString , ' and try again.' ] - ifNotNil: - [ : foundVersion | repository storeVersion: foundVersion. - foundVersion info ] ] - ifNotNil: - [ : version | version info ]! Item was added: + ----- Method: MCInfoProxy>>setInfo:childInfo:repository: (in category 'initialize-release') ----- + setInfo: aMCVersionInfo childInfo: childMCVersionInfo repository: aMCRepository + info := aMCVersionInfo. + childInfo := childMCVersionInfo. + repository := aMCRepository! Item was removed: - ----- Method: MCInfoProxy>>setInfo:repository: (in category 'initialize-release') ----- - setInfo: aMCVersionInfo repository: aMCRepository - info := aMCVersionInfo. - repository := aMCRepository! Item was changed: ----- Method: MCWorkingCopy>>stubAncestry (in category 'operations') ----- stubAncestry "Stub all but the most recent 10 of my ancestry tree to save memory with a proxy which can be transparently accessed later, if necessary." + self ancestors ifEmpty: [ ^ self ]. repositoryGroup ifNotNil: [ | tenAgo count | count := 0. ancestry ancestorsDoWhileTrue: [ : each | tenAgo := each. (count := count + 1) < 10 ]. + tenAgo + stubAncestryFor: self ancestors anyOne + using: repositoryGroup ]! - tenAgo stubAncestryUsing: repositoryGroup ]!

1 0

MCOrganizationDefinition bug fixed, again
by Bert Freudenberg 15 Aug '13

15 Aug '13

Ever noticed spurious organization changes in MC? Two years ago we changed MCOrganizationDefinition>>description. Unfortunately, we did not apply this change to the to our squeaksource server image. Thus, some of the MCDs it generated were not quite right, they have somewhat different MCOrganizationDefinitions. I now applied the single-line change to the server image, too, which appears to have fixed it. My test case was the GetText package, which when compared to the package-cache reported a change, yet compared to the trunk repo reported no changes. Turned out the package cache had a GetText-fbs.33(fbs.28).mcd in it which indeed was slightly different from the proper GetText-fbs.33.mcz. After applying the fix and downloading that MCD again, there were no differences. I now deleted all cached MCDs so they will be regenerated properly in the future. You may want to delete all MCDs from your local package cache, too. OTOH it's not that big a deal. - Bert -

4 6

The Trunk: Monticello-cmm.559.mcz
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.559.mcz ==================== Summary ==================== Name: Monticello-cmm.559 Author: cmm Time: 15 August 2013, 11:59:03.275 am UUID: 922730f3-4bff-475b-84ea-c6d03d116b0d Ancestors: Monticello-cmm.558 Need to answer the info object from the RepositoryGroup when it wasn't found where it was supposed to be. =============== Diff against Monticello-cmm.558 =============== Item was changed: ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- materializeInfo ^ (repository versionWithInfo: info) ifNil: [ (MCRepositoryGroup default versionWithInfo: info) ifNil: [ nil error: 'Please copy ' , info name , 'with id ' , info id asString , ' to ' , repository asString , ' and try again.' ] ifNotNil: + [ : foundVersion | repository storeVersion: foundVersion. + foundVersion info ] ] + ifNotNil: + [ : version | version info ]! - [ : foundVersion | repository storeVersion: foundVersion ] ] - ifNotNil: [ : version | version info ]!

1 0

The Trunk: Monticello-cmm.558.mcz
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.558.mcz ==================== Summary ==================== Name: Monticello-cmm.558 Author: cmm Time: 15 August 2013, 11:55:22.698 am UUID: 90d5e73c-dd83-4b82-82c0-7c1a48814f51 Ancestors: Monticello-cmm.557 - If an older version is not found in the repository it should be in, copy it where it should from the MCRepositoryGroup default. If it's not found there, signal an error that it needs to be copied there. =============== Diff against Monticello-cmm.557 =============== Item was changed: ----- Method: MCInfoProxy>>materializeInfo (in category 'private') ----- materializeInfo + ^ (repository versionWithInfo: info) + ifNil: + [ (MCRepositoryGroup default versionWithInfo: info) + ifNil: [ nil error: 'Please copy ' , info name , 'with id ' , info id asString , ' to ' , repository asString , ' and try again.' ] + ifNotNil: + [ : foundVersion | repository storeVersion: foundVersion ] ] + ifNotNil: [ : version | version info ]! - ^ (repository versionWithInfo: info) info!

1 0

RegEx and RePlugin (was: [Vm-dev] Re: [unix] RePlugin patch for pcre)
by David T. Lewis 15 Aug '13

15 Aug '13

On Tue, Aug 13, 2013 at 09:06:59AM -0400, David T. Lewis wrote: > > On Mon, Aug 12, 2013 at 03:17:11PM -0700, Ian Piumarta wrote: > > > > This is a patch to generated source. Who's maintaining the image-side code these days? If nobody, does anyone volunteer to adopt it? > > > > On Aug 12, 2013, at 08:50 , Bert Freudenberg wrote: > > > > >> attached patch should fix it > > >> there is another mention in RePlugin.cs but I have no idea what that is (smalltalk I guess?) so its still there > > > <pcre-compat.patch> > > We pulled the RePlugin in VMMaker some time ago, so the update can be done > there. I'll try to get the patch done, and regenerate the trunk/src, by this > weekend at the latest (unless someone else gets to it first). > > Dave I took a look at the Debian patch, and it simply disables the offending primitive, so I think that a bit more work may be needed to update to the current version of the pcre library. I did some searching through the Swiki and SqueakMap, and here is a summary of what I found: RePlugin was written by Andrew C. Greenberg. It consists of a VM plugin in package RegexPlugin, some interface classes in package Regex-Base, and a test suite in package Regex-tests. An overview is on the Swiki at http://wiki.squeak.org/squeak/558. The RePlugin distribution is on SqueakMap as package "Regular Expression Plugin". The most recent update is version 3.31, which is a SAR distribution containing the plugin, the image support code, the unit tests, and documention. The package is fully functional and all tests are green when running on a 32-bit VM (e.g. an interpreter VM from www.squeakvm.org/unix, or Cog if the plugin is present). The RePlugin is now part of the VMMaker package, so the RegexPlugin package from the SqueakMap distribution is superceded by the RePlugin VMMaker-Plugins. The RePlugin in VMMaker requires an update to use the newer pcre_fullinfo() function rather than the obsolete pcre_info() function, which is no longer present in some unix/linux distributions, as reported on http://bugs.squeak.org/view.php?id=7785. Additional follow up required: The RePlugin requires updates for 32/64 bit compilation. It crashes the VM when compiled in 64-bit mode. The Regex package needs a new home in a Monticello repository to support new updates, and to allow Regex to be distributed separately from the plugin. The SqueakMap registry for Regular Expression Plugin needs a new (or additional) maintainer. Dave

1 0

Daily Commit Log
by commits＠source.squeak.org 15 Aug '13

15 Aug '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-August/006304.html Name: Kernel-cmm.802 Ancestors: Kernel-bf.801 - In looking at the API of ProtoObject, isKindOf: was the only odd-man out. Proxy subclasses needing that should copy the implementation into themselves. - #becomeForward: belongs in ProtoObject along with #become:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006305.html Name: Monticello-cmm.552 Ancestors: Monticello-fbs.551 - Introducing MCInfoProxy, a proxy object which loosely refers to a MCVersionInfo residing in its original respository, so that the many thousands of old MCVresionInfo instances can be purged from memory, resulting in a slimmer image. - The purge is activated via MCWorkingCopy stubOldPackageInfos, or at the same time the user selects "flush cached versions" from the menu (because the goal of the user in selecting that is to slim the image). - The most recent 10 VersionInfo's for each MCWorkingCopy are kept in memory, allowing diffs from the menu to be activated without needing to re-retrieve from the repository. - If an operation requiring the full ancestry tree is required, the original VersionInfo is automatically retrieved again from their descendants repository. This assumes the descendants exist in the same repository as their ancestors. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006306.html Name: Monticello-cmm.553 Ancestors: Monticello-cmm.552 - Let the new proxy only refer to a _copy_ of the referencing info, so we don't trim infos that may be referenced by others such as the FileDirectory caches. - Begrudingly introduced MCProxyMaterialization, a Notification signaled whenever a MCInfoProxy is agitated. This mechanism allows both monitoring and intervention into MC proxy materializations. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006307.html Name: Monticello-cmm.554 Ancestors: Monticello-cmm.553 MCRepositoryGroup support #flushCache api. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006308.html Name: Monticello-cmm.555 Ancestors: Monticello-cmm.554 - Must use one-way become: to avoid the FileBasedRepository 'cache' from ending up referring to a MCInfoProxy. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006309.html Name: Monticello-cmm.556 Ancestors: Monticello-cmm.555 - Renamed #stubOldPackageInfos to #stubAllAncestry. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006310.html Name: Monticello-cmm.557 Ancestors: Monticello-cmm.556 Update flushAllCaches to report savings from stubbing of WorkingCopy ancestry. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-August/006311.html Name: Tests-cmm.249 Ancestors: Tests-cmm.247 - Added test for new MCInfoProxy. =============================================

1 0

The Trunk: Tests-cmm.249.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

Chris Muller uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cmm.249.mcz ==================== Summary ==================== Name: Tests-cmm.249 Author: cmm Time: 14 August 2013, 1:07:51.56 pm UUID: b4ce241c-eaa5-4324-90aa-6f895203b47d Ancestors: Tests-cmm.247 - Added test for new MCInfoProxy. =============== Diff against Tests-nice.246 =============== Item was added: + ----- Method: InstallerTest class>>suiteClass (in category 'as yet unclassified') ----- + suiteClass + ^ InstallerTestSuite! Item was added: + TestSuite subclass: #InstallerTestSuite + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Installer-Core'! Item was added: + ----- Method: InstallerTestSuite>>ensureTestMethods (in category 'initialize-release') ----- + ensureTestMethods + "Ensure InstallerTest has test methods for each externally-loadable package defined by Installer. By generating these methods, they don't have to be maintained separately." + ^ (Installer methodsInCategory: 'external-packages') do: + [ : each | (InstallerTest canUnderstand: each) ifFalse: + [ InstallerTest + compile: + (String streamContents: + [ : stream | stream + nextPutAll: 'test'; nextPutAll: each; + cr; tab; + nextPutAll: 'Installer new merge: #'; nextPutAll: each ]) + classified: '*generated' ] ]! Item was added: + ----- Method: InstallerTestSuite>>initialize (in category 'initialize-release') ----- + initialize + super initialize. + self ensureTestMethods! Item was added: + ----- Method: MCWorkingCopyTest>>testInfoProxy (in category 'tests') ----- + testInfoProxy + | latestSnapshot instanceCountBefore notificationReceived allAncestorsBefore | + <timeout: 10> + latestSnapshot := (1 to: 13) + inject: self snapshot + into: [ : snap : n | self change: #someMethod toReturn: n; snapshot ]. + Smalltalk garbageCollect. + instanceCountBefore := MCVersionInfo instanceCount. + allAncestorsBefore := workingCopy ancestry allAncestors. + workingCopy stubAncestry. + repositoryGroup flushCache. + Smalltalk garbageCollect. + "We're only one less rather than three, because we're using an in-memory repository" + self assert: instanceCountBefore < MCVersionInfo instanceCount. + notificationReceived := false. + [ self assert: allAncestorsBefore = workingCopy ancestry allAncestors ] + on: MCProxyMaterialization + do: + [ : noti | notificationReceived := true. + noti defaultAction ]. + self + assert: notificationReceived ; + assert: MCVersionInfo instanceCount >= instanceCountBefore. + "Very important to ensure saving does not save a truncated ancestry hierarchy." + workingCopy stubAncestry. + self change: #someMethod toReturn: 14; snapshot. + self assert: workingCopy ancestry ancestors anyOne allAncestors = allAncestorsBefore!

1 0

The Trunk: Monticello-cmm.557.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

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'!

1 0

The Trunk: Monticello-cmm.556.mcz
by commits＠source.squeak.org 14 Aug '13

14 Aug '13

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.556.mcz ==================== Summary ==================== Name: Monticello-cmm.556 Author: cmm Time: 14 August 2013, 1:21:34.244 pm UUID: fe612c7e-b4ab-4539-bd24-47e67d5270be Ancestors: Monticello-cmm.555 - Renamed #stubOldPackageInfos to #stubAllAncestry. =============== Diff against Monticello-cmm.555 =============== Item was added: + ----- Method: MCWorkingCopy class>>stubAllAncestry (in category 'cleanup') ----- + stubAllAncestry + "Replace VersionInfo instances which are more than 10 versions behind with a MCInfoProxy which will dynamically re-retrieve them from the current repository if necessary." + MCWorkingCopy allManagers do: [ : each | each stubAncestry ]! Item was removed: - ----- Method: MCWorkingCopy class>>stubOldPackageInfos (in category 'cleanup') ----- - stubOldPackageInfos - "Replace VersionInfo instances which are more than 10 versions behind with a MCInfoProxy which will dynamically re-retrieve them from the current repository if necessary." - MCWorkingCopy allManagers do: [ : each | each stubAncestry ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>flushAllCaches (in category 'actions') ----- flushAllCaches | beforeBytes afterBytes beforeVersions afterVersions | Cursor wait showWhile: [ beforeBytes := Smalltalk garbageCollect. beforeVersions := MCVersion allSubInstances size. MCFileBasedRepository flushAllCaches. + MCWorkingCopy stubAllAncestry. - MCWorkingCopy stubOldPackageInfos. afterBytes := Smalltalk garbageCollect. afterVersions := MCVersion allSubInstances size. ]. ^self inform: (beforeVersions - afterVersions) asString, ' versions flushed', String cr, (afterBytes - beforeBytes) asStringWithCommas, ' bytes reclaimed'!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
16
Older →

Jump to page: