Implement assign_[ins].

Raku · Feb 26, 2015 · ea18ce6 · ea18ce6
1 parent 59de265
commit ea18ce6
Showing 1 changed file with 24 additions and 0 deletions.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -2856,6 +2856,30 @@ public static SixModelObject assign(SixModelObject cont, SixModelObject value, T
             ExceptionHandling.dieInternal(tc, "Cannot assign to an immutable value");
         return cont;
     }
+    public static SixModelObject assign_i(SixModelObject cont, long value, ThreadContext tc) {
+        ContainerSpec cs = cont.st.ContainerSpec;
+        if (cs != null)
+            cs.store_i(tc, cont, value);
+        else
+            ExceptionHandling.dieInternal(tc, "Cannot assign to an immutable value");
+        return cont;
+    }
+    public static SixModelObject assign_n(SixModelObject cont, double value, ThreadContext tc) {
+        ContainerSpec cs = cont.st.ContainerSpec;
+        if (cs != null)
+            cs.store_n(tc, cont, value);
+        else
+            ExceptionHandling.dieInternal(tc, "Cannot assign to an immutable value");
+        return cont;
+    }
+    public static SixModelObject assign_s(SixModelObject cont, String value, ThreadContext tc) {
+        ContainerSpec cs = cont.st.ContainerSpec;
+        if (cs != null)
+            cs.store_s(tc, cont, value);
+        else
+            ExceptionHandling.dieInternal(tc, "Cannot assign to an immutable value");
+        return cont;
+    }
     public static SixModelObject assignunchecked(SixModelObject cont, SixModelObject value, ThreadContext tc) {
         ContainerSpec cs = cont.st.ContainerSpec;
         if (cs != null)