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

[whiteknight at svn.parrot.org]

Author: whiteknight
Date: Tue Jul 14 14:29:28 2009
New Revision: 40082
URL: https://trac.parrot.org/parrot/changeset/40082

Log:
[ops] make sure to set the exit_code of the new exception object in the exit opcode. Previously we were only setting the 'type', which doesn't translate to exit_code. This should resolve TT #834

Modified:
   trunk/src/ops/core.ops

Modified: trunk/src/ops/core.ops
==============================================================================
--- trunk/src/ops/core.ops	Tue Jul 14 14:20:53 2009	(r40081)
+++ trunk/src/ops/core.ops	Tue Jul 14 14:29:28 2009	(r40082)
@@ -958,6 +958,8 @@
                                                       $1, NULL);
     VTABLE_set_attr_str(interp, exception,
                         Parrot_str_new_constant(interp, "resume"), resume);
+    VTABLE_set_integer_keyed_str(interp, exception,
+        Parrot_str_new_constant(interp, "exit_code"), $1);
     dest = Parrot_ex_throw_from_op(interp, exception, ret);
     goto ADDRESS(dest);
 }