[Pkg] The Trunk: ReleaseBuilder-ul.66.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 4 01:14:36 UTC 2011
Levente Uzonyi uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-ul.66.mcz
==================== Summary ====================
Name: ReleaseBuilder-ul.66
Author: ul
Time: 3 August 2011, 1:51:24.902 am
UUID: 8a03ba63-f10c-c143-b15a-9b3d878a35fa
Ancestors: ReleaseBuilder-ul.65
Removed unnecessary blocks.
=============== Diff against ReleaseBuilder-ul.65 ===============
Item was changed:
----- Method: ReleaseBuilderFor3dot11>>cleanupPhaseFinal (in category 'cleaning') -----
cleanupPhaseFinal
" ReleaseBuilderFor3dot11 new cleanupPhaseFinal "
| tasks |
tasks := OrderedCollection new
add: [Smalltalk removeEmptyMessageCategories];
add: [Workspace
allSubInstancesDo: [:each | each initializeBindings]];
add: [Undeclared removeUnreferencedKeys];
add: [Categorizer sortAllCategories];
add: [Symbol compactSymbolTable];
add: [#(#TheWorldMenu #FileServices #AppRegistry #Preferences #FileList )
do: [:cl | (Smalltalk at: cl) removeObsolete]]; add:[Flaps freshFlapsStart]; add:[MCFileBasedRepository flushAllCaches];
add: [HandMorph releaseCachedState;
initForEvents.self fixObsoleteReferences];
add: [
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].Smalltalk garbageCollectMost];
yourself.
Utilities
informUserDuring: [:bar | tasks
do: [:block |
bar value: block printString.
+ block
- [block value]
on: Error
do: [:error | Transcript show: error;
cr]]].
SystemNavigation default obsoleteClasses isEmpty
ifTrue: [SmalltalkImage current saveSession]
ifFalse: [SystemNavigation default obsoleteClasses
do: [:each | .self halt.[PointerFinder on: each]
on: Error
do: [:error | Transcript show: error; cr]]]
!
More information about the Packages
mailing list