class: Float
authorClaus Gittinger <cg@exept.de>
Wed, 25 Mar 2015 18:54:34 +0100
changeset 18133 7e86f6decdba
parent 18132 c9a781c91e1a
child 18134 b4ce72849c11
class: Float class definition added: #emin
Float.st
--- a/Float.st	Wed Mar 25 18:54:05 2015 +0100
+++ b/Float.st	Wed Mar 25 18:54:34 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -628,6 +630,12 @@
     ^1023
 !
 
+emin
+    "Answer the minimum exponent for this representation."
+
+    ^ -1022
+!
+
 ln2
     "/ dont expect this many valid digits on all machines;
     "/ The actual precision is very CPU specific.
@@ -3094,11 +3102,11 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.212 2015-03-25 17:18:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.213 2015-03-25 17:54:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.212 2015-03-25 17:18:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.213 2015-03-25 17:54:34 cg Exp $'
 ! !