ShortFloat.st
changeset 25020 24168eb5923a
parent 25016 cbd04064b803
child 25035 9299dce50843
--- a/ShortFloat.st	Sun Dec 01 05:31:31 2019 +0100
+++ b/ShortFloat.st	Sun Dec 01 05:48:48 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by Claus Gittinger
 	      All Rights Reserved
@@ -636,13 +638,14 @@
 emax
     "The largest exponent value allowed by instances of this class."
 
-%{  /* NOCONTEXT */
-#include <float.h>
-#if defined(FLT_MAX_EXP)
-    RETURN(__MKSMALLINT(FLT_MAX_EXP));
-#endif
-%}.
-    ^ super emax
+    ^ 127
+"/%{  /* NOCONTEXT */
+"/#include <float.h>
+"/#if defined(FLT_MAX_EXP)
+"/    RETURN(__MKSMALLINT(FLT_MAX_EXP));
+"/#endif
+"/%}.
+"/    ^ super emax
 
     "
      1.0 asShortFloat fmax  -> 1.189731495357231765E+4932
@@ -655,13 +658,14 @@
 emin
     "The largest exponent value allowed by instances of this class."
 
-%{  /* NOCONTEXT */
-#include <float.h>
-#if defined(FLT_MIN_EXP)
-    RETURN(__MKSMALLINT(FLT_MIN_EXP));
-#endif
-%}.
-    ^ super emin
+    ^ -126
+"/%{  /* NOCONTEXT */
+"/#include <float.h>
+"/#if defined(FLT_MIN_EXP)
+"/    RETURN(__MKSMALLINT(FLT_MIN_EXP));
+"/#endif
+"/%}.
+"/    ^ super emin
 
     "
      1.0 asShortFloat fmax  -> 1.189731495357231765E+4932