# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1418732517 -3600
# Node ID 9ff268844b9c3477c22ebda43c25a27e17a0fb73
# Parent  1ee235ddab7fcb17c83aad83ea921f88f4aec5d9
class: ArithmeticValue
added:
        #as32BitIEEEFloatBytesMSB:
        #as64BitIEEEFloatBytesMSB:

diff -r 1ee235ddab7f -r 9ff268844b9c ArithmeticValue.st
--- a/ArithmeticValue.st	Tue Dec 16 13:20:28 2014 +0100
+++ b/ArithmeticValue.st	Tue Dec 16 13:21:57 2014 +0100
@@ -505,6 +505,24 @@
 
 !ArithmeticValue methodsFor:'converting'!
 
+as32BitIEEEFloatBytesMSB:msb
+    ^ self asShortFloat digitBytesMSB:msb
+
+    "
+        2  as32BitIEEEFloatBytesMSB:true
+        2.0  as32BitIEEEFloatBytesMSB:true
+    "
+!
+
+as64BitIEEEFloatBytesMSB:msb
+    ^ self asFloat digitBytesMSB:msb
+
+    "
+        2  as64BitIEEEFloatBytesMSB:true
+        2.0  as64BitIEEEFloatBytesMSB:true
+    "
+!
+
 asDouble
     "ST80 compatibility: return a double with receivers value.
      our floats are the identical to ST80 doubles"
@@ -1408,11 +1426,11 @@
 !ArithmeticValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.97 2014-12-16 12:21:57 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.97 2014-12-16 12:21:57 stefan Exp $'
 ! !