--- 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§'
! !