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].! |
Free forum by Nabble | Edit this page |