Float.st
changeset 25037 de5003b510c4
parent 25026 2431af02a4c7
child 25045 35756ba8c89e
--- a/Float.st	Mon Dec 02 10:43:47 2019 +0100
+++ b/Float.st	Mon Dec 02 10:45:32 2019 +0100
@@ -58,10 +58,6 @@
 # include <locale.h>
 #endif
 
-#if defined (__aix__)
-# include <float.h>
-#endif
-
 #if defined(__irix__)
 # include <nan.h>
 #endif
@@ -896,8 +892,6 @@
 
 %{
 #ifdef __BORLANDC__
-#include <float.h>
-
     // Set precision to long double / 64bit
     int result = _control87(PC_64, MCW_PC);
     RETURN(__MKSMALLINT(result));
@@ -1038,7 +1032,7 @@
 numBitsInMantissa
     "answer the number of bits in the mantissa (the significant).
      This is an IEEE double (binary64), where 52 bits are available (the hidden bit is not counted here):
-        seeeeeee eeeemmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm
+	seeeeeee eeeemmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm
     "
 
      ^ 52
@@ -2425,24 +2419,24 @@
     int len;
 
     if (__isStringLike(formatString)) {
-        /*
-         * actually only needed on sparc: since thisContext is
-         * in a global register, which gets destroyed by printf,
-         * manually save it here - very stupid ...
-         */
-        __BEGIN_PROTECT_REGISTERS__
-
-        len = snprintf(buffer, sizeof(buffer), __stringVal(formatString), __floatVal(self));
-
-        __END_PROTECT_REGISTERS__
-
-        if (len < 0) goto fail;
-        if (len >= sizeof(buffer)) goto fail;
-
-        s = __MKSTRING_L(buffer, len);
-        if (s != nil) {
-            RETURN (s);
-        }
+	/*
+	 * actually only needed on sparc: since thisContext is
+	 * in a global register, which gets destroyed by printf,
+	 * manually save it here - very stupid ...
+	 */
+	__BEGIN_PROTECT_REGISTERS__
+
+	len = snprintf(buffer, sizeof(buffer), __stringVal(formatString), __floatVal(self));
+
+	__END_PROTECT_REGISTERS__
+
+	if (len < 0) goto fail;
+	if (len >= sizeof(buffer)) goto fail;
+
+	s = __MKSTRING_L(buffer, len);
+	if (s != nil) {
+	    RETURN (s);
+	}
     }
 fail: ;
 #endif /* not __SCHTEAM__ */
@@ -2773,8 +2767,8 @@
     if (! (isnan(myVal) || isinf(myVal)))
 #endif
     {
-        frac = frexp(myVal, &exp);
-        RETURN (__MKFLOAT(frac));
+	frac = frexp(myVal, &exp);
+	RETURN (__MKFLOAT(frac));
     }
 %}.
     ^ super mantissa
@@ -2782,8 +2776,8 @@
     "
      1.0 exponent
      1.0 mantissa
-     -1.0 exponent 
-     -1.0 mantissa 
+     -1.0 exponent
+     -1.0 mantissa
 
      0.25 exponent
      0.25 mantissa