Ensure that when a type object is cloned, we don't lose the type obje…

…ct flag.
Raku · Oct 23, 2011 · bbe37f3 · bbe37f3
1 parent d7cec32
commit bbe37f3
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/6model/reprs/P6opaque.c b/src/6model/reprs/P6opaque.c
@@ -598,13 +598,16 @@ static PMC * repr_clone(PARROT_INTERP, PMC *to_clone) {
     if (defined(interp, to_clone)) {
         obj = (P6opaqueInstance *)Parrot_gc_allocate_fixed_size_storage(interp, repr_data->allocation_size);
         memcpy(obj, PMC_data(to_clone), repr_data->allocation_size);
+        return wrap_object(interp, obj);
     }
     else {
+        PMC *result;
         obj = mem_allocate_zeroed_typed(P6opaqueInstance);
         memcpy(obj, PMC_data(to_clone), sizeof(P6opaqueInstance));
+        result = wrap_object(interp, obj);
+        PObj_flag_SET(private0, result);
+        return result;
     }
-
-    return wrap_object(interp, obj);
 }
 
 /* Used with boxing. Sets an integer value, for representations that can hold