[Pkg] The Trunk: ReleaseBuilder-nice.91.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 21 21:23:28 UTC 2013
Nicolas Cellier uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-nice.91.mcz
==================== Summary ====================
Name: ReleaseBuilder-nice.91
Author: nice
Time: 21 January 2013, 10:23:10.627 pm
UUID: 932328a8-0695-4f67-a7ae-0d969cb8e2e4
Ancestors: ReleaseBuilder-fbs.90
Reduce level of superstition: 1 garbageCollect is worth 3.
Don't collect garbage before Symbol compactSymbolTable., because this one will invoke garbageCollect by itself.
=============== Diff against ReleaseBuilder-fbs.90 ===============
Item was changed:
----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') -----
finalCleanup
"ReleaseBuilder new finalCleanup"
DataStream initialize.
Behavior flushObsoleteSubclasses.
"The pointer to currentMethod is not realy needed (anybody care to fix this) and often holds on to obsolete bindings"
MethodChangeRecord allInstancesDo: [:each | each noteNewMethod: nil].
self cleanUpEtoys.
SmalltalkImage current fixObsoleteReferences.
Smalltalk flushClassNameCache.
+ Symbol compactSymbolTable.!
- 3 timesRepeat: [
- Smalltalk garbageCollect.
- Symbol compactSymbolTable.
- ].
- !
Item was changed:
----- Method: ReleaseBuilder>>makeSqueaklandReleasePhaseCleanup (in category 'squeakland') -----
makeSqueaklandReleasePhaseCleanup
"ReleaseBuilder new makeSqueaklandReleasePhaseCleanup"
Smalltalk at: #Browser ifPresent:[:br| br initialize].
ChangeSet
removeChangeSetsNamedSuchThat: [:cs | cs name ~= ChangeSet current name].
ChangeSet current clear.
ChangeSet current name: 'Unnamed1'.
Smalltalk garbageCollect.
"Reinitialize DataStream; it may hold on to some zapped entitities"
DataStream initialize.
"Remove existing player references"
References keys do: [:k | References removeKey: k].
Smalltalk garbageCollect.
ScheduledControllers := nil.
Behavior flushObsoleteSubclasses.
Smalltalk
garbageCollect;
garbageCollect.
SystemNavigation default obsoleteBehaviors isEmpty
ifFalse: [self error: 'Still have obsolete behaviors'].
"Reinitialize DataStream; it may hold on to some zapped entitities"
DataStream initialize.
Smalltalk fixObsoleteReferences.
Smalltalk abandonTempNames.
Smalltalk zapAllOtherProjects.
Smalltalk flushClassNameCache.
+ Symbol compactSymbolTable!
- 3 timesRepeat:
- [Smalltalk garbageCollect.
- Symbol compactSymbolTable]!
Item was changed:
----- Method: ReleaseBuilderFor3dot10>>makeSqueakRelease (in category 'squeakThreeTen') -----
makeSqueakRelease
| monti |
self unloadSome.
monti := MCWorkingCopyBrowser new.
monti unsortedWorkingCopies
do: [:ea | ((PackageOrganizer default packageNames) includes: (ea package name)) ifFalse:[ ea unregister]].
monti flushAllCaches.
+ Smalltalk garbageCollect.
- 3
- timesRepeat: [Smalltalk garbageCollect].
DataStream initialize.
Flaps replaceGlobalFlapwithID: 'Tools' translated.
Flaps replaceGlobalFlapwithID: 'Widgets' translated.
self cleanUpEtoys.
SmalltalkImage current fixObsoleteReferences.
Smalltalk garbageCollect.
ScheduledControllers := nil.
Behavior flushObsoleteSubclasses.
+ Smalltalk garbageCollect!
- 3
- timesRepeat: [Smalltalk garbageCollect]!
Item was changed:
----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhaseCleanup (in category 'squeakThreeTen') -----
makeSqueakThreeTenReleasePhaseCleanup
"ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhaseCleanup"
| newVersion |
Smalltalk at: #Browser ifPresent:[:br| br initialize].
self cleanUnwantedCs.
"Remove existing player references"
References keys do: [:k | References removeKey: k].
Smalltalk garbageCollect.
ScheduledControllers := nil.
Behavior flushObsoleteSubclasses.
SystemNavigation default obsoleteBehaviors isEmpty
ifFalse: [self error: 'Still have obsolete behaviors'].
"Reinitialize DataStream; it may hold on to some zapped entitities"
DataStream initialize.
self fixObsoleteReferences.
"Smalltalk abandonTempNames."
Smalltalk zapAllOtherProjects.
Smalltalk flushClassNameCache.
+ Symbol compactSymbolTable.
- 3 timesRepeat:
- [Smalltalk garbageCollect.
- Symbol compactSymbolTable].
"SystemVersion current registerUpdate: 7069." "We only need for when start the release"
newVersion := 'Squeak3.10alpha.' , SystemVersion current
highestUpdate printString.
-
newVersion := newVersion ,'.'.
(SourceFiles at: 2) ifNotNil:
[SmalltalkImage current closeSourceFiles; "so copying the
changes file will always work"
saveChangesInFileNamed: (SmalltalkImage current
fullNameForChangesNamed: newVersion)].
SmalltalkImage current saveImageInFileNamed: (SmalltalkImage current
fullNameForImageNamed: newVersion)
!
Item was changed:
----- Method: ReleaseBuilderFor3dot10>>unloadMorphicClasses (in category 'squeakThreeTen') -----
unloadMorphicClasses
"These classes don't seem to be used, so unload them. They always can be loaded later."
SystemOrganization classifyAll: #(BorderedStringMorph MouseActionIndicatorMorph CommandTilesMorph
TestClickExerciser SpectrumAnalyzerMorph FishEyeMorph SoundDemoMorph
MultiuserTinyPaint KidNavigationMorph CodecDemoMorph BlobMorph
SoundMorph SubpaneDividerMorph
RolloverButtonMorph ClipboardMorph VeryPickyMorph
ClassRepresentativeMorph PhraseWrapperMorph WatchMorph
UpdatingTextMorph PluggableTabBarMorph PartsWindow HeadingMorph
ZoomMorph UpdatingStringMorphWithArgument SoundSequencerMorph
ImageMorphWithSpotlight TinyPaint InfoStringMorph
UpdatingBooleanStringMorph DrawErrorMorph ViewerRow
BalloonRectangleMorph ViewerEntry MidiInputMorph
CachingMorph MovingEyeMorph MIDIPianoKeyboardMorph
DoubleClickExample MorphExample RulerMorph LabelStringMorph) under:
'Morphic-CandidatesForGo'.
(MCPackage named: 'Morphic-CandidatesForGo') unload .
#(TheWorldMenu FileServices AppRegistry Preferences FileList) do: [:cl|
(Smalltalk at: cl) removeObsolete].
self testObsolete do: [:cl|
Smalltalk removeClassNamed: cl].
+ Smalltalk garbageCollect.!
- 3 timesRepeat: [Smalltalk garbageCollect].!
More information about the Packages
mailing list