[squeak-dev] The Trunk: ReleaseBuilder-nice.39.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 20 23:00:32 UTC 2009


Nicolas Cellier uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-nice.39.mcz

==================== Summary ====================

Name: ReleaseBuilder-nice.39
Author: nice
Time: 21 October 2009, 1:00:14 am
UUID: c8dbed15-07d1-43ad-be7b-05bb4fe9d09f
Ancestors: ReleaseBuilder-nice.38

Use #keys rather than #fasterKeys
Note that pattern (x keys asArray sort) could as well be written (x keys sort) now that keys returns an Array...
This #asArray is here solely for cross-dialect/fork compatibility.

=============== Diff against ReleaseBuilder-nice.38 ===============

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].
- 	References fasterKeys 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 forgetDoIts.
  	Smalltalk flushClassNameCache.
  	3 timesRepeat: 
  			[Smalltalk garbageCollect.
  			Symbol compactSymbolTable]!

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].
- 	References fasterKeys 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 forgetDoIts.
  	Smalltalk flushClassNameCache.
  	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: ReleaseBuilder>>makeSqueaklandReleasePhasePrepare (in category 'squeakland') -----
  makeSqueaklandReleasePhasePrepare
  	"ReleaseBuilder new makeSqueaklandReleasePhasePrepare"
  
  	Undeclared removeUnreferencedKeys.
  	StandardScriptingSystem initialize.
  	Preferences initialize.
  	"(Object classPool at: #DependentsFields) size > 1 ifTrue: [self error:'Still have dependents']."
  	Undeclared isEmpty ifFalse: [self error:'Please clean out Undeclared'].
  
  	"Dump all projects"
  	Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
  
  	"Set new look so we don't need older fonts later"
  	StandardScriptingSystem applyNewEToyLook.
  
  	Smalltalk at: #Browser ifPresent:[:br| br initialize].
  	ScriptingSystem deletePrivateGraphics.
  	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].
- 	References fasterKeys do:[:k| References removeKey: k].
  
  	Smalltalk garbageCollect.
  	ScheduledControllers := nil.
  	Smalltalk garbageCollect.
  !

Item was changed:
  ----- Method: ReleaseBuilderFor3dot10>>makeSqueakThreeTenReleasePhasePrepare (in category 'squeakThreeTen') -----
  makeSqueakThreeTenReleasePhasePrepare
  	"ReleaseBuilderFor3dot10 new makeSqueakThreeTenReleasePhasePrepare"
  
  	Undeclared removeUnreferencedKeys.
  	StandardScriptingSystem initialize.
  	Preferences initialize.
  	"(Object classPool at: #DependentsFields) size > 1 ifTrue: [self
  error:'Still have dependents']."
  	Undeclared isEmpty ifFalse: [self error:'Please clean out
  Undeclared'].
  
  	"Dump all projects"
  	Project allSubInstancesDo:[:prj| prj == Project current
  ifFalse:[Project deletingProject: prj]].
  
  	"Set new look so we don't need older fonts later"
  	StandardScriptingSystem applyNewEToyLook.
  
  	Smalltalk at: #Browser ifPresent:[:br| br initialize].
  	ScriptingSystem deletePrivateGraphics.
  	self cleanUnwantedCs.
  	"Reinitialize DataStream; it may hold on to some zapped entitities"
  	DataStream initialize.
  	"Remove existing player references"
+ 	References keys do:[:k| References removeKey: k].
- 	References fasterKeys do:[:k| References removeKey: k].
  
  	Smalltalk garbageCollect.
  	ScheduledControllers := nil.
  	Smalltalk garbageCollect.
  !




More information about the Squeak-dev mailing list