[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