hg/stx-libbasic: comparison Array.st

equal deleted inserted replaced

-:dfb4670c8b1f
+:375237229a8e
 	__qAlignedNew(nObj, sz);        /* OBJECT ALLOCATION */
 	__UNPROTECT2__(self, something);
 	if (nObj) {
 	    __InstPtr(nObj)->o_class = Array;
+	    __STORE(nObj, Array);
 	    nIndex = __BYTES2OBJS__(sz - OHDR_SIZE - sizeof(OBJ));
 	    /*
 	     * sorry:
 	     * cannot use bcopy, since we must take care of stores ...
 		{
 		    int n4 = endIndex-index+1;
 		    memset4(dst, anObject, n4);
 		}
-		__STORE(self, anObject);
 #else
 # ifdef FAST_MEMSET
 		if ((INT)anObject == 0) {
 		    memset(dst, 0, __OBJS2BYTES__(endIndex-index+1));
 		} else
 		    }
 # endif
 		    for (; index <= endIndex; index++) {
 			*dst++ = anObject;
 		    }
-		    __STORE(self, anObject);
+		}
-		}
+#endif
-#endif
+		__STORE(self, anObject);
 		RETURN ( self );
 	    }
 	}
 }
 %}.
 } else {
 REGISTER int spc;
 spc = __qSpace(self);
 #if defined(UNROLL_LOOPS)
-while (count >= 4) {
+while (count >= 8) {
 t = src[0]; dst[0] = t; __STORE_SPC(self, t, spc);
 t = src[1]; dst[1] = t; __STORE_SPC(self, t, spc);
 t = src[2]; dst[2] = t; __STORE_SPC(self, t, spc);
 t = src[3]; dst[3] = t; __STORE_SPC(self, t, spc);
-count -= 4; src += 4; dst += 4;
+t = src[4]; dst[4] = t; __STORE_SPC(self, t, spc);
+t = src[5]; dst[5] = t; __STORE_SPC(self, t, spc);
+t = src[6]; dst[6] = t; __STORE_SPC(self, t, spc);
+t = src[7]; dst[7] = t; __STORE_SPC(self, t, spc);
+count -= 8; src += 8; dst += 8;
 }
 #endif
 while (count-- > 0) {
 t = *src++;
 *dst++ = t;
 ! !
 !Array class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.109 1998-06-04 01:18:28 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.110 1998-08-05 09:24:20 cg Exp $'
 ! !

changeset 3730	375237229a8e
parent 3500	90eb689740cc
child 3979	46a2da9b917d