--- a/LongFloat.st	Tue Apr 04 12:01:49 2000 +0200
+++ b/LongFloat.st	Tue Apr 04 12:21:22 2000 +0200
@@ -907,6 +907,21 @@
 %}
 !
 
+numberOfBits
+    "return the size (in bits) of the real;
+     typically, 80 or 96 is returned here,
+     but who knows ..."
+
+%{  /* NOCONTEXT */
+
+    RETURN (__MKSMALLINT (sizeof(long double) * 8));
+%}
+
+    "
+     LongFloat basicNew numberOfBits  
+    "
+!
+
 positive
     "return true if the receiver is greater or equal to zero"
 
@@ -973,5 +988,5 @@
 !LongFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.10 2000-03-22 13:34:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.11 2000-04-04 10:21:22 ps Exp $'
 ! !