Status: Accepted
Owner: [email protected]
Labels: Milestone-1.3
New issue 3624 by [email protected]: LeftOver of Smalltalk and
SystemDictionary
http://code.google.com/p/pharo/issues/detail?id=3624
there are wrong messages sent to self environment.... here garbageCollect.
removeUninstantiatedSubclassesSilently
"Remove the classes of any subclasses that have neither instances nor
subclasses. Answer the number of bytes reclaimed"
"Player removeUninstantiatedSubclassesSilently"
| candidatesForRemoval oldFree |
oldFree := self environment garbageCollect.
candidatesForRemoval :=
self subclasses select: [:c |
(c instanceCount = 0) and: [c subclasses size = 0]].
candidatesForRemoval do: [:c | c removeFromSystem].
^ self environment garbageCollect - oldFree
