Begin forwarded message:
From: John M McIntosh <johnmci@smalltalkconsulting.com> Date: May 1, 2009 6:29:33 PM CEDT To: Stéphane Ducasse <stephane.ducasse@inria.fr> Cc: Eliot Miranda <eliot.miranda@gmail.com> Subject: Re: [Pharo-project] Closure update from eliot Reply-To: johnmci@smalltalkconsulting.com
Also see http://code.google.com/p/pharo/issues/detail?id=467
Eliot wants #(CompiledMethod MethodProperties Array LargeNegativeInteger LargePositiveInteger Float MethodDictionary Association Point Rectangle ByteString BlockClosure BlockContext MethodContext nil Bitmap nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil)
so do
(Smalltalk compactClassesArray select: [:e | e notNil and: [e isObsolete]]) do: [:i | i becomeUncompact]. PseudoContext becomeUncompact. Smalltalk garbageCollect. LargeNegativeInteger becomeCompact. BlockClosure becomeCompact.
gives then
Smalltalk compactClassesArray inspect
{CompiledMethod . MethodProperties . Array . LargeNegativeInteger . LargePositiveInteger . Float . MethodDictionary . Association . Point . Rectangle . ByteString . BlockClosure . BlockContext . MethodContext . nil . Bitmap . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil}
Which my squinting eyeballs this morning seem to say it's the same...
A post check is
Smalltalk compactClassesArray doWithIndex: [:c :i | c == nil ifFalse: [c indexIfCompact = i ifFalse: [self halt]]]
On 1-May-09, at 3:10 AM, Stéphane Ducasse wrote:
Smalltalk compactClassesArray
-- = = = = = ====================================================================== John M. McIntosh <johnmci@smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http:// www.smalltalkconsulting.com = = = = = ======================================================================