--- a/ShortFloat.st Wed Mar 25 18:18:33 2015 +0100
+++ b/ShortFloat.st Wed Mar 25 18:53:43 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1996 by Claus Gittinger
All Rights Reserved
@@ -485,12 +487,25 @@
^127
!
+emin
+ "Answer the minimum exponent for this representation."
+
+ ^-126
+!
+
pi
"return the constant pi as ShortFloat"
^ Float pi asShortFloat
!
+powersOfTwo
+ "/ sigh: cannot have PoersOfTwo as class nstvar (yet)
+ PowersOfTwo notNil ifTrue: [^PowersOfTwo].
+ PowersOfTwo := self newPowersOfTwo.
+ ^PowersOfTwo
+!
+
unity
"return the neutral element for multiplication (1.0) as ShortFloat"
@@ -2048,11 +2063,11 @@
!ShortFloat class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.138 2015-03-25 17:17:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.139 2015-03-25 17:53:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.138 2015-03-25 17:17:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.139 2015-03-25 17:53:43 cg Exp $'
! !