Added Behavior>>flagJavaArray. jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 30 Apr 2013 10:54:00 +0100
branchjv
changeset 18058 e2f7ddcc383d
parent 18057 8da7c39a6322
child 18059 b882507b9fdf
Added Behavior>>flagJavaArray. User by stx:libjava to check for Java array instances.
Behavior.st
--- a/Behavior.st	Mon Apr 29 19:43:44 2013 +0100
+++ b/Behavior.st	Tue Apr 30 10:54:00 2013 +0100
@@ -572,6 +572,18 @@
     "Modified: / 07-06-2007 / 11:57:44 / cg"
 !
 
+flagJavaArray
+    "return the flag code which marks Java array-like instances.
+     The VM checks this single bit in the flag value when
+     checking for a java arrays."
+
+%{  /* NOCONTEXT */
+    /* this is defined as a primitive to get defines from stc.h */
+
+    RETURN ( __mkSmallInteger(JARRAY_INSTS) );
+%}
+!
+
 flagJavaClass
     "return the flag code which marks JavaClass-like instances.
      The VM checks this single bit in the flag value when