Add nqp::rebless, though P6opaque not updated yet.

jnthn · Feb 1, 2013 · 9202f07 · 9202f07
1 parent 3ef0749
commit 9202f07
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/lib/QAST/JASTCompiler.nqp b/lib/QAST/JASTCompiler.nqp
@@ -1358,6 +1358,7 @@ QAST::OperationsJAST.map_classlib_core_op('how', $TYPE_OPS, 'how', [$RT_OBJ], $R
 QAST::OperationsJAST.map_classlib_core_op('who', $TYPE_OPS, 'who', [$RT_OBJ], $RT_OBJ);
 QAST::OperationsJAST.map_classlib_core_op('where', $TYPE_OPS, 'where', [$RT_OBJ], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('setwho', $TYPE_OPS, 'setwho', [$RT_OBJ, $RT_OBJ], $RT_OBJ);
+QAST::OperationsJAST.map_classlib_core_op('rebless', $TYPE_OPS, 'rebless', [$RT_OBJ, $RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('knowhow', $TYPE_OPS, 'knowhow', [], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('knowhowattr', $TYPE_OPS, 'knowhowattr', [], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('bootint', $TYPE_OPS, 'bootint', [], $RT_OBJ, :tc);

diff --git a/src/org/perl6/nqp/runtime/Ops.java b/src/org/perl6/nqp/runtime/Ops.java
@@ -1008,6 +1008,10 @@ public static SixModelObject setwho(SixModelObject o, SixModelObject who) {
         o.st.WHO = who;
         return o;
     }
+    public static SixModelObject rebless(SixModelObject obj, SixModelObject newType, ThreadContext tc) {
+        obj.st.REPR.change_type(tc, obj, newType);
+        return obj;
+    }
     public static SixModelObject create(SixModelObject obj, ThreadContext tc) {
         SixModelObject res = obj.st.REPR.allocate(tc, obj.st);
         res.initialize(tc);