diff -r 635e877a7fee -r e9d0b744512a QDouble.st --- a/QDouble.st Sun Nov 24 16:16:38 2019 +0100 +++ b/QDouble.st Sun Nov 24 16:16:50 2019 +0100 @@ -1184,7 +1184,9 @@ ! numBitsInExponent - "answer the number of bits in the exponent" + "answer the number of bits in the exponent. + I use regular IEEE doubles to store the value, + thus my exponent bits are the same as double's exponent bits" ^ Float numBitsInExponent @@ -1403,6 +1405,13 @@ ! exponent + "extract a normalized float's (unbiased) exponent. + The returned value depends on the float-representation of + the underlying machine and is therefore highly unportable. + This is not for general use. + This assumes that the mantissa is normalized to + 0.5 .. 1.0 and the float's value is: mantissa * 2^exp" + ^ self d0 exponent "Created: / 20-06-2017 / 11:06:02 / cg"