Behavior.st
branchjv
changeset 18058 e2f7ddcc383d
parent 18050 131d0413b25b
child 18059 b882507b9fdf
--- 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