837 testBlock_exteptionHandler_noRemoteReturn

   838     |aCompiledMethod irBuilder|

   839 

   840     irBuilder := (IRBuilder new)

   841                 numRargs:1;

   842                 addTemps:#( #self);

   843                pushBlockUsingBuilder:[:builder | 

   844                         builder

   845                             numRargs:0;  

   846                             pushLiteral: 1;

   847                             pushLiteral: 0;

   848                             send: #/;

   849                             pushLiteral: false;

   850                             returnTop

   851                     ];

   852                 pushLiteralVariable: #Error;

   853                 pushBlockUsingBuilder:[:builder|

   854                     builder

   855                         numRargs:0;

   856                         pushLiteral: true;

   857                         returnTop];

   858                 send: #on:do:;

   859                 returnTop;

   860                 ir.

   861     "

   862         irBuilder ir

   863     "

   864 

   865     aCompiledMethod := irBuilder compiledCode.

   866     self assert:(aCompiledMethod isKindOf:CompiledMethod).

   867     self assert:((aCompiledMethod valueWithReceiver:1 arguments:#()) = true).

   868 

   869     "Modified: / 01-04-2009 / 19:43:52 / Jan Vrany <vranyj1@fel.cvut.cz>"

   870     "Created: / 28-04-2009 / 13:39:01 / karpij1 <karpij1@fel.cvut.cz>"

   871 !

   872