Ah, yes.  It works with your version of CompiledMethod>>methodNode at
5/17/2014 17:56.


On Thu, Jul 31, 2014 at 1:41 PM, Eliot Miranda <eliot.miranda at gmail.com> wrote:
>
>
>
> On Thu, Jul 31, 2014 at 10:34 AM, Yoshiki Ohshima <Yoshiki.Ohshima at acm.org>
> wrote:
>>
>> Hmm, ok.  This diff has more code than it should have, but I patched
>> OMeta2 package to make it work in the new compiler regime in Squeak
>> 4.5.  Hans-Martin, do you think you can take this, and update the
>> config map (if necessary)?
>
>
> Hopefully the CompiledMethod>>methodNode override is unnecessary.
>
>
>>
>> On Thu, Jul 31, 2014 at 1:31 PM,  <commits at source.squeak.org> wrote:
>> > A new version of OMeta2-Preload was added to project The Inbox:
>> > http://source.squeak.org/inbox/OMeta2-Preload-yo.15.mcz
>> >
>> > ==================== Summary ====================
>> >
>> > Name: OMeta2-Preload-yo.15
>> > Author: yo
>> > Time: 31 July 2014, 1:29:01.319 pm
>> > UUID: 6c6bc75e-3c9f-4446-b08a-cdce7081ef2d
>> > Ancestors: OMeta2-Preload-hmm.14
>> >
>> > Adapt to Squeak 4.5.
>> >
>> > ==================== Snapshot ====================
>> >
>> > SystemOrganization addCategory: #OMeta2!
>> > SystemOrganization addCategory: #'OMeta2-Info'!
>> >
>> > ----- Method: CompiledMethod>>methodNode (in category '*OMeta2-Preload')
>> > -----
>> > methodNode
>> >         "Return the parse tree that represents self. If parsing fails,
>> > decompile the method."
>> >         | aClass source |
>> >         aClass := self methodClass.
>> >         source := self
>> >                                 getSourceFor: (self selector ifNil:
>> > [self defaultSelector])
>> >                                 in: aClass.
>> >         ^[(aClass parserClass new
>> >                 encoderClass: (self isBlueBookCompiled
>> >                                                 ifTrue: [EncoderForV3]
>> >                                                 ifFalse:
>> > [EncoderForV3PlusClosures]);
>> >                 parse: source class: aClass)
>> >                         sourceText: source;
>> >                         yourself]
>> >                 on: SyntaxErrorNotification
>> >                 do: [:ex | ex return: self decompile].!
>> >
>> > Exception subclass: #OM2Fail
>> >         instanceVariableNames: ''
>> >         classVariableNames: ''
>> >         poolDictionaries: ''
>> >         category: 'OMeta2'!
>> >
>
>
> ...
>
> --
> Aloha,
> Eliot
>
>
>



-- 
-- Yoshiki