# HG changeset patch # User Claus Gittinger # Date 1427306074 -3600 # Node ID 7e86f6decdbadf26898f637900475f8a1aa5eee6 # Parent c9a781c91e1a7fa43e02f17e6f7d1ff5bc0d4bd2 class: Float class definition added: #emin diff -r c9a781c91e1a -r 7e86f6decdba 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 $' ! !