--- 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