Float.st
changeset 25021 33a9aa9a5efe
parent 25008 89196028f729
child 25026 2431af02a4c7
--- a/Float.st	Sun Dec 01 05:48:48 2019 +0100
+++ b/Float.st	Sun Dec 01 05:49:30 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -919,13 +921,14 @@
 emax
     "The largest exponent value allowed by instances of this class."
 
-%{  /* NOCONTEXT */
-#include <float.h>
-#if defined(DBL_MAX_EXP)
-    RETURN(__MKSMALLINT(DBL_MAX_EXP));
-#endif
-%}.
-    ^ super emax
+    ^ 1023
+"/%{  /* NOCONTEXT */
+"/#include <float.h>
+"/#if defined(DBL_MAX_EXP)
+"/    RETURN(__MKSMALLINT(DBL_MAX_EXP));
+"/#endif
+"/%}.
+"/    ^ super emax
 
     "
      1.0 fmax  -> 1.189731495357231765E+4932
@@ -938,13 +941,14 @@
 emin
     "The smallest exponent value allowed by instances of this class."
 
-%{  /* NOCONTEXT */
-#include <float.h>
-#if defined(DBL_MIN_EXP)
-    RETURN(__MKSMALLINT(DBL_MIN_EXP));
-#endif
-%}.
-    ^ super emin
+    ^ -1022
+"/%{  /* NOCONTEXT */
+"/#include <float.h>
+"/#if defined(DBL_MIN_EXP)
+"/    RETURN(__MKSMALLINT(DBL_MIN_EXP));
+"/#endif
+"/%}.
+"/    ^ super emin
 
     "
      1.0 fmax  -> 1.189731495357231765E+4932