[squeak-dev] The Trunk: System-topa.664.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Jan 26 00:02:49 UTC 2014
Tobias Pape uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-topa.664.mcz
==================== Summary ====================
Name: System-topa.664
Author: topa
Time: 26 January 2014, 1:00:42.101 am
UUID: b213caa1-e284-429c-af16-ab115996e2dc
Ancestors: System-cwp.663
Fix "unloadReloadablePackages" package unloading for now
by reordering and blacklisting:
* Tests
* Etoys (and its dependents)
until this is resolved.
=============== Diff against System-cwp.663 ===============
Item was changed:
----- Method: SmalltalkImage>>shrink (in category 'shrinking') -----
shrink
"Clean up everything we know how to clean up that can be restored."
"Prepare unloading"
self zapMVCprojects.
Flaps disableGlobalFlaps: false.
- "Yeow, why turn off listening for system changes?"
- self
- at: #ServiceRegistry
- ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ].
self unloadReloadablePackages.
"Post-unload aggressive cleanup"
Smalltalk cleanUp: true.
SystemOrganization removeSystemCategory: 'UserObjects'.
Smalltalk at: #ScheduledControllers ifPresent: [Smalltalk at: #ScheduledControllers put: nil].
Smalltalk garbageCollect!
Item was changed:
----- Method: SmalltalkImage>>unloadReloadablePackages (in category 'shrinking') -----
unloadReloadablePackages
"Unload packages which can be reloaded."
+
+ "One special case to make Services-Base unload"
+ Smalltalk
+ at: #ServiceRegistry
+ ifPresent: [ : aClass | SystemChangeNotifier uniqueInstance noMoreNotificationsFor: aClass ].
+
+ #('CompressionTests'
+ 'CollectionsTests'
+ 'GraphicsTests'
+ 'BalloonTests'
+ 'HelpSystem-Tests'
+ 'KernelTests'
+ 'MorphicExtrasTests'
+ 'MorphicTests'
+ 'MultilingualTests'
+ 'NetworkTests'
+ 'ToolsTests'
+ 'TraitsTests'
+ 'SystemChangeNotification-Tests'
+ 'VersionNumberTests'
+ 'ST80Tests'
+ "'Tests'" "Currently not unloadable"
+
+ 'FlexibleVocabularies'
+ 'ReleaseBuilder'
+ 'ScriptLoader'
+ 'UpdateStream'
+ 'CommandLine'
+ '45Deprecated'
+ '311Deprecated'
+ '39Deprecated'
+ 'Universes'
+ 'SMLoader'
+ 'SMBase'
+ 'Services-Base'
+ 'Nebraska'
+ 'ToolBuilder-MVC'
+ 'ST80Tools'
+ 'ST80'
+ "'EToys'" "Currently not unloadable"
+ "'PreferenceBrowser'" "Etoys needs them, hence not unloadable"
+ "'Protocols'" "Etoys needs them, hence not unloadable"
+ 'XML-Parser'
+ 'Help-Squeak-TerseGuide'
+ 'Help-Squeak-Project'
+ 'HelpSystem-Core'
+ 'SystemReporter'
+ 'SUnitGUI'
+ 'VersionNumber' ) do: [ : pkgName | Installer mc unload: pkgName ].
- #('ReleaseBuilder' 'ScriptLoader' '311Deprecated' '39Deprecated' 'Universes' 'SMLoader' 'SMBase' 'VersionNumberTests' 'VersionNumber' 'Services-Base' 'PreferenceBrowser' 'Nebraska' 'ToolBuilder-MVC' 'ST80Tools' 'ST80Tests' 'ST80' 'CompressionTests' 'CollectionsTests' 'GraphicsTests' 'KernelTests' 'MorphicTests' 'MultilingualTests' 'NetworkTests' 'ToolsTests' 'TraitsTests' 'SystemChangeNotification-Tests' 'FlexibleVocabularies' 'EToys' 'Protocols' 'XML-Parser' 'Tests' 'SUnitGUI' 'Help-Squeak' 'HelpSystem' 'SystemReporter' ) do: [ : pkgName | Installer mc unload: pkgName ].
"Traits use custom unload"
+ Smalltalk
- self
at: #Trait
ifPresent: [ : aClass | aClass unloadTraits ]!
More information about the Squeak-dev
mailing list
|