[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