class: SmallInteger
authorStefan Vogel <sv@exept.de>
Tue, 03 Jun 2014 09:23:32 +0200
changeset 16519 ed2a795da001
parent 16518 f6607802f8d4
child 16520 a1a1d558cfa3
class: SmallInteger changed: #byteSwapped64 fix for 32-bit architectures
SmallInteger.st
--- a/SmallInteger.st	Tue Jun 03 09:18:42 2014 +0200
+++ b/SmallInteger.st	Tue Jun 03 09:23:32 2014 +0200
@@ -1675,6 +1675,7 @@
     //                     xxxxxxxx                      xxxxxxxx
     //                              xxxxxxxx    xxxxxxxx
     swapped = (v>>24) | ((v>>8)&0xFF00) | ((v & 0xFF00)<<8) | ((v & 0xFF)<<24);
+    return __MKLARGEINT64(1, 0, swapped);
 #else
     //   xxxxxxxx 00000000 00000000 00000000 -> 00000000 00000000 00000000 xxxxxxxx  
     //            xxxxxxxx                                        xxxxxxxx
@@ -4487,11 +4488,11 @@
 !SmallInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.217 2014-05-14 15:01:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.218 2014-06-03 07:23:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.217 2014-05-14 15:01:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.218 2014-06-03 07:23:32 stefan Exp $'
 ! !