--- a/Array.st Fri Mar 31 04:52:25 1995 +0200
+++ b/Array.st Sun Apr 02 13:07:58 1995 +0200
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Array.st,v 1.22 1995-03-08 23:36:43 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Array.st,v 1.23 1995-04-02 11:05:39 claus Exp $
'!
!Array class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Array.st,v 1.22 1995-03-08 23:36:43 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Array.st,v 1.23 1995-04-02 11:05:39 claus Exp $
"
!
@@ -314,7 +314,7 @@
/* sorry: must take care of stores ... */
srcP = _ArrayInstPtr(self)->a_element;
dstP = _ArrayInstPtr(nObj)->a_element;
- spc = _qSpace(nObj);
+ spc = __qSpace(nObj);
while (nIndex--) {
element = *srcP++;
*dstP++ = element;
@@ -434,7 +434,7 @@
} else {
REGISTER int spc;
- spc = _qSpace(self);
+ spc = __qSpace(self);
while (count-- > 0) {
t = *src++;
*dst++ = t;
@@ -670,7 +670,7 @@
#else
home = _BlockInstPtr(aBlock)->b_home;
rHome = home;
- if ((rHome == nil) || (_qSpace(rHome) >= STACKSPACE)) {
+ if ((rHome == nil) || (__qSpace(rHome) >= STACKSPACE)) {
/*
* home will not move - keep in a fast register
*/
@@ -731,7 +731,7 @@
#else
home = _BlockInstPtr(aBlock)->b_home;
rHome = home;
- if ((rHome == nil) || (_qSpace(rHome) >= STACKSPACE)) {
+ if ((rHome == nil) || (__qSpace(rHome) >= STACKSPACE)) {
/*
* home will not move - keep in a fast register
*/
@@ -849,7 +849,7 @@
#else
home = _BlockInstPtr(aBlock)->b_home;
rHome = home;
- if ((rHome == nil) || (_qSpace(rHome) >= STACKSPACE)) {
+ if ((rHome == nil) || (__qSpace(rHome) >= STACKSPACE)) {
for (index=indexLow; index <= indexHigh; index++) {
if (InterruptPending != nil) interruptL(__LINE__ COMMA_CON);
(*codeVal)(rHome, CON_COMMA _InstPtr(self)->i_instvars[index]);
@@ -918,7 +918,7 @@
#else
home = _BlockInstPtr(aBlock)->b_home;
rHome = home;
- if ((rHome == nil) || (_qSpace(rHome) >= STACKSPACE)) {
+ if ((rHome == nil) || (__qSpace(rHome) >= STACKSPACE)) {
for (index=indexHigh; index >= indexLow; index--) {
if (InterruptPending != nil) interruptL(__LINE__ COMMA_CON);
(*codeVal)(rHome, CON_COMMA _InstPtr(self)->i_instvars[index]);
@@ -977,7 +977,7 @@
#else
home = _BlockInstPtr(aBlock)->b_home;
rHome = home;
- if ((rHome == nil) || (_qSpace(rHome) >= STACKSPACE)) {
+ if ((rHome == nil) || (__qSpace(rHome) >= STACKSPACE)) {
/*
* home will not move - keep in in a register
*/