--- a/QuadFloat.st Sun Dec 01 16:12:19 2019 +0100
+++ b/QuadFloat.st Sun Dec 01 16:12:27 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"{ Package: 'stx:libbasic2' }"
"{ NameSpace: Smalltalk }"
@@ -516,10 +518,9 @@
!
numBitsInMantissa
- "answer the number of bits in the mantissa
- the hidden bit is not counted here:
-
- This is an 128bit quadfloat, where 112 bits are available in the mantissa:
+ "answer the number of bits in the mantissa (the significant)
+ This is an 128bit quadfloat, where 112 bits are available in the mantissa
+ (the hidden bit is not counted here):
seeeeeee eeeeeeee mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm mmmmmmmm...
"