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