#BUGFIX by exept
authorClaus Gittinger <cg@exept.de>
Sun, 01 Dec 2019 05:51:01 +0100
changeset 25022 391997c035aa
parent 25021 33a9aa9a5efe
child 25023 668578d60026
#BUGFIX by exept class: LongFloat class changed: #emax #emin
LongFloat.st
--- a/LongFloat.st	Sun Dec 01 05:49:30 2019 +0100
+++ b/LongFloat.st	Sun Dec 01 05:51:01 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1999 by eXept Software AG
 	      All Rights Reserved
@@ -727,13 +729,14 @@
 emax
     "The largest exponent value allowed by instances of this class."
 
-%{  /* NOCONTEXT */
-#include <float.h>
-#if defined(LDBL_MAX_EXP)
-    RETURN(__MKSMALLINT(LDBL_MAX_EXP));
-#endif
-%}.
-    ^ super emax
+    ^ 16383
+"/%{  /* NOCONTEXT */
+"/#include <float.h>
+"/#if defined(LDBL_MAX_EXP)
+"/    RETURN(__MKSMALLINT(LDBL_MAX_EXP));
+"/#endif
+"/%}.
+"/    ^ super emax
 
     "
      1.0 asLongFloat fmax  -> 1.189731495357231765E+4932
@@ -746,13 +749,14 @@
 emin
     "The smallest exponent value allowed by instances of this class."
 
-%{  /* NOCONTEXT */
-#include <float.h>
-#if defined(LDBL_MIN_EXP)
-    RETURN(__MKSMALLINT(LDBL_MIN_EXP));
-#endif
-%}.
-    ^ super emin
+    ^ -16382 
+"/%{  /* NOCONTEXT */
+"/#include <float.h>
+"/#if defined(LDBL_MIN_EXP)
+"/    RETURN(__MKSMALLINT(LDBL_MIN_EXP));
+"/#endif
+"/%}.
+"/    ^ super emin
 
     "
      1.0 asLongFloat fmax  -> 1.189731495357231765E+4932