[svn:parrot] r40750 - trunk/src/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Aug 24 08:38:16 2009
New Revision: 40750
URL: https://trac.parrot.org/parrot/changeset/40750

Log:
[cage] Don't deref NULL value in Exception.set_attr_str.

This is partial fix for Rakudo's RT#68748 ticket.

Modified:
   trunk/src/pmc/exception.pmc

Modified: trunk/src/pmc/exception.pmc
==============================================================================
--- trunk/src/pmc/exception.pmc	Mon Aug 24 07:56:48 2009	(r40749)
+++ trunk/src/pmc/exception.pmc	Mon Aug 24 08:38:16 2009	(r40750)
@@ -659,7 +659,8 @@
         else if (Parrot_str_equal(INTERP, name, CONST_STRING(INTERP, "thrower"))) {
             /* Ensure it's a ret cont, and extract the from_ctx.
              * XXX TT#596 - when we have Context PMCs, just take and set that. */
-            if (VTABLE_isa(interp, value, CONST_STRING(interp, "Continuation"))) {
+
+            if (!PMC_IS_NULL(value) && VTABLE_isa(interp, value, CONST_STRING(interp, "Continuation"))) {
                 Parrot_Context *ctx = PMC_cont(value)->from_ctx;
                 if (ctx) {
                     Parrot_context_ref(interp, ctx);