[squeak-dev] The Trunk: ReleaseBuilder-ul.65.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Jun 18 08:55:49 UTC 2011
Levente Uzonyi uploaded a new version of ReleaseBuilder to project The Trunk:
http://source.squeak.org/trunk/ReleaseBuilder-ul.65.mcz
==================== Summary ====================
Name: ReleaseBuilder-ul.65
Author: ul
Time: 17 June 2011, 4:42:02.221 pm
UUID: 15d4e136-f5f1-5e47-a438-464393f9c213
Ancestors: ReleaseBuilder-nice.64
- Don't send #forgetDoIts, because it's not needed anymore.
- Use #displayProgressFrom:to:during: instead of #displayProgressAt:from:to:during:.
=============== Diff against ReleaseBuilder-nice.64 ===============
Item was changed:
----- Method: ReleaseBuilder>>finalCleanup (in category 'utilities') -----
finalCleanup
"ReleaseBuilder new finalCleanup"
- Smalltalk forgetDoIts.
-
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].
self cleanUpEtoys.
SmalltalkImage current fixObsoleteReferences.
Smalltalk flushClassNameCache.
3 timesRepeat: [
Smalltalk garbageCollect.
Symbol compactSymbolTable.
].
!
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].
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].
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: 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: [
- add: [Smalltalk forgetDoIts.
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 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]]]
!
Item was changed:
----- Method: ReleaseBuilderFor3dot11>>createCompressedSources (in category 'sources managment') -----
createCompressedSources
" ReleaseBuilderFor3dot11 new createCompressedSources"
ProtoObject allSubclassesWithLevelDo:[:cl :l| | dir |
dir := self createDirIfnotExists:cl category.
Cursor write showWhile: [ | zipped nameToUse unzipped buffer |
nameToUse := cl printString , FileDirectory dot, ImageSegment compressedFileExtension.
(dir fileExists: nameToUse) ifFalse:[
unzipped :=RWBinaryOrTextStream on: ''.
unzipped header; timeStamp.
cl fileOutOn: unzipped moveSource: false toFile: 0.
unzipped trailer.
unzipped reset.
zipped := dir newFileNamed: (nameToUse).
zipped binary.
zipped := GZipWriteStream on: zipped.
buffer := ByteArray new: 50000.
+ 'Compressing ', nameToUse displayProgressFrom: 0 to: unzipped size
- 'Compressing ', nameToUse displayProgressAt: Sensor cursorPoint
- from: 0 to: unzipped size
during:[:bar|
[unzipped atEnd] whileFalse:[
bar value: unzipped position.
zipped nextPutAll: (unzipped nextInto: buffer)].
zipped close.
unzipped close]]]] startingLevel: 0!
More information about the Squeak-dev
mailing list
|