Add missing get_storage_spec in P6opaque.

Raku · May 14, 2013 · b546d47 · b546d47
1 parent bf18546
commit b546d47
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/P6Opaque.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/P6Opaque.java
@@ -517,6 +517,18 @@ public void change_type(ThreadContext tc, SixModelObject obj, SixModelObject new
         obj.st = newType.st;
     }
 
+    public StorageSpec get_storage_spec(ThreadContext tc, STable st) {
+        P6OpaqueREPRData rd = (P6OpaqueREPRData)st.REPRData;
+        StorageSpec ss = new StorageSpec();
+        if (rd.unboxIntSlot >= 0)
+            ss.can_box += StorageSpec.CAN_BOX_INT;
+        if (rd.unboxNumSlot >= 0)
+            ss.can_box += StorageSpec.CAN_BOX_NUM;
+        if (rd.unboxStrSlot >= 0)
+            ss.can_box += StorageSpec.CAN_BOX_STR;
+        return ss;
+    }
+
     private class ByteClassLoader extends ClassLoader {
         private byte[] bytes;