JavaArray.st
branchdevelopment
changeset 2965 bac7022ca26a
parent 2914 1f4c3054998c
parent 2597 24475baf6abc
child 3324 a58245c0e83a
--- a/JavaArray.st	Wed Dec 18 00:02:10 2013 +0100
+++ b/JavaArray.st	Wed Dec 18 12:03:32 2013 +0100
@@ -20,7 +20,7 @@
 "
 "{ Package: 'stx:libjava' }"
 
-Array variableSubclass:#JavaArray
+Array subclass:#JavaArray
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -325,10 +325,44 @@
     "Created: / 21-12-2010 / 12:51:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!JavaArray methodsFor:'vm support'!
+
+_ARRAYLENGTH: cls
+    ^self basicSize
+
+    "Created: / 14-05-2013 / 10:10:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+_CHECKCAST: cls
+    JavaVM _CHECKCAST: self _: cls.
+%{
+    void ___checkcast_bind();
+    ___checkcast_bind(__pilc, __Class(self));
+
+%}.    
+    ^self  
+
+    "Created: / 14-05-2013 / 10:09:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+_INSTANCEOF: cls
+    | r |
+    
+    r := JavaVM _INSTANCEOF: self _: cls.
+%{
+    void ___instanceof_bind();
+    ___instanceof_bind(__pilc, __Class(self), r);
+
+%}. 
+    ^r
+
+    "Created: / 14-05-2013 / 10:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !JavaArray class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libjava/JavaArray.st,v 1.6 2013-09-06 00:41:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libjava/JavaArray.st,v 1.5 2013-02-25 11:15:31 vrany Exp $'
 !
 
 version_HG
@@ -337,6 +371,6 @@
 !
 
 version_SVN
-    ^ 'Id'
+    ^ '§Id§'
 ! !