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