# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 925044020 -7200
# Node ID 7e3b6b267c06342a0e49edf973137534b38e9939
# Parent  4fbe619d6047ea3bbcd5114a5a2d05d90257e966
comment

diff -r 4fbe619d6047 -r 7e3b6b267c06 Array.st
--- a/Array.st	Sat Apr 24 22:24:09 1999 +0200
+++ b/Array.st	Sun Apr 25 14:40:20 1999 +0200
@@ -449,7 +449,7 @@
       tuned, it is questionable, if we need this)"
 
 %{  /* NOCONTEXT */
-    OBJ nObj, element;
+    OBJ nObj;
     unsigned int sz;
     unsigned int nIndex;
     REGISTER OBJ *srcP, *dstP;
@@ -468,10 +468,10 @@
 	    nIndex = __BYTES2OBJS__(sz - OHDR_SIZE - sizeof(OBJ));
 	    /* 
 	     * sorry: 
-	     * cannot use bcopy, since we must take care of stores ... 
-	     * could check for: notRemembered + inOld + notLifoRem
+	     *   cannot use bcopy, since we must take care of stores ... 
+	     *   could check for: notRemembered + inOld + notLifoRem
 	     *                  + not incrGCRunning
-	     * but copyWith: is not heavily used by real programmers ...
+	     * but: copyWith is not heavily used by real programmers ...
 	     */
 	    spc = __qSpace(nObj);
 	    srcP = __ArrayInstPtr(self)->a_element;
@@ -479,6 +479,8 @@
 
 #ifdef UNROLL_LOOPS
 	    while (nIndex >= 4) {
+    		OBJ element;
+
 		element = srcP[0];
 		dstP[0] = element;
 		__STORE_SPC(nObj, element, spc);
@@ -497,6 +499,8 @@
 	    }
 #endif
 	    while (nIndex--) {
+    		OBJ element;
+
 		element = *srcP++;
 		*dstP++ = element;
 		__STORE_SPC(nObj, element, spc);
@@ -527,7 +531,8 @@
 
 do:aBlock
     "evaluate the argument, aBlock for each element in the collection.
-     - reimplemented for speed"
+     - reimplemented for speed, since this is used by many higher
+       level collections"
 
     | sz "{ Class: SmallInteger }"|
 
@@ -746,7 +751,8 @@
 from:start to:stop do:aBlock
     "evaluate the argument, aBlock for the elements starting at index start
      up to (and including) stop in the collection.
-     - reimplemented for speed"
+     - reimplemented for speed, since this is used by many higher
+       level collections"
 
 %{
     REGISTER OBJFUNC codeVal;
@@ -2317,5 +2323,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.112 1999-03-19 20:42:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.113 1999-04-25 12:40:20 cg Exp $'
 ! !