[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
|