Add a sanity check to catch an error, rather than SEGVin'.

Raku · Feb 12, 2012 · 046bd1d · 046bd1d
1 parent 5641529
commit 046bd1d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/6model/serialization.c b/src/6model/serialization.c
@@ -619,6 +619,9 @@ static void serialize_object(PARROT_INTERP, SerializationWriter *writer, PMC *ob
     /* Get index of SC that holds the STable and its index. */
     Parrot_Int4 sc;
     Parrot_Int4 sc_idx;
+    if (obj->vtable->base_type != smo_id)
+        Parrot_ex_throw_from_c_args(interp, NULL, EXCEPTION_INVALID_OPERATION,
+            "Non-6model object in object serialization list");
     get_stable_ref_info(interp, writer, STABLE_PMC(obj), &sc, &sc_idx);
 
     /* Ensure there's space in the objects table; grow if not. */