--- a/ShortFloat.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/ShortFloat.st	Fri Jul 08 19:15:03 2005 +0200
@@ -556,7 +556,7 @@
     double dResult, dVal;
 
     if (__isSmallInteger(aNumber)) {
-        if (aNumber != __MKSMALLINT(0)) {
+        if (aNumber != __mkSmallInteger(0)) {
             result = __shortFloatVal(self) / (float)(__intVal(aNumber));
 retResult:
             __qMKSFLOAT(newFloat, result);
@@ -694,7 +694,7 @@
 #endif
     {
         if ((fVal >= (float)_MIN_INT) && (fVal <= (float)_MAX_INT)) {
-            RETURN ( __MKSMALLINT( (INT)fVal) );
+            RETURN ( __mkSmallInteger( (INT)fVal) );
         }
     }
 %}.
@@ -1098,7 +1098,7 @@
 %{  /* NOCONTEXT */
 
     double frexp();
-    INT exp;
+    int exp;
 
     __threadErrno = 0;
 #if defined(__i386__) && defined(__GNUC__)
@@ -1107,7 +1107,7 @@
     frexp( (double)(__shortFloatVal(self)), &exp);
 #endif
     if (__threadErrno == 0) {
-        RETURN (__MKSMALLINT(exp));
+        RETURN (__mkSmallInteger(exp));
     }
 %}.
     ^ super exponent
@@ -1131,7 +1131,7 @@
      0.5 .. 1.0 and the floats value is mantissa * 2^exp"
 
 %{  /* NOCONTEXT */
-    INT exp;
+    int exp;
 
 #if defined(__i386__) && defined(__GNUC__)
     float frac;
@@ -1258,7 +1258,7 @@
 
 %{  /* NOCONTEXT */
 
-    RETURN (__MKSMALLINT (sizeof(float) * 8));
+    RETURN (__mkSmallInteger (sizeof(float) * 8));
 %}
 
     "
@@ -1305,7 +1305,7 @@
      * ST-80 (and X3J20) returns integer.
      */
     if ((fVal >= (float)_MIN_INT) && (fVal <= (float)_MAX_INT)) {
-        RETURN ( __MKSMALLINT( (INT) fVal ) );
+        RETURN ( __mkSmallInteger( (INT) fVal ) );
     }
     __qMKSFLOAT(val, fVal);
 %}.
@@ -1359,7 +1359,7 @@
      * ST-80 (and X3J20) returns integer.
      */
     if ((fVal >= (float)_MIN_INT) && (fVal <= (float)_MAX_INT)) {
-        RETURN ( __MKSMALLINT( (INT) fVal ) );
+        RETURN ( __mkSmallInteger( (INT) fVal ) );
     }
     __qMKSFLOAT(val, fVal);
 %}.
@@ -1459,7 +1459,7 @@
      * ST-80 (and X3J20) returns integer.
      */
     if ((fVal >= (float)_MIN_INT) && (fVal <= (float)_MAX_INT)) {
-        RETURN ( __MKSMALLINT( (INT) fVal ) );
+        RETURN ( __mkSmallInteger( (INT) fVal ) );
     }
     __qMKSFLOAT(val, fVal);
 %}.
@@ -1546,7 +1546,7 @@
      * ST-80 (and X3J20) returns integer.
      */
     if ((fVal >= (float)_MIN_INT) && (fVal <= (float)_MAX_INT)) {
-        RETURN ( __MKSMALLINT( (INT) fVal ) );
+        RETURN ( __mkSmallInteger( (INT) fVal ) );
     }
     __qMKSFLOAT(val, fVal);
 %}.
@@ -1600,5 +1600,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.88 2005-07-07 15:01:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.89 2005-07-08 17:15:02 cg Exp $'
 ! !