#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Thu, 05 Dec 2019 15:03:34 +0100
changeset 5358 339af06b05c9
parent 5357 84fd4db36651
child 5359 8dab51321a7c
#BUGFIX by cg class: IEEEFloat removed: #inspectorExtraAttributes changed: #productFromIEEEFloat:
IEEEFloat.st
--- a/IEEEFloat.st	Thu Dec 05 15:02:09 2019 +0100
+++ b/IEEEFloat.st	Thu Dec 05 15:03:34 2019 +0100
@@ -541,6 +541,10 @@
 
     m1 := anIEEEFloat mantissaBits. 
     m2 := self mantissaBits.        
+    (m1 = 0 or:[m2 = 0]) ifTrue:[
+        "/ care for the sign of the zero
+        ^ self class zero
+    ].
 
     nM1 := anIEEEFloat numBitsInMantissa.   
     nM2 := nM := self numBitsInMantissa.
@@ -792,12 +796,6 @@
     "
 ! !
 
-!IEEEFloat methodsFor:'inspecting'!
-
-inspectorExtraAttributes
-    ^ super inspectorExtraAttributes "/ #()
-! !
-
 !IEEEFloat methodsFor:'mathematical functions'!
 
 log10