[squeak-dev] The Trunk: System-ul.453.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Sep 18 13:39:47 UTC 2011


Levente Uzonyi uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ul.453.mcz

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

Name: System-ul.453
Author: ul
Time: 18 September 2011, 3:39:03.808 pm
UUID: 26059c77-9ac5-5f49-b349-cd2491323543
Ancestors: System-dtl.452

Removed the last references to #rehashWithoutBecome.

=============== Diff against System-dtl.452 ===============

Item was changed:
  ----- Method: SmalltalkImage>>presumedSentMessages (in category 'shrinking') -----
  presumedSentMessages   | sent |
  "Smalltalk presumedSentMessages"
  
  	"The following should be preserved for doIts, etc"
  	sent := IdentitySet new.
+ 	#(compactSymbolTable rebuildAllProjects
- 	#( rehashWithoutBecome compactSymbolTable rebuildAllProjects
  		browseAllSelect:  lastRemoval
  		scrollBarValue: vScrollBarValue: scrollBarMenuButtonPressed: 
  		withSelectionFrom:  to: removeClassNamed:
  		dragon: hilberts: mandala: web test3 factorial tinyBenchmarks benchFib
  		newDepth: restoreAfter: zapAllMethods obsoleteClasses
  		removeAllUnSentMessages abandonSources removeUnreferencedKeys
  		reclaimDependents zapOrganization condenseChanges browseObsoleteReferences
  		subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:
  		methodsFor:stamp: methodsFor:stamp:prior: instanceVariableNames:
  		startTimerInterruptWatcher unusedClasses) do:
  		[:sel | sent add: sel].
  	"The following may be sent by perform: in dispatchOnChar..."
  	(Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor |
  		(paragraphEditor classPool at: #CmdActions) asSet do:
  			[:sel | sent add: sel].
  		(paragraphEditor classPool at: #ShiftCmdActions) asSet do:
  			[:sel | sent add: sel]].
  	^ sent!

Item was changed:
  ----- Method: SmalltalkImage>>removeAllUnSentMessages (in category 'shrinking') -----
  removeAllUnSentMessages
  	"Smalltalk removeAllUnSentMessages"
  	"[Smalltalk unusedClasses do: [:c | (Smalltalk at: c) removeFromSystem]. 
  	Smalltalk removeAllUnSentMessages > 0] whileTrue."
  	"Remove all implementations of unsent messages."
  	| sels n |
  	sels := self systemNavigation allUnSentMessages.
  	"The following should be preserved for doIts, etc"
  	"needed even after #majorShrink is pulled"
+ 	#(#compactSymbolTable #rebuildAllProjects #browseAllSelect:  #lastRemoval #scrollBarValue: vScrollBarValue: #scrollBarMenuButtonPressed: #withSelectionFrom: #to: #removeClassNamed: #dragon: #hilberts: #mandala: #web #test3 #factorial #tinyBenchmarks #benchFib #newDepth: #restoreAfter: #zapAllMethods #obsoleteClasses #removeAllUnSentMessages #abandonSources #removeUnreferencedKeys #reclaimDependents #zapOrganization #condenseChanges #browseObsoleteReferences #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #methodsFor:stamp: #methodsFor:stamp:prior: #instanceVariableNames: #startTimerInterruptWatcher #unusedClasses )
- 	#(#rehashWithoutBecome #compactSymbolTable #rebuildAllProjects #browseAllSelect:  #lastRemoval #scrollBarValue: vScrollBarValue: #scrollBarMenuButtonPressed: #withSelectionFrom: #to: #removeClassNamed: #dragon: #hilberts: #mandala: #web #test3 #factorial #tinyBenchmarks #benchFib #newDepth: #restoreAfter: #zapAllMethods #obsoleteClasses #removeAllUnSentMessages #abandonSources #removeUnreferencedKeys #reclaimDependents #zapOrganization #condenseChanges #browseObsoleteReferences #subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: #methodsFor:stamp: #methodsFor:stamp:prior: #instanceVariableNames: #startTimerInterruptWatcher #unusedClasses )
  		do: [:sel | sels
  				remove: sel
  				ifAbsent: []].
  	"The following may be sent by perform: in dispatchOnChar..."
  	(Smalltalk at: #ParagraphEditor) ifNotNilDo: [:paragraphEditor |
  		(paragraphEditor classPool at: #CmdActions) asSet
  			do: [:sel | sels
  					remove: sel
  					ifAbsent: []].
  		(paragraphEditor classPool at: #ShiftCmdActions) asSet
  			do: [:sel | sels
  					remove: sel
  					ifAbsent: []]].
  	sels size = 0
  		ifTrue: [^ 0].
  	n := 0.
  	self systemNavigation
  		allBehaviorsDo: [:x | n := n + 1].
  	'Removing ' , sels size printString , ' messages . . .'
  		displayProgressFrom: 0
  		to: n
  		during: [:bar | 
  			n := 0.
  			self systemNavigation
  				allBehaviorsDo: [:class | 
  					bar value: (n := n + 1).
  					sels
  						do: [:sel | class basicRemoveSelector: sel]]].
  	^ sels size!




More information about the Squeak-dev mailing list