--- a/SmallInt.st Sun Feb 05 22:33:24 1995 +0100
+++ b/SmallInt.st Sun Feb 05 22:34:09 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.19 1995-02-02 12:22:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.20 1995-02-05 21:34:09 claus Exp $
'!
!SmallInteger class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.19 1995-02-02 12:22:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.20 1995-02-05 21:34:09 claus Exp $
"
!
@@ -524,13 +524,13 @@
RETURN ( _ADD_IO_IO(self, aNumber) );
#else
REGISTER INT sum;
- extern OBJ _makeLarge();
+ extern OBJ _MKLARGEINT();
sum = _intVal(self) + _intVal(aNumber);
if ((sum >= _MIN_INT) && (sum <= _MAX_INT)) {
RETURN ( _MKSMALLINT(sum) );
}
- RETURN ( _makeLarge(sum) );
+ RETURN ( _MKLARGEINT(sum) );
#endif
}
if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -556,13 +556,13 @@
RETURN ( _SUB_IO_IO(self, aNumber) );
#else
REGISTER INT diff;
- extern OBJ _makeLarge();
+ extern OBJ _MKLARGEINT();
diff = _intVal(self) - _intVal(aNumber);
if ((diff >= _MIN_INT) && (diff <= _MAX_INT)) {
RETURN ( _MKSMALLINT(diff) );
}
- RETURN ( _makeLarge(diff) );
+ RETURN ( _MKLARGEINT(diff) );
#endif
}
if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
--- a/SmallInteger.st Sun Feb 05 22:33:24 1995 +0100
+++ b/SmallInteger.st Sun Feb 05 22:34:09 1995 +0100
@@ -21,7 +21,7 @@
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.19 1995-02-02 12:22:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.20 1995-02-05 21:34:09 claus Exp $
'!
!SmallInteger class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
version
"
-$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.19 1995-02-02 12:22:33 claus Exp $
+$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.20 1995-02-05 21:34:09 claus Exp $
"
!
@@ -524,13 +524,13 @@
RETURN ( _ADD_IO_IO(self, aNumber) );
#else
REGISTER INT sum;
- extern OBJ _makeLarge();
+ extern OBJ _MKLARGEINT();
sum = _intVal(self) + _intVal(aNumber);
if ((sum >= _MIN_INT) && (sum <= _MAX_INT)) {
RETURN ( _MKSMALLINT(sum) );
}
- RETURN ( _makeLarge(sum) );
+ RETURN ( _MKLARGEINT(sum) );
#endif
}
if ((aNumber != nil) && (_qClass(aNumber) == Float)) {
@@ -556,13 +556,13 @@
RETURN ( _SUB_IO_IO(self, aNumber) );
#else
REGISTER INT diff;
- extern OBJ _makeLarge();
+ extern OBJ _MKLARGEINT();
diff = _intVal(self) - _intVal(aNumber);
if ((diff >= _MIN_INT) && (diff <= _MAX_INT)) {
RETURN ( _MKSMALLINT(diff) );
}
- RETURN ( _makeLarge(diff) );
+ RETURN ( _MKLARGEINT(diff) );
#endif
}
if ((aNumber != nil) && (_qClass(aNumber) == Float)) {