Fix translate-o in unshift.

jnthn · Feb 1, 2013 · b56b607 · b56b607
1 parent 9b42430
commit b56b607
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/org/perl6/nqp/sixmodel/reprs/VMArrayInstance.java b/src/org/perl6/nqp/sixmodel/reprs/VMArrayInstance.java
@@ -122,11 +122,13 @@ public void unshift_boxed(ThreadContext tc, SixModelObject value) {
             int i;
 
             /* grow the array */
+            int origElems = elems;
             set_size_internal(tc, elems + n);
 
             /* move elements and set start */
-            memmove(slots, n, 0, elems);
+            memmove(slots, n, 0, origElems);
             start = n;
+            elems = origElems;
 
             /* clear out beginning elements */
             for (i = 0; i < n; i++)