--- a/Array.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Array.st Thu Jan 04 02:24:09 1996 +0100
@@ -470,7 +470,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
unsigned int nIndex;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
REGISTER OBJ rHome;
@@ -548,7 +547,6 @@
REGISTER int index;
REGISTER OBJ rHome;
int nIndex, nInsts;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
int indexLow, indexHigh;
@@ -635,7 +633,6 @@
REGISTER int index;
REGISTER OBJ rHome;
int nIndex;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
int indexLow, indexHigh;
@@ -699,7 +696,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
unsigned int nIndex;
- extern OBJ Block;
static struct inlineCache val2 = _ILC2;
REGISTER OBJ rHome;
@@ -766,7 +762,6 @@
REGISTER int index;
unsigned int nIndex;
int endIndex;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
endIndex = _intVal(_ClassInstPtr(__qClass(self))->c_ninstvars);
@@ -1343,4 +1338,4 @@
!Array class methodsFor:'documentation'!
version
-^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.50 1996-01-03 17:29:56 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.51 1996-01-04 01:22:40 cg Exp $'! !
--- a/Behavior.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Behavior.st Thu Jan 04 02:24:09 1996 +0100
@@ -1358,7 +1358,6 @@
REGISTER char *nextPtr;
unsigned int instsize;
REGISTER unsigned int nInstVars;
- extern OBJ __new();
/*
* the following ugly code is nothing more than a __new() followed
@@ -2335,9 +2334,7 @@
Does NOT (currently) handle MI"
%{ /* NOCONTEXT */
- extern OBJ __lookup__();
-
- RETURN ( __lookup__(self, aSelector, SENDER) );
+ RETURN ( __lookup(self, aSelector, SENDER) );
%}
"
@@ -2981,5 +2978,5 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.60 1995-12-23 18:17:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.61 1996-01-04 01:22:46 cg Exp $'
! !
--- a/Block.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Block.st Thu Jan 04 02:24:09 1996 +0100
@@ -81,7 +81,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.42 1995-11-23 11:15:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.43 1996-01-04 01:22:50 cg Exp $'
! !
!Block class methodsFor:'initialization'!
@@ -230,7 +230,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
if (_INST(nargs) == _MKSMALLINT(0)) {
#if defined(THIS_CONTEXT)
@@ -276,7 +275,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
if (_INST(nargs) == _MKSMALLINT(1)) {
#if defined(THIS_CONTEXT)
@@ -319,7 +317,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
if (_INST(nargs) == _MKSMALLINT(2)) {
#if defined(THIS_CONTEXT)
@@ -360,7 +357,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
if (_INST(nargs) == _MKSMALLINT(3)) {
#if defined(THIS_CONTEXT)
@@ -401,7 +397,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
if (_INST(nargs) == _MKSMALLINT(4)) {
#if defined(THIS_CONTEXT)
@@ -442,7 +437,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
if (_INST(nargs) == _MKSMALLINT(5)) {
#if defined(THIS_CONTEXT)
@@ -483,7 +477,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
if (_INST(nargs) == _MKSMALLINT(6)) {
#if defined(THIS_CONTEXT)
@@ -534,7 +527,6 @@
REGISTER OBJFUNC thecode;
OBJ home;
- extern OBJ __interpret(), interpret();
REGISTER OBJ *ap;
int nargs;
--- a/ByteArray.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ByteArray.st Thu Jan 04 02:24:09 1996 +0100
@@ -1965,7 +1965,6 @@
REGISTER int len;
unsigned char flags[256];
static struct inlineCache nw = _ILC1;
- extern OBJ ByteArray;
if (__qClass(self) == ByteArray) {
memset(flags, 0, sizeof(flags));
@@ -2009,5 +2008,5 @@
!ByteArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.40 1995-12-19 19:09:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.41 1996-01-04 01:22:53 cg Exp $'
! !
--- a/ExecFunc.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ExecFunc.st Thu Jan 04 02:24:09 1996 +0100
@@ -59,7 +59,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.18 1995-11-23 11:17:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ExecFunc.st,v 1.19 1996-01-04 01:22:56 cg Exp $'
! !
!ExecutableFunction class methodsFor:'initialization'!
@@ -99,7 +99,6 @@
Therefore an integer representing the code-address is returned"
%{ /* NOCONTEXT */
- extern OBJ __MKUINT();
unsigned addr;
if (_INST(code_) != nil) {
--- a/ExecutableFunction.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ExecutableFunction.st Thu Jan 04 02:24:09 1996 +0100
@@ -59,7 +59,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.18 1995-11-23 11:17:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExecutableFunction.st,v 1.19 1996-01-04 01:22:56 cg Exp $'
! !
!ExecutableFunction class methodsFor:'initialization'!
@@ -99,7 +99,6 @@
Therefore an integer representing the code-address is returned"
%{ /* NOCONTEXT */
- extern OBJ __MKUINT();
unsigned addr;
if (_INST(code_) != nil) {
--- a/Method.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Method.st Thu Jan 04 02:24:09 1996 +0100
@@ -36,7 +36,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.64 1995-12-13 17:51:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.65 1996-01-04 01:22:59 cg Exp $'
!
documentation
@@ -1413,7 +1413,6 @@
static struct inlineCache dummy = _DUMMYILC0;
int nargs;
OBJ *ap;
- extern OBJ __interpret(), interpret();
if (__isArray(argArray)) {
nargs = _arraySize(argArray);
--- a/ObjMem.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ObjMem.st Thu Jan 04 02:24:09 1996 +0100
@@ -668,9 +668,9 @@
are turned on, false of off."
%{ /* NOCONTEXT */
- extern int __getDebugPrinting__();
-
- RETURN (__getDebugPrinting__() ? true : false);
+ extern int __getDebugPrinting();
+
+ RETURN (__getDebugPrinting() ? true : false);
%}
!
@@ -683,7 +683,7 @@
severe errors."
%{ /* NOCONTEXT */
- __setDebugPrinting__( (aBoolean == true) );
+ __setDebugPrinting( (aBoolean == true) );
%}
!
@@ -692,9 +692,9 @@
are turned on, false of off."
%{ /* NOCONTEXT */
- extern int __getInfoPrinting__();
-
- RETURN (__getInfoPrinting__() ? true : false);
+ extern int __getInfoPrinting();
+
+ RETURN (__getInfoPrinting() ? true : false);
%}
!
@@ -706,7 +706,7 @@
are useful for ST/X developers."
%{ /* NOCONTEXT */
- __setInfoPrinting__( (aBoolean == true) );
+ __setInfoPrinting( (aBoolean == true) );
%}
! !
@@ -719,7 +719,7 @@
(true of trap was installed ok, false if failed) should be checked."
%{ /* NOCONTEXT */
- RETURN (__addTrapOnAccess__(anObject, 2) ? true : false);
+ RETURN (__addTrapOnAccess(anObject, 2) ? true : false);
%}
!
@@ -730,7 +730,7 @@
(true of trap was installed ok, false if failed) should be checked."
%{ /* NOCONTEXT */
- RETURN (__addTrapOnAccess__(anObject, 0) ? true : false);
+ RETURN (__addTrapOnAccess(anObject, 0) ? true : false);
%}
!
@@ -741,7 +741,7 @@
(true of trap was installed ok, false if failed) should be checked."
%{ /* NOCONTEXT */
- RETURN (__addTrapOnAccess__(anObject, 1) ? true : false);
+ RETURN (__addTrapOnAccess(anObject, 1) ? true : false);
%}
!
@@ -749,7 +749,7 @@
"remove all access traps"
%{ /* NOCONTEXT */
- __removeAllAccessTraps__();
+ __removeAllAccessTraps();
%}
!
@@ -757,7 +757,7 @@
"remove any access trap for anObject."
%{ /* NOCONTEXT */
- __removeTrapOnAccess__(anObject);
+ __removeTrapOnAccess(anObject);
%}
! !
@@ -3225,6 +3225,6 @@
!ObjectMemory class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.86 1996-01-03 23:29:24 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.87 1996-01-04 01:23:04 cg Exp $'
! !
ObjectMemory initialize!
--- a/Object.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Object.st Thu Jan 04 02:24:09 1996 +0100
@@ -2247,7 +2247,6 @@
].
numberOfArgs := argArray size.
%{
- extern OBJ Array, __AT_();
REGISTER OBJ *argP;
int nargs, i;
static struct inlineCache ilc0 = _DUMMYILC0;
@@ -2498,7 +2497,6 @@
numberOfArgs := argArray size.
%{
- extern OBJ Array, __AT_();
REGISTER OBJ *argP;
int nargs, i;
static OBJ last0 = nil; static struct inlineCache ilc0 = _ILC0;
@@ -3610,9 +3608,7 @@
"
%{ /* NOCONTEXT */
- extern OBJ __lookup__();
-
- if (__lookup__(__Class(self), aSelector) == nil) {
+ if (__lookup(__Class(self), aSelector) == nil) {
RETURN ( false );
}
RETURN ( true );
@@ -4190,6 +4186,6 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.82 1995-12-23 18:18:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.83 1996-01-04 01:23:13 cg Exp $'
! !
Object initialize!
--- a/ObjectMemory.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ObjectMemory.st Thu Jan 04 02:24:09 1996 +0100
@@ -668,9 +668,9 @@
are turned on, false of off."
%{ /* NOCONTEXT */
- extern int __getDebugPrinting__();
-
- RETURN (__getDebugPrinting__() ? true : false);
+ extern int __getDebugPrinting();
+
+ RETURN (__getDebugPrinting() ? true : false);
%}
!
@@ -683,7 +683,7 @@
severe errors."
%{ /* NOCONTEXT */
- __setDebugPrinting__( (aBoolean == true) );
+ __setDebugPrinting( (aBoolean == true) );
%}
!
@@ -692,9 +692,9 @@
are turned on, false of off."
%{ /* NOCONTEXT */
- extern int __getInfoPrinting__();
-
- RETURN (__getInfoPrinting__() ? true : false);
+ extern int __getInfoPrinting();
+
+ RETURN (__getInfoPrinting() ? true : false);
%}
!
@@ -706,7 +706,7 @@
are useful for ST/X developers."
%{ /* NOCONTEXT */
- __setInfoPrinting__( (aBoolean == true) );
+ __setInfoPrinting( (aBoolean == true) );
%}
! !
@@ -719,7 +719,7 @@
(true of trap was installed ok, false if failed) should be checked."
%{ /* NOCONTEXT */
- RETURN (__addTrapOnAccess__(anObject, 2) ? true : false);
+ RETURN (__addTrapOnAccess(anObject, 2) ? true : false);
%}
!
@@ -730,7 +730,7 @@
(true of trap was installed ok, false if failed) should be checked."
%{ /* NOCONTEXT */
- RETURN (__addTrapOnAccess__(anObject, 0) ? true : false);
+ RETURN (__addTrapOnAccess(anObject, 0) ? true : false);
%}
!
@@ -741,7 +741,7 @@
(true of trap was installed ok, false if failed) should be checked."
%{ /* NOCONTEXT */
- RETURN (__addTrapOnAccess__(anObject, 1) ? true : false);
+ RETURN (__addTrapOnAccess(anObject, 1) ? true : false);
%}
!
@@ -749,7 +749,7 @@
"remove all access traps"
%{ /* NOCONTEXT */
- __removeAllAccessTraps__();
+ __removeAllAccessTraps();
%}
!
@@ -757,7 +757,7 @@
"remove any access trap for anObject."
%{ /* NOCONTEXT */
- __removeTrapOnAccess__(anObject);
+ __removeTrapOnAccess(anObject);
%}
! !
@@ -3225,6 +3225,6 @@
!ObjectMemory class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.86 1996-01-03 23:29:24 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.87 1996-01-04 01:23:04 cg Exp $'
! !
ObjectMemory initialize!
--- a/ProcSched.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ProcSched.st Thu Jan 04 02:24:09 1996 +0100
@@ -497,7 +497,8 @@
dispatch
"It handles timeouts and switches to the highest prio runnable process"
- |any millis pri p nActions "{ Class: SmallInteger }" |
+ |any millis pri p nActions "{ Class: SmallInteger }"
+ checkBlock sema|
"
handle all timeout actions
@@ -513,8 +514,6 @@
any := false.
nActions := readCheckArray size.
1 to:nActions do:[:index |
- |checkBlock sema|
-
checkBlock := readCheckArray at:index.
(checkBlock notNil and:[checkBlock value]) ifTrue:[
sema := readSemaphoreArray at:index.
@@ -1837,6 +1836,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.63 1996-01-03 23:29:29 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ProcSched.st,v 1.64 1996-01-04 01:23:23 cg Exp $'
! !
ProcessorScheduler initialize!
--- a/ProcessorScheduler.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ProcessorScheduler.st Thu Jan 04 02:24:09 1996 +0100
@@ -497,7 +497,8 @@
dispatch
"It handles timeouts and switches to the highest prio runnable process"
- |any millis pri p nActions "{ Class: SmallInteger }" |
+ |any millis pri p nActions "{ Class: SmallInteger }"
+ checkBlock sema|
"
handle all timeout actions
@@ -513,8 +514,6 @@
any := false.
nActions := readCheckArray size.
1 to:nActions do:[:index |
- |checkBlock sema|
-
checkBlock := readCheckArray at:index.
(checkBlock notNil and:[checkBlock value]) ifTrue:[
sema := readSemaphoreArray at:index.
@@ -1837,6 +1836,6 @@
!ProcessorScheduler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.63 1996-01-03 23:29:29 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProcessorScheduler.st,v 1.64 1996-01-04 01:23:23 cg Exp $'
! !
ProcessorScheduler initialize!
--- a/ReadStr.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ReadStr.st Thu Jan 04 02:24:09 1996 +0100
@@ -337,7 +337,6 @@
unsigned ch;
OBJ coll;
OBJ cls, p, l;
- extern OBJ ByteArray;
coll = _INST(collection);
p = _INST(position);
@@ -557,5 +556,5 @@
!ReadStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.21 1995-12-07 21:38:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ReadStr.st,v 1.22 1996-01-04 01:23:30 cg Exp $'
! !
--- a/ReadStream.st Thu Jan 04 00:39:17 1996 +0100
+++ b/ReadStream.st Thu Jan 04 02:24:09 1996 +0100
@@ -337,7 +337,6 @@
unsigned ch;
OBJ coll;
OBJ cls, p, l;
- extern OBJ ByteArray;
coll = _INST(collection);
p = _INST(position);
@@ -557,5 +556,5 @@
!ReadStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.21 1995-12-07 21:38:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadStream.st,v 1.22 1996-01-04 01:23:30 cg Exp $'
! !
--- a/Rectangle.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Rectangle.st Thu Jan 04 02:24:09 1996 +0100
@@ -129,7 +129,6 @@
%{ /* NOCONTEXT */
REGISTER OBJ newRect;
- extern OBJ Point;
OBJ t;
int spc;
@@ -1146,5 +1145,5 @@
!Rectangle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.28 1995-11-23 17:42:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.29 1996-01-04 01:23:33 cg Exp $'
! !
--- a/SmallInt.st Thu Jan 04 00:39:17 1996 +0100
+++ b/SmallInt.st Thu Jan 04 02:24:09 1996 +0100
@@ -293,11 +293,10 @@
#endif
{
- extern OBJ LargeInteger;
static struct inlineCache val = _ILC5;
OBJ aLarge;
- aLarge = (*val.ilc_func)(LargeInteger,
+ aLarge = (*val.ilc_func)(@global(LargeInteger),
@symbol(sign:value16:value16:value16:value16:),
CON_COMMA nil, &val,
negative ? _MKSMALLINT(-1) : _MKSMALLINT(1),
@@ -329,13 +328,12 @@
RETURN ( _ADD_IO_IO(self, aNumber) );
#else
REGISTER INT sum;
- extern OBJ _MKLARGEINT();
sum = _intVal(self) + _intVal(aNumber);
if ((sum >= _MIN_INT) && (sum <= _MAX_INT)) {
RETURN ( _MKSMALLINT(sum) );
}
- RETURN ( _MKLARGEINT(sum) );
+ RETURN ( __MKLARGEINT(sum) );
#endif
}
if (__isFloatLike(aNumber)) {
@@ -360,13 +358,12 @@
RETURN ( _SUB_IO_IO(self, aNumber) );
#else
REGISTER INT diff;
- extern OBJ _MKLARGEINT();
diff = _intVal(self) - _intVal(aNumber);
if ((diff >= _MIN_INT) && (diff <= _MAX_INT)) {
RETURN ( _MKSMALLINT(diff) );
}
- RETURN ( _MKLARGEINT(diff) );
+ RETURN ( __MKLARGEINT(diff) );
#endif
}
if (__isFloatLike(aNumber)) {
@@ -665,11 +662,10 @@
RETURN ( _MKSMALLINT(result) );
}
{
- extern OBJ LargeInteger;
static struct inlineCache val = _ILC5;
OBJ aLarge;
- aLarge = (*val.ilc_func)(LargeInteger,
+ aLarge = (*val.ilc_func)(@global(LargeInteger),
@symbol(sign:value16:value16:value16:value16:),
CON_COMMA nil, &val,
_MKSMALLINT(1),
@@ -1203,7 +1199,6 @@
%{
REGISTER INT tmp;
REGISTER OBJFUNC code;
- extern OBJ Block;
static struct inlineCache blockVal = __ILC0(0);
REGISTER OBJ rHome;
@@ -1256,12 +1251,6 @@
#endif /* NEW_BLOCK_CALL */
}
if (_BlockInstPtr(aBlock)->b_bytecodes != nil) {
-#ifdef PASS_ARG_POINTER
- extern OBJ __interpret();
-#else
- extern OBJ interpret();
-#endif
-
/*
* an interpreted block
*/
@@ -1340,7 +1329,6 @@
REGISTER INT tmp, step;
REGISTER INT final;
REGISTER OBJFUNC code;
- extern OBJ Block;
static struct inlineCache blockVal = __ILC1(0);
REGISTER OBJ rHome;
@@ -1455,7 +1443,6 @@
REGISTER INT tmp;
INT final;
REGISTER OBJFUNC code;
- extern OBJ Block;
static struct inlineCache blockVal = __ILC1(0);
REGISTER OBJ rHome;
@@ -1521,11 +1508,6 @@
/*
* an interpreted block
*/
-#ifdef PASS_ARG_POINTER
- extern OBJ __interpret();
-#else
- extern OBJ interpret();
-#endif
home = _BlockInstPtr(aBlock)->b_home;
#ifdef PASS_ARG_POINTER
# ifdef INDIRECT_CALL_IS_FASTER
@@ -1968,5 +1950,5 @@
!SmallInteger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.42 1995-12-23 18:35:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/SmallInt.st,v 1.43 1996-01-04 01:23:38 cg Exp $'
! !
--- a/SmallInteger.st Thu Jan 04 00:39:17 1996 +0100
+++ b/SmallInteger.st Thu Jan 04 02:24:09 1996 +0100
@@ -293,11 +293,10 @@
#endif
{
- extern OBJ LargeInteger;
static struct inlineCache val = _ILC5;
OBJ aLarge;
- aLarge = (*val.ilc_func)(LargeInteger,
+ aLarge = (*val.ilc_func)(@global(LargeInteger),
@symbol(sign:value16:value16:value16:value16:),
CON_COMMA nil, &val,
negative ? _MKSMALLINT(-1) : _MKSMALLINT(1),
@@ -329,13 +328,12 @@
RETURN ( _ADD_IO_IO(self, aNumber) );
#else
REGISTER INT sum;
- extern OBJ _MKLARGEINT();
sum = _intVal(self) + _intVal(aNumber);
if ((sum >= _MIN_INT) && (sum <= _MAX_INT)) {
RETURN ( _MKSMALLINT(sum) );
}
- RETURN ( _MKLARGEINT(sum) );
+ RETURN ( __MKLARGEINT(sum) );
#endif
}
if (__isFloatLike(aNumber)) {
@@ -360,13 +358,12 @@
RETURN ( _SUB_IO_IO(self, aNumber) );
#else
REGISTER INT diff;
- extern OBJ _MKLARGEINT();
diff = _intVal(self) - _intVal(aNumber);
if ((diff >= _MIN_INT) && (diff <= _MAX_INT)) {
RETURN ( _MKSMALLINT(diff) );
}
- RETURN ( _MKLARGEINT(diff) );
+ RETURN ( __MKLARGEINT(diff) );
#endif
}
if (__isFloatLike(aNumber)) {
@@ -665,11 +662,10 @@
RETURN ( _MKSMALLINT(result) );
}
{
- extern OBJ LargeInteger;
static struct inlineCache val = _ILC5;
OBJ aLarge;
- aLarge = (*val.ilc_func)(LargeInteger,
+ aLarge = (*val.ilc_func)(@global(LargeInteger),
@symbol(sign:value16:value16:value16:value16:),
CON_COMMA nil, &val,
_MKSMALLINT(1),
@@ -1203,7 +1199,6 @@
%{
REGISTER INT tmp;
REGISTER OBJFUNC code;
- extern OBJ Block;
static struct inlineCache blockVal = __ILC0(0);
REGISTER OBJ rHome;
@@ -1256,12 +1251,6 @@
#endif /* NEW_BLOCK_CALL */
}
if (_BlockInstPtr(aBlock)->b_bytecodes != nil) {
-#ifdef PASS_ARG_POINTER
- extern OBJ __interpret();
-#else
- extern OBJ interpret();
-#endif
-
/*
* an interpreted block
*/
@@ -1340,7 +1329,6 @@
REGISTER INT tmp, step;
REGISTER INT final;
REGISTER OBJFUNC code;
- extern OBJ Block;
static struct inlineCache blockVal = __ILC1(0);
REGISTER OBJ rHome;
@@ -1455,7 +1443,6 @@
REGISTER INT tmp;
INT final;
REGISTER OBJFUNC code;
- extern OBJ Block;
static struct inlineCache blockVal = __ILC1(0);
REGISTER OBJ rHome;
@@ -1521,11 +1508,6 @@
/*
* an interpreted block
*/
-#ifdef PASS_ARG_POINTER
- extern OBJ __interpret();
-#else
- extern OBJ interpret();
-#endif
home = _BlockInstPtr(aBlock)->b_home;
#ifdef PASS_ARG_POINTER
# ifdef INDIRECT_CALL_IS_FASTER
@@ -1968,5 +1950,5 @@
!SmallInteger class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.42 1995-12-23 18:35:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.43 1996-01-04 01:23:38 cg Exp $'
! !
--- a/Smalltalk.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Smalltalk.st Thu Jan 04 02:24:09 1996 +0100
@@ -2601,11 +2601,11 @@
"return a copyright string"
%{ /* NOCONTEXT */
-#ifndef __getCopyrightString__
- extern OBJ __getCopyrightString__();
+#ifndef __getCopyrightString
+ extern OBJ __getCopyrightString();
#endif
- RETURN (__getCopyrightString__());
+ RETURN (__getCopyrightString());
%}
"
@@ -2617,11 +2617,11 @@
"return a string describing the distributor of this software"
%{ /* NOCONTEXT */
-#ifndef __getDistributorString__
- extern OBJ __getDistributorString__();
+#ifndef __getDistributorString
+ extern OBJ __getDistributorString();
#endif
- RETURN (__getDistributorString__());
+ RETURN (__getDistributorString());
%}
"
Smalltalk distributorString
@@ -2776,5 +2776,5 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.106 1995-12-23 19:46:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.107 1996-01-04 01:23:47 cg Exp $'
! !
--- a/Unix.st Thu Jan 04 00:39:17 1996 +0100
+++ b/Unix.st Thu Jan 04 02:24:09 1996 +0100
@@ -3210,8 +3210,6 @@
unblocking, in case of nested block/unblock calls."
%{ /* NOCONTEXT */
- extern OBJ __BLOCKINTERRUPTS();
-
RETURN ( __BLOCKINTERRUPTS() );
%}
!
@@ -3880,8 +3878,6 @@
calls - you must only unblock after a blockcall if they where
really not blocked before. See OperatingSystemclass>>blockInterrupts."
%{
- extern void __UNBLOCKINTERRUPTS();
-
__UNBLOCKINTERRUPTS();
%}
! !
@@ -4335,7 +4331,6 @@
char idBuffer[MAXSYSIDSIZE];
int retVal;
OBJ arr;
- extern OBJ __BYTEARRAY_UNINITIALIZED_NEW_INT();
if ((retVal = syssgi(SGI_SYSID, idBuffer)) == 0) {
arr = __BYTEARRAY_UNINITIALIZED_NEW_INT(MAXSYSIDSIZE);
@@ -4346,7 +4341,6 @@
#if defined(HAS_GETHOSTID)
int runningId;
OBJ arr;
- extern OBJ __BYTEARRAY_UNINITIALIZED_NEW_INT();
runningId = gethostid();
arr = __BYTEARRAY_UNINITIALIZED_NEW_INT(4);
@@ -5517,7 +5511,7 @@
if (! name || (name[0] == 0)) {
name = (char *)getenv("LOGNAME");
}
- if (strlen(name) < sizeof(cachedName)) {
+ if (name && (strlen(name) < sizeof(cachedName))) {
strcpy(cachedName, name);
firstCall = 0;
}
@@ -5984,6 +5978,6 @@
!OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.110 1996-01-03 23:29:40 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.111 1996-01-04 01:23:58 cg Exp $'
! !
OperatingSystem initialize!
--- a/VMBehavior.st Thu Jan 04 00:39:17 1996 +0100
+++ b/VMBehavior.st Thu Jan 04 02:24:09 1996 +0100
@@ -34,7 +34,7 @@
!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/VMBehavior.st,v 1.6 1995-12-23 18:18:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/VMBehavior.st,v 1.7 1996-01-04 01:24:06 cg Exp $'
!
documentation
@@ -545,9 +545,7 @@
Does NOT (currently) handle MI"
%{ /* NOCONTEXT */
- extern OBJ __lookup__();
-
- RETURN ( __lookup__(self, aSelector, SENDER) );
+ RETURN ( __lookup(self, aSelector, SENDER) );
%}
"
--- a/WeakArr.st Thu Jan 04 00:39:17 1996 +0100
+++ b/WeakArr.st Thu Jan 04 02:24:09 1996 +0100
@@ -291,7 +291,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
unsigned int nIndex;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
REGISTER OBJ rHome;
OBJ el;
@@ -361,7 +360,6 @@
REGISTER int index;
REGISTER OBJ rHome;
int nIndex, nInsts;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
int indexLow, indexHigh;
OBJ el;
@@ -438,7 +436,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
unsigned int nIndex;
- extern OBJ Block;
static struct inlineCache val2 = _ILC2;
REGISTER OBJ rHome;
OBJ el;
@@ -509,7 +506,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
int nIndex;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
REGISTER OBJ rHome;
REGISTER OBJ element;
@@ -601,6 +597,6 @@
!WeakArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.23 1995-12-15 12:47:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/WeakArr.st,v 1.24 1996-01-04 01:24:09 cg Exp $'
! !
WeakArray initialize!
--- a/WeakArray.st Thu Jan 04 00:39:17 1996 +0100
+++ b/WeakArray.st Thu Jan 04 02:24:09 1996 +0100
@@ -291,7 +291,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
unsigned int nIndex;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
REGISTER OBJ rHome;
OBJ el;
@@ -361,7 +360,6 @@
REGISTER int index;
REGISTER OBJ rHome;
int nIndex, nInsts;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
int indexLow, indexHigh;
OBJ el;
@@ -438,7 +436,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
unsigned int nIndex;
- extern OBJ Block;
static struct inlineCache val2 = _ILC2;
REGISTER OBJ rHome;
OBJ el;
@@ -509,7 +506,6 @@
REGISTER OBJFUNC codeVal;
REGISTER int index;
int nIndex;
- extern OBJ Block;
static struct inlineCache val = _ILC1;
REGISTER OBJ rHome;
REGISTER OBJ element;
@@ -601,6 +597,6 @@
!WeakArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.23 1995-12-15 12:47:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/WeakArray.st,v 1.24 1996-01-04 01:24:09 cg Exp $'
! !
WeakArray initialize!