2012/7/28 Pavel Krivanek <pavel.krivanek@gmail.com>

On Fri, Jul 27, 2012 at 9:18 PM, Esteban Lorenzano <estebanlm@gmail.com> wrote:
> 20236
> -----
>
> Issue 6467: �� Remove SystemChangeNotifier 2 - All events using SystemAnnouncer
> �� http://code.google.com/p/pharo/issues/detail?id=6467
>
> the beast is not dead yet... but almost :)
>

Hi Esteban,

the shrinking to the Pharo Kernel now fails with this error:

PharoKernel shrinking report
Error:
MessageNotUnderstood: receiver of "isRemoved" is nil
441 [:e |
| rep |
rep := FileStream forceNewFileNamed: 'PharoDebug.log'.
�� rep nextPutAll: 'PharoKernel shrinking report';
�� cr.
�� rep nextPutAll: 'Error:';
�� cr.
�� rep nextPutAll: e asString;
�� cr.
�� rep nextPutAll: thisContext stack size asString.
�� thisContext stack copy
�� withIndexDo: [:stck :i | [rep nextPutAll: i asString;
�� space;
�� nextPutAll: stck asString;
�� cr]
�� ifError: []].
�� rep close.
�� Smalltalk exitFailure] in SmalltalkImage>>privShrinkingProcess
2 BlockClosure>>cull:
3 BlockClosure>>cull:cull:
4 [:ex | errorHandlerBlock cull: ex description cull: ex receiver] in
BlockClosure>>ifError:
5 BlockClosure>>cull:
6 [(self tempAt: 2)
�� cull: exception] in MethodContext(ContextPart)>>handleSignal:
7 BlockClosure>>ensure:
8 MethodContext(ContextPart)>>handleSignal:
9 MethodContext(ContextPart)>>handleSignal:
10 MessageNotUnderstood(Exception)>>signal
11 UndefinedObject(Object)>>doesNotUnderstand: #isRemoved
12 ChangesLog>>logEvent:
13 ChangesLog>>logAnnouncement:
14 MessageSend>>value:
15 MessageSend>>cull:
16 MessageSend>>cull:cull:
17 [action cull: anAnnouncement cull: announcer] in
AnnouncementSubscription>>deliver:
18 BlockClosure>>on:do:
19 BlockClosure>>on:fork:
20 AnnouncementSubscription>>deliver:
21 [subscription deliver: anAnnouncement] in
SubscriptionRegistry>>deliver:to:startingAt:
22 BlockClosure>>ifCurtailed:
23 SubscriptionRegistry>>deliver:to:startingAt:
24 SubscriptionRegistry>>deliver:to:
25 SubscriptionRegistry>>deliver:
26 SystemAnnouncer(Announcer)>>announce:
27 SystemAnnouncer>>basicAnnounce:
28 SystemAnnouncer>>announce:
29 SystemAnnouncer>>trigger:
30 SystemAnnouncer>>classRemoved:fromCategory:
31 SystemDictionary>>forgetClass:logged:
32 ClassRenameFixTest class(Class)>>removeFromSystem:
33 ClassRenameFixTest class(Class)>>removeFromSystem
34 [SystemChangeNotifier uniqueInstance noMoreNotificationsFor: class.
�� SystemAnnouncer unsubscribe: class.
�� class isTrait
�� ifFalse: [(class class includesSelector: #unload)
�� ifTrue: [class removeSelector: #unload]].
�� class removeFromSystem] in [:className |
| class |
class := Smalltalk globals classOrTraitNamed: className.
�� class allSubclasses
�� ifEmpty: [SystemChangeNotifier uniqueInstance noMoreNotificationsFor: class.
�� SystemAnnouncer unsubscribe: class.
�� class isTrait
�� ifFalse: [(class class includesSelector: #unload)
�� ifTrue: [class removeSelector: #unload]].
�� class removeFromSystem]] in SystemNavigation>>removeAllButPackages:
35 OrderedCollection(Collection)>>ifEmpty:
36 [:className |
| class |
class := Smalltalk globals classOrTraitNamed: className.
�� class allSubclasses
�� ifEmpty: [SystemChangeNotifier uniqueInstance noMoreNotificationsFor: class.
�� SystemAnnouncer unsubscribe: class.
�� class isTrait
�� ifFalse: [(class class includesSelector: #unload)
�� ifTrue: [class removeSelector: #unload]].
�� class removeFromSystem]] in SystemNavigation>>removeAllButPackages:
37 SortedCollection(OrderedCollection)>>do:
38 SystemNavigation>>removeAllButPackages:
39 [| packages |
10
�� timesRepeat: [(Delay forMilliseconds: 100) wait.
�� Processor yield].
�� Author fullName: 'Mr.Shrinker'.
�� self privCleanMonticello.
�� UIManager default: DummyUIManager new.
�� UIManager default progressBarEnabled: false.
�� self privCleanProcesses.
�� self privCleanGlobals.
�� 5
�� timesRepeat: [Smalltalk garbageCollect].
�� MCDataStream initialize.
�� Beeper instVarNamed: #default put: nil.
�� Smalltalk cleanOutUndeclared.
�� 5
�� timesRepeat: [Smalltalk garbageCollect].
�� Author reset.
�� KMPragmaKeymapBuilder release.
�� self privShrinkUnicodeTables.
�� Display newDepth: 1.
�� self privCleanStartUpList.
�� self privCleanShutDownList.
�� Object
�� subclass: #Model
�� instanceVariableNames: 'dependents'
�� classVariableNames: ''
�� poolDictionaries: ''
�� category: 'Kernel-Objects'.
�� self privCleanTextConstants.
�� SoundService default: nil.
�� SoundService unregister: DummySoundSystem.
�� ThreadSafeTranscript install.
�� self privCleanUnloadMethods.
�� SystemNavigation new removeAllButPackages: self kernelPackageNames.
�� Smalltalk flushClassNameCache.
�� 3
�� timesRepeat: [Smalltalk garbageCollect.
�� Symbol compactSymbolTable].
�� Undeclared removeUnreferencedKeys.
�� self privRecompileAll.
�� self privCleanChangeSets.
�� SystemEventManager allInstances
�� do: [:i | i instVarNamed: #actionMap put: IdentityDictionary new].
�� FileServices removeObsolete.
�� DebuggerMethodMap voidMapCache.
�� Object flushEvents.
�� MCDataStream initialize.
�� Locale classPool at: #LocaleChangeListeners put: nil.
�� SmalltalkImage classPool at: #Tools put: nil.
�� Behavior flushObsoleteSubclasses.
�� Smalltalk flushClassNameCache.
�� Smalltalk organization removeEmptyCategories.
�� WeakArray restartFinalizationProcess.
�� Smalltalk saveImageInNewContext] in SmalltalkImage>>privShrinkingProcess
40 BlockClosure>>on:do:
41 BlockClosure>>ifError:
42 SmalltalkImage>>privShrinkingProcess
43 [self privShrinkingProcess] in SmalltalkImage>>shrinkToKernel
44 [self value.
�� Processor terminateActive] in BlockClosure>>newProcess