implement CArray.elems on jvm

FROGGS · FROGGS · commit 7a0438939d90 · 2015-09-13T20:44:56.000+02:00
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/CArrayInstance.java b/src/vm/jvm/runtime/org/perl6/nqp/sixmodel/reprs/CArrayInstance.java
@@ -200,6 +200,10 @@ private void expand(ThreadContext tc, long new_size) {
         allocated = new_size;
     }
 
+    public long elems(ThreadContext tc) {
+        return elems;
+    }
+
     private SixModelObject makeObject(ThreadContext tc, Pointer ptr) {
         CArrayREPRData repr_data = (CArrayREPRData) st.REPRData;
 

Original file line number	Diff line number	Diff line change
`@@ -200,6 +200,10 @@ private void expand(ThreadContext tc, long new_size) {`
`200`	`200`	`allocated = new_size;`
`201`	`201`	`}`
`202`	`202`
	`203`	`+ public long elems(ThreadContext tc) {`
	`204`	`+ return elems;`
	`205`	`+ }`
	`206`	`+`
`203`	`207`	`private SixModelObject makeObject(ThreadContext tc, Pointer ptr) {`
`204`	`208`	`CArrayREPRData repr_data = (CArrayREPRData) st.REPRData;`
`205`	`209`