ShortFloat.st
changeset 11238 f321de80643a
parent 9896 307c7296064e
child 11720 79b29ccf5f3c
--- a/ShortFloat.st	Sun Oct 19 23:24:47 2008 +0200
+++ b/ShortFloat.st	Sun Oct 19 23:25:02 2008 +0200
@@ -9,9 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
-
 "{ Package: 'stx:libbasic' }"
 
 LimitedPrecisionReal variableByteSubclass:#ShortFloat
@@ -702,7 +699,8 @@
 !ShortFloat methodsFor:'coercing & converting'!
 
 asFloat
-    "return a Float with same value as the receiver"
+    "return a Float with same value as the receiver.
+     Redefined for performance (machine can do it faster)"
 
 %{  /* NOCONTEXT */
 
@@ -1638,5 +1636,5 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.95 2006-09-14 19:26:56 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.96 2008-10-19 21:25:02 cg Exp $'
 ! !