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