Array.st
changeset 835 8bd6f4aa8130
parent 834 c68ed1088b42
child 945 b2a1dc200c42
--- a/Array.st	Thu Jan 04 18:02:20 1996 +0100
+++ b/Array.st	Fri Jan 05 13:33:18 1996 +0100
@@ -84,11 +84,11 @@
 
 	    nInstVars += nindexedinstvars;
 	    instsize = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
-	    if (_CanDoQuickAlignedNew(instsize)) {
+	    if (__CanDoQuickAlignedNew(instsize)) {
 		/*
 		 * the most common case
 		 */
-		_qCheckedAlignedNew(newobj, instsize);
+		__qCheckedAlignedNew(newobj, instsize);
 	ok: ;
 		_InstPtr(newobj)->o_class = self;
 		__qSTORE(newobj, self);
@@ -172,7 +172,7 @@
 		 *  allocation failure)
 		 */
 		__PROTECT_CONTEXT__
-		_qAlignedNew(newobj, instsize, SENDER);
+		__qAlignedNew(newobj, instsize, SENDER);
 		__UNPROTECT_CONTEXT__
 		if (newobj != nil) {
 		    goto ok;
@@ -394,7 +394,7 @@
 	sz = __qSize(self) + sizeof(OBJ);
 	__PROTECT__(something);
 	__PROTECT__(self);
-	_qAlignedNew(nObj, sz, __context);
+	__qAlignedNew(nObj, sz, __context);
 	__UNPROTECT__(self);
 	__UNPROTECT__(something);
 
@@ -1338,4 +1338,4 @@
 !Array class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.52 1996-01-04 17:02:07 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.53 1996-01-05 12:32:59 cg Exp $'! !