--- a/ExternalFunction.st Tue Jul 22 17:41:20 1997 +0200
+++ b/ExternalFunction.st Tue Jul 22 17:44:51 1997 +0200
@@ -26,7 +26,7 @@
*
* CAVEAT: floats are not allowed.
*/
-int
+INT
convertST_to_C(stObj)
OBJ stObj;
{
@@ -34,35 +34,35 @@
OBJ *oP;
if (__isString(stObj) || __isSymbol(stObj)) {
- return (int)(__stringVal(stObj));
+ return (INT)(__stringVal(stObj));
}
if (__isByteArray(stObj)) {
- return (int)(__ByteArrayInstPtr(stObj)->ba_element);
+ return (INT)(__ByteArrayInstPtr(stObj)->ba_element);
}
if (__isExternalBytes(stObj)) {
- return (int)(__externalBytesAddress(stObj));
+ return (INT)(__externalBytesAddress(stObj));
}
if (__isExternalAddress(stObj)) {
- return (int)(__externalAddressVal(stObj));
+ return (INT)(__externalAddressVal(stObj));
}
if (__isExternalFunction(stObj)) {
- return (int)(__externalFunctionVal(stObj));
+ return (INT)(__externalFunctionVal(stObj));
}
if (__isSmallInteger(stObj)) {
- return (int)(__intVal(stObj));
+ return (INT)(__intVal(stObj));
}
if (__isLargeInteger(stObj)) {
- return (int)(__signedLongIntVal(stObj));
+ return (INT)(__signedLongIntVal(stObj));
}
if (__isCharacter(stObj)) {
- return (int)(__intVal(__characterVal(stObj)));
+ return (INT)(__intVal(__characterVal(stObj)));
}
if (stObj == nil) {
return 0;
}
if (__qClass(stObj) == @global(ShortFloat)) {
- return (int)(__shortFloatVal(stObj));
+ return (INT)(__shortFloatVal(stObj));
}
flags = __intVal(__ClassInstPtr(__qClass(stObj))->c_flags) & ARRAYMASK;
@@ -70,28 +70,28 @@
oP = (OBJ *)__InstPtr(stObj)->i_instvars[nInst];
if (flags & FLOATARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (flags & DOUBLEARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (flags & DOUBLEARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (flags & BYTEARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (flags & WORDARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (flags & LONGARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (flags & SWORDARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (flags & SLONGARRAY) {
- return (int)(oP);
+ return (INT)(oP);
}
if (stObj == true) {
@@ -421,7 +421,7 @@
"
%{
INTFUNC func;
- int retVal;
+ INT retVal;
func = (INTFUNC) __INST(code_);
if (func) {
@@ -445,7 +445,7 @@
"
%{
INTFUNC func;
- int retVal;
+ INT retVal;
func = (INTFUNC) __INST(code_);
if (func) {
@@ -654,6 +654,6 @@
!ExternalFunction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.13 1996-07-15 06:37:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunction.st,v 1.14 1997-07-22 15:44:46 cg Exp $'
! !
ExternalFunction initialize!