[svn:parrot] r30129 - trunk/src/ops

[julianalbo]

Author: julianalbo
Date: Fri Aug  8 05:28:45 2008
New Revision: 30129

Modified:
   trunk/src/ops/core.ops

Log:
fix op throw PMC for strict C compatibility

Modified: trunk/src/ops/core.ops
==============================================================================
--- trunk/src/ops/core.ops      (original)
+++ trunk/src/ops/core.ops      Fri Aug  8 05:28:45 2008
@@ -815,10 +815,11 @@
 }
 
 inline op throw(invar PMC) :flow {
+    opcode_t * dest;
     opcode_t * const ret  = expr NEXT();
     PMC * resume = new_ret_continuation_pmc(interp, ret);
     VTABLE_set_attr_str(interp, $1, const_string(interp, "retcont"), resume);
-    opcode_t * const dest = Parrot_ex_throw_from_op(interp, $1, resume);
+    dest = Parrot_ex_throw_from_op(interp, $1, resume);
     goto ADDRESS(dest);
 }