Make nqp::isconcrete safe on PMCs.

jnthn · jnthn · commit 03aa46598a83 · 2012-12-09T13:44:49.000+01:00
diff --git a/src/ops/nqp.ops b/src/ops/nqp.ops
@@ -533,8 +533,7 @@ inline op repr_defined(out INT, invar PMC) :base_core {
     if (var->vtable->base_type == smo_id)
         $1 = IS_CONCRETE(var);
     else
-        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
-            "Can only use repr_defined on a SixModelObject");
+        $1 = 1; /* Because other PMCs have no concept of type-object. */
 }
 
 /*

Original file line number	Diff line number	Diff line change
`@@ -533,8 +533,7 @@ inline op repr_defined(out INT, invar PMC) :base_core {`
`533`	`533`	`if (var->vtable->base_type == smo_id)`
`534`	`534`	`$1 = IS_CONCRETE(var);`
`535`	`535`	`else`
`536`		`- Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,`
`537`		`- "Can only use repr_defined on a SixModelObject");`
	`536`	`+ $1 = 1; /* Because other PMCs have no concept of type-object. */`
`538`	`537`	`}`
`539`	`538`
`540`	`539`	`/*`