Make P6opaque clone actually work.

jnthn · Feb 1, 2013 · 9b42430 · 9b42430
1 parent ea04fec
commit 9b42430
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src/org/perl6/nqp/sixmodel/reprs/P6OpaqueBaseInstance.java b/src/org/perl6/nqp/sixmodel/reprs/P6OpaqueBaseInstance.java
@@ -1,4 +1,5 @@
 package org.perl6.nqp.sixmodel.reprs;
+import org.perl6.nqp.runtime.ThreadContext;
 import org.perl6.nqp.sixmodel.SixModelObject;
 import org.perl6.nqp.sixmodel.TypeObject;
 
@@ -28,6 +29,14 @@ public final SixModelObject autoViv(int slot) {
 			return av;
 		throw new RuntimeException("Cloning auto-viv container NYI");
 	}
+
+	public SixModelObject clone(ThreadContext tc) {
+		try {
+			return (SixModelObject)this.clone();
+		} catch (CloneNotSupportedException e) {
+			throw new RuntimeException(e);
+		}
+	}
 
     public void badNative() {
         throw new RuntimeException("Cannot access a reference attribute as a native attribute");