class: Float
authorClaus Gittinger <cg@exept.de>
Sun, 31 Mar 2013 22:06:39 +0200
changeset 15017 d16c28f26b4f
parent 15016 27471b4d9776
child 15018 ab753ff7ce39
class: Float changed: #fromIEEE32Bit: ouch
Float.st
--- a/Float.st	Sun Mar 31 22:04:14 2013 +0200
+++ b/Float.st	Sun Mar 31 22:06:39 2013 +0200
@@ -347,7 +347,7 @@
     } r;
 
     r.i = __unsignedLongIntVal( anInteger );
-    RETURN( __MKFLOAT((double)(r.f));
+    RETURN( __MKFLOAT((double)(r.f)) );
 %}
 !
 
@@ -2901,11 +2901,11 @@
 !Float class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.193 2013-03-31 20:04:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.194 2013-03-31 20:06:39 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.193 2013-03-31 20:04:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Float.st,v 1.194 2013-03-31 20:06:39 cg Exp $'
 ! !