Basic nqp::clone implementation.

jnthn · Feb 1, 2013 · 0c369f7 · 0c369f7
1 parent fa58117
commit 0c369f7
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/lib/QAST/JASTCompiler.nqp b/lib/QAST/JASTCompiler.nqp
@@ -1364,6 +1364,7 @@ QAST::OperationsJAST.map_classlib_core_op('bootstr', $TYPE_OPS, 'bootstr', [], $
 QAST::OperationsJAST.map_classlib_core_op('bootarray', $TYPE_OPS, 'bootarray', [], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('boothash', $TYPE_OPS, 'boothash', [], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('create', $TYPE_OPS, 'create', [$RT_OBJ], $RT_OBJ, :tc);
+QAST::OperationsJAST.map_classlib_core_op('clone', $TYPE_OPS, 'clone', [$RT_OBJ], $RT_OBJ, :tc);
 QAST::OperationsJAST.map_classlib_core_op('isconcrete', $TYPE_OPS, 'isconcrete', [$RT_OBJ], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('iscont', $TYPE_OPS, 'iscont', [$RT_OBJ], $RT_INT);
 QAST::OperationsJAST.map_classlib_core_op('decont', $TYPE_OPS, 'decont', [$RT_OBJ], $RT_OBJ, :tc);

diff --git a/src/org/perl6/nqp/runtime/Ops.java b/src/org/perl6/nqp/runtime/Ops.java
@@ -1013,6 +1013,9 @@ public static SixModelObject create(SixModelObject obj, ThreadContext tc) {
         res.initialize(tc);
         return res;
     }
+    public static SixModelObject clone(SixModelObject obj, ThreadContext tc) {
+        return obj.clone(tc);
+    }
     public static long isconcrete(SixModelObject obj, ThreadContext tc) {
         return obj instanceof TypeObject ? 0 : 1;
     }

diff --git a/src/org/perl6/nqp/sixmodel/SixModelObject.java b/src/org/perl6/nqp/sixmodel/SixModelObject.java
@@ -10,7 +10,7 @@
  * a better fit and stands a better chance of performing well with the
  * way the JVM does things.
  */
-public abstract class SixModelObject {
+public abstract class SixModelObject implements Cloneable {
     /**
      * The STable of the object.
      */