1673 // xxxxxxxx 00000000 00000000 00000000 -> 00000000 00000000 00000000 xxxxxxxx |
1673 // xxxxxxxx 00000000 00000000 00000000 -> 00000000 00000000 00000000 xxxxxxxx |
1674 // xxxxxxxx xxxxxxxx |
1674 // xxxxxxxx xxxxxxxx |
1675 // xxxxxxxx xxxxxxxx |
1675 // xxxxxxxx xxxxxxxx |
1676 // xxxxxxxx xxxxxxxx |
1676 // xxxxxxxx xxxxxxxx |
1677 swapped = (v>>24) | ((v>>8)&0xFF00) | ((v & 0xFF00)<<8) | ((v & 0xFF)<<24); |
1677 swapped = (v>>24) | ((v>>8)&0xFF00) | ((v & 0xFF00)<<8) | ((v & 0xFF)<<24); |
1678 return __MKLARGEINT64(1, 0, swapped); |
1678 RETURN(__MKLARGEINT64(1, 0, swapped)); |
1679 #else |
1679 #else |
1680 // xxxxxxxx 00000000 00000000 00000000 -> 00000000 00000000 00000000 xxxxxxxx |
1680 // xxxxxxxx 00000000 00000000 00000000 -> 00000000 00000000 00000000 xxxxxxxx |
1681 // xxxxxxxx xxxxxxxx |
1681 // xxxxxxxx xxxxxxxx |
1682 // xxxxxxxx xxxxxxxx |
1682 // xxxxxxxx xxxxxxxx |
1683 // xxxxxxxx xxxxxxxx |
1683 // xxxxxxxx xxxxxxxx |
1684 swapped = (v>>56) | ((v>>40)&0xFF00) | ((v>>24) & 0xFF0000) | ((v>>8) & 0xFF000000) |
1684 swapped = (v>>56) | ((v>>40)&0xFF00) | ((v>>24) & 0xFF0000) | ((v>>8) & 0xFF000000) |
1685 | ((v & 0xFF000000)<<8) | ((v & 0x00FF0000)<<24) | ((v & 0x0000FF00)<<40) |
1685 | ((v & 0xFF000000)<<8) | ((v & 0x00FF0000)<<24) | ((v & 0x0000FF00)<<40) |
1686 | ((v & 0xFF)<<56); |
1686 | ((v & 0xFF)<<56); |
1687 #endif |
1687 #endif |
1688 return __MKUINT( swapped ); |
1688 RETURN(__MKUINT( swapped )); |
1689 %}. |
1689 %}. |
1690 |
1690 |
1691 " |
1691 " |
1692 16r11223344 byteSwapped64 hexPrintString |
1692 16r11223344 byteSwapped64 hexPrintString |
1693 16r44332211 byteSwapped64 hexPrintString |
1693 16r44332211 byteSwapped64 hexPrintString |
4486 ! ! |
4486 ! ! |
4487 |
4487 |
4488 !SmallInteger class methodsFor:'documentation'! |
4488 !SmallInteger class methodsFor:'documentation'! |
4489 |
4489 |
4490 version |
4490 version |
4491 ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.218 2014-06-03 07:23:32 stefan Exp $' |
4491 ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.219 2014-06-03 07:37:26 stefan Exp $' |
4492 ! |
4492 ! |
4493 |
4493 |
4494 version_CVS |
4494 version_CVS |
4495 ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.218 2014-06-03 07:23:32 stefan Exp $' |
4495 ^ '$Header: /cvs/stx/stx/libbasic/SmallInteger.st,v 1.219 2014-06-03 07:37:26 stefan Exp $' |
4496 ! ! |
4496 ! ! |
4497 |
4497 |
4498 |
4498 |
4499 SmallInteger initialize! |
4499 SmallInteger initialize! |