<div dir="ltr"><br><div class="gmail_extra"><br><br><div class="gmail_quote">On Thu, Jul 31, 2014 at 10:34 AM, Yoshiki Ohshima <span dir="ltr"><<a href="mailto:Yoshiki.Ohshima@acm.org" target="_blank">Yoshiki.Ohshima@acm.org</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Hmm, ok. This diff has more code than it should have, but I patched<br>
OMeta2 package to make it work in the new compiler regime in Squeak<br>
4.5. Hans-Martin, do you think you can take this, and update the<br>
config map (if necessary)?</blockquote><div><br></div><div><span class="Apple-style-span" style="border-collapse:collapse;font-family:arial,sans-serif;font-size:14px;color:rgb(0,0,0)">Hopefully the CompiledMethod>>methodNode override is unnecessary.</span><br>
</div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="HOEnZb"><div class="h5">
On Thu, Jul 31, 2014 at 1:31 PM, <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br>
> A new version of OMeta2-Preload was added to project The Inbox:<br>
> <a href="http://source.squeak.org/inbox/OMeta2-Preload-yo.15.mcz" target="_blank">http://source.squeak.org/inbox/OMeta2-Preload-yo.15.mcz</a><br>
><br>
> ==================== Summary ====================<br>
><br>
> Name: OMeta2-Preload-yo.15<br>
> Author: yo<br>
> Time: 31 July 2014, 1:29:01.319 pm<br>
> UUID: 6c6bc75e-3c9f-4446-b08a-cdce7081ef2d<br>
> Ancestors: OMeta2-Preload-hmm.14<br>
><br>
> Adapt to Squeak 4.5.<br>
><br>
> ==================== Snapshot ====================<br>
><br>
> SystemOrganization addCategory: #OMeta2!<br>
> SystemOrganization addCategory: #'OMeta2-Info'!<br>
><br>
> ----- Method: CompiledMethod>>methodNode (in category '*OMeta2-Preload') -----<br>
> methodNode<br>
> "Return the parse tree that represents self. If parsing fails, decompile the method."<br>
> | aClass source |<br>
> aClass := self methodClass.<br>
> source := self<br>
> getSourceFor: (self selector ifNil: [self defaultSelector])<br>
> in: aClass.<br>
> ^[(aClass parserClass new<br>
> encoderClass: (self isBlueBookCompiled<br>
> ifTrue: [EncoderForV3]<br>
> ifFalse: [EncoderForV3PlusClosures]);<br>
> parse: source class: aClass)<br>
> sourceText: source;<br>
> yourself]<br>
> on: SyntaxErrorNotification<br>
> do: [:ex | ex return: self decompile].!<br>
><br>
> Exception subclass: #OM2Fail<br>
> instanceVariableNames: ''<br>
> classVariableNames: ''<br>
> poolDictionaries: ''<br>
> category: 'OMeta2'!<br>
></div></div></blockquote><div> </div><div><span class="Apple-style-span" style="color:rgb(80,0,80)">...</span></div></div><div><br></div>-- <br>Aloha,<div>Eliot</div>
</div></div>