Float.st
branchjv
changeset 19332 9686fae7951b
parent 19103 71257a47eba2
parent 19326 aa152894e736
child 19406 faccbadf3034
--- a/Float.st	Thu Mar 10 08:13:13 2016 +0000
+++ b/Float.st	Fri Mar 11 10:06:30 2016 +0000
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -794,6 +796,11 @@
      by 53 binary digits (although only 52 are needed in the binary representation)"
 
     ^  53
+
+    "
+     self numBitsInMantissa + 1
+     self precision
+    "
 !
 
 radix