<br><br><div class="gmail_quote">On Sun, May 2, 2010 at 11:47 AM, Igor Stasenko <span dir="ltr">&lt;<a href="mailto:siguctua@gmail.com">siguctua@gmail.com</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<div class="im"><br>
On 2 May 2010 21:23, Eliot Miranda &lt;<a href="mailto:eliot.miranda@gmail.com">eliot.miranda@gmail.com</a>&gt; wrote:<br>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; On Fri, Apr 30, 2010 at 10:56 PM, Igor Stasenko &lt;<a href="mailto:siguctua@gmail.com">siguctua@gmail.com</a>&gt; wrote:<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; Hello,<br>
&gt;&gt;<br>
&gt;&gt; Alien adds a new primitive pragma:<br>
&gt;&gt;<br>
&gt;&gt; &lt;primitive: &#39;foo&#39; error: tempName module: &#39;bar&#39; &gt;<br>
&gt;&gt;<br>
&gt;&gt; where tempName is auto-declared during parsing as a special temp which<br>
&gt;&gt; will be used to retrieve primitive error code. i.e.<br>
&gt;&gt;<br>
&gt;&gt; myMethod<br>
&gt;&gt;  &lt;primitive: &#39;foo&#39; error: code module: &#39;bar&#39; &gt;<br>
&gt;&gt; &quot;prim failed , check the error code&quot;<br>
&gt;&gt;  code = 5 ifTrue: [ self error: &#39;you wrong&#39; ]<br>
&gt;&gt;  code = 666 ifTrue: [ self error: &#39;you are wrong as hell&#39; ]<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; The problem is, that i found that while its integrated in parser<br>
&gt;&gt; (through Alien package overrides),<br>
&gt;&gt; it leads to nowhere in current Interpreter. :(<br>
&gt;<br>
&gt; But it&#39;s fully supported in the Newspeak VM and in the Cog VMs.  Please don&#39;t delete this.<br>
<br>
</div>i won&#39;t. I like being told by prim, _why_ its failed.<br>
I just don&#39;t like that this is currently dormant.<br>
<div><div></div><div class="h5"><br>
&gt;&gt;<br>
&gt;&gt; The sole reference to primFailCode is only in #primitiveFailFor: ,<br>
&gt;&gt; which actually should be used by prims to set the failure code:<br>
&gt;&gt;<br>
&gt;&gt; Interpreter&gt;&gt;primitiveFailFor: reasonCode<br>
&gt;&gt;        &quot;Set specific primitive failure.&quot;<br>
&gt;&gt;        primFailCode := reasonCode.<br>
&gt;&gt;        self primitiveFail.<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; I&#39;d like to propose an alternative implementation:<br>
&gt;&gt;<br>
&gt;&gt; - at VM side , add only a single primitive:<br>
&gt;&gt; primitiveLastFailureCode<br>
&gt;&gt;        self export: true.<br>
&gt;&gt;        self pop: 1 thenPush: (self integerObjectOf: primFailCode).<br>
&gt;&gt;        &quot;reset the code&quot;<br>
&gt;&gt;        primFailCode := 0.<br>
&gt;&gt;<br>
&gt;&gt; At language side, we can support both, old and new format:<br>
&gt;&gt;<br>
&gt;&gt; Add the method , which will retrieve the code:<br>
&gt;&gt;<br>
&gt;&gt; Object&gt;&gt;lastFailureCode<br>
&gt;&gt;  &quot;Primitive: answer the last primitive failure code. Resets the failure code.<br>
&gt;&gt;  Note: it can fail only if we&#39;re running on older VMs, which has no<br>
&gt;&gt; support of this primitive, if so, answer the generic failure code&quot;<br>
&gt;&gt;  &lt;primitive: &#39;primitiveLastFailureCode&#39; module: &#39;&#39;&gt;<br>
&gt;&gt;  ^ 0<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; And then, to handle things manually, one could use:<br>
&gt;&gt;<br>
&gt;&gt; Myclass&gt;&gt; foo<br>
&gt;&gt;   &lt;primitive: &#39;myprimitive&#39; module: &#39;mymodule&gt;<br>
&gt;&gt;   &quot;we&#39;re failed&quot;<br>
&gt;&gt;   | code |<br>
&gt;&gt;   code := self lastFailureCode.<br>
&gt;&gt;   ... handle the error code...<br>
&gt;&gt;<br>
&gt;&gt; And to support the Alien&#39;s new pragma pattern (primitive:error:module:)<br>
&gt;&gt; it can simply instruct the encoder to generate an implicit bytecode<br>
&gt;&gt; sequence (at method&#39;s beginning), which equals to:<br>
&gt;&gt;   temp := self lastFailureCode.<br>
&gt;&gt; (where temp, is one, which used in pragma)<br>
&gt;&gt;<br>
&gt;&gt; What you think?<br>
&gt;<br>
&gt; This is bad for a number of reasons, primarily thread-safety.  There&#39;s nothing to guarantee that the prim fail code is accessed before a process switch which could cause the error code to get overwritten.  Instead if you wanted to do something in this area you could get the Newspeak VM and start integrating the code there-from.<br>

<br>
</div></div>Yes. This might be an issue.<br>
I thought, there is no chance interrupting it between<br>
- current prim fail - enter a method - do a #lastFailureCode send<br>
<br>
or it is?<br>
If i remember, an interrupt check performed only on a normal return<br>
from method.<br></blockquote><div><br></div><div>Going by the old Teleplace interpreter interrupts are checked on activating a method, which includes a failing method.  See senders of internalQuickCheckForInterrupts &amp; quickCheckForInterrupts. i.e whenever a frame is built for a send. This is indeed between the primitive invocation and the send of lastFailureCode.</div>
<div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
And a normal return can&#39;t happen anywhere between the above stages.<br>
<br>
<br>
I remember your description of setting a temp value with failure code.<br>
Its cool from language side perspective, but ugly &amp; complex at VM side<br>
(i can imagine how ugly and complex that code may look like where have<br>
to crunch a lot of bits and do many various checks before attempting<br>
to store code into temp).<br></blockquote><div><br></div><div>Its not at all complicated.  Find the code in the Newspeak VM.  The code to load the temp is likely also in the Closure compiler already.  Here&#39;s the code in internalActivateNewMethod as described on my blog:</div>
<div><br></div><div><br></div><div><span class="Apple-style-span" style="font-family: arial, helvetica, sans-serif; font-size: 14px; color: rgb(34, 34, 34); line-height: 21px; "><span style="color: rgb(0, 0, 0); ">        </span><span style="color: rgb(0, 128, 128); ">“Pass primitive error code to last temp if method receives it (indicated<br>
         by an initial long store temp bytecode). Protect against obsolete values<br>         in primFailCode by checking that newMethod actually has a primitive.”</span><span style="color: rgb(0, 0, 0); "><br>        primFailCode </span><span style="color: rgb(0, 0, 128); ">~=</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(128, 0, 0); ">0</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 0, 128); ">ifTrue:</span><span style="color: rgb(0, 0, 0); "><br>
                        [</span><span style="color: rgb(0, 128, 0); ">(</span><span style="color: rgb(128, 0, 128); ">(</span><span style="color: rgb(128, 0, 0); ">self</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 0, 128); ">methodHeaderHasPrimitive:</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(64, 64, 64); ">methodHeader</span><span style="color: rgb(128, 0, 128); ">)</span><span style="color: rgb(0, 0, 0); "><br>
                         </span><span style="color: rgb(0, 0, 128); ">and:</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(128, 0, 128); ">[</span><span style="color: rgb(128, 0, 0); ">(self</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 0, 128); ">byteAtPointer:</span><span style="color: rgb(0, 0, 0); "> localIP </span><span style="color: rgb(0, 0, 128); ">+</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(128, 0, 0); ">1)</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 0, 128); ">=</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(128, 0, 0); ">129</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 128, 128); ">&quot;long store temp&quot;</span><span style="color: rgb(128, 0, 128); ">]</span><span style="color: rgb(0, 128, 0); ">)</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 0, 128); ">ifTrue:</span><span style="color: rgb(0, 0, 0); "><br>
                                        </span><span style="color: rgb(0, 128, 0); ">[</span><span style="color: rgb(64, 64, 64); ">errorCode</span><span style="color: rgb(0, 0, 0); "> </span><strong>:=</strong><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(128, 0, 0); ">self</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 0, 128); ">getErrorObjectFromPrimFailCode</span><span style="color: rgb(0, 0, 0); ">.<br>
                                         </span><span style="color: rgb(128, 0, 0); ">self</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 0, 128); ">longAt:</span><span style="color: rgb(0, 0, 0); "> localSP </span><span style="color: rgb(0, 0, 128); ">put:</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(64, 64, 64); ">errorCode</span><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(0, 128, 128); ">&quot;nil if primFailCode == 1, or primFailCode&quot;</span><span style="color: rgb(0, 128, 0); ">]</span><span style="color: rgb(0, 0, 0); ">.<br>
                        primFailCode </span><strong>:=</strong><span style="color: rgb(0, 0, 0); "> </span><span style="color: rgb(128, 0, 0); ">0</span><span style="color: rgb(0, 0, 0); ">].</span></span></div><div><br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

<div class="im"><br>
&gt; But I&#39;m now in a position to put some effort into open sourcing Cog, having completed my current Teleplace assignment, and so perhaps being patient and waiting a little longer is the best approach.  In the mean time please don&#39;t change any of the primitive fail code stuff.  Its fully functional in the code we&#39;re using at Teleplace and in Newspeak and it would be good to avoid incompatibilities.<br>

<br>
</div>well, my proposal actually don&#39;t requires altering existing code.<br>
It just adds a prim, which exposing the failure code value to language side.<br></blockquote><div><br></div><div>Alas in a way that can&#39;t provide reliable access given the VM&#39;s current interrupt response.  I don&#39;t mean to frustrate you, but I do hope to get my code out soon.</div>
<div><br></div><div>best</div><div>Eliot </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="im"><br>
&gt; best<br>
&gt; Eliot<br>
&gt;&gt;<br>
&gt;&gt; --<br>
&gt;&gt; Best regards,<br>
&gt;&gt; Igor Stasenko AKA sig.<br>
&gt;&gt;<br>
&gt;<br>
&gt;<br>
&gt;<br>
<br>
<br>
<br>
</div>--<br>
<div><div></div><div class="h5">Best regards,<br>
Igor Stasenko AKA sig.<br>
</div></div></blockquote></div><br>