Array.st
changeset 5557 f5f8d236027c
parent 5554 28520e96cca9
child 5576 1cc74d5d13c1
--- a/Array.st	Tue Aug 22 15:49:36 2000 +0200
+++ b/Array.st	Tue Aug 22 15:57:33 2000 +0200
@@ -413,30 +413,6 @@
     ^ super basicAt:index put:anObject
 
     "Modified: 19.4.1996 / 11:14:26 / cg"
-!
-
-basicSize
-    "return the number of indexed elements in the receiver"
-
-%{  /* NOCONTEXT */
-    REGISTER OBJ slf = self;
-
-    RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
-%}
-!
-
-size
-    "return the number of indexed elements in the receiver.
-     Reimplemented here to avoid the additional size->basicSize send
-     (which we can do here, since when arriving here, #size is obviously not
-      redefined in a subclass).
-     This method is the same as basicSize."
-
-%{  /* NOCONTEXT */
-    REGISTER OBJ slf = self;
-
-    RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
-%}
 ! !
 
 !Array methodsFor:'converting'!
@@ -1672,6 +1648,16 @@
 
 !Array methodsFor:'queries'!
 
+basicSize
+    "return the number of indexed elements in the receiver"
+
+%{  /* NOCONTEXT */
+    REGISTER OBJ slf = self;
+
+    RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
+%}
+!
+
 refersToLiteral:aLiteral
     "return true if the receiver or recursively any array element in the
      receiver referes to aLiteral (i.e. a deep search)"
@@ -1691,6 +1677,20 @@
     "
 
     "Modified: / 18.8.2000 / 21:18:14 / cg"
+!
+
+size
+    "return the number of indexed elements in the receiver.
+     Reimplemented here to avoid the additional size->basicSize send
+     (which we can do here, since when arriving here, #size is obviously not
+      redefined in a subclass).
+     This method is the same as basicSize."
+
+%{  /* NOCONTEXT */
+    REGISTER OBJ slf = self;
+
+    RETURN ( __MKSMALLINT(__arraySize(slf) - __intVal(__ClassInstPtr(__qClass(slf))->c_ninstvars) ));
+%}
 ! !
 
 !Array methodsFor:'searching'!
@@ -2415,5 +2415,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.127 2000-08-22 13:46:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.128 2000-08-22 13:55:49 cg Exp $'
 ! !