added: byteSwapped
authorClaus Gittinger <cg@exept.de>
Tue, 31 Jan 2012 12:18:30 +0100
changeset 13993 14b7b1edf4b5
parent 13992 459aea99d16b
child 13994 1689d195956d
added: byteSwapped
Integer.st
--- a/Integer.st	Tue Jan 31 12:18:26 2012 +0100
+++ b/Integer.st	Tue Jan 31 12:18:30 2012 +0100
@@ -757,8 +757,6 @@
     "Modified: / 15.11.1999 / 20:35:20 / cg"
 ! !
 
-
-
 !Integer class methodsFor:'class initialization'!
 
 initialize
@@ -2214,6 +2212,13 @@
     "
 !
 
+byteSwapped
+    ^ LargeInteger 
+        digitBytes:(self digitBytes) MSB:true
+
+    "Created: / 31-01-2012 / 12:17:57 / cg"
+!
+
 digitByteLength
     "return the number bytes required for a 2's complement
      binary representation of this Integer.
@@ -4088,7 +4093,6 @@
     "Created: / 09-01-2012 / 17:18:06 / cg"
 ! !
 
-
 !Integer methodsFor:'special modulu arithmetic'!
 
 add_32:anInteger
@@ -4775,11 +4779,11 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.260 2012-01-09 19:38:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.261 2012-01-31 11:18:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.260 2012-01-09 19:38:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.261 2012-01-31 11:18:30 cg Exp $'
 ! !
 
 Integer initialize!