equal
deleted
inserted
replaced
815 |
815 |
816 "Modified: / 1.7.1996 / 21:11:39 / cg" |
816 "Modified: / 1.7.1996 / 21:11:39 / cg" |
817 "Created: / 5.3.1998 / 10:57:18 / stefan" |
817 "Created: / 5.3.1998 / 10:57:18 / stefan" |
818 ! |
818 ! |
819 |
819 |
|
820 longAt:byteIndex put:anInteger bigEndian:msb |
|
821 "store a signed long (32bit) integer. |
|
822 The index is a smalltalk index (i.e. 1-based). |
|
823 Same as #signedQuadWordAt:put: - for ST80 compatibility." |
|
824 |
|
825 |v| |
|
826 |
|
827 v := anInteger. |
|
828 anInteger < 0 ifTrue:[ |
|
829 v := v + 16r100000000 |
|
830 ]. |
|
831 ^ self unsignedLongAt:byteIndex put:v bigEndian:msb |
|
832 |
|
833 "Created: / 9.5.1998 / 01:10:24 / cg" |
|
834 "Modified: / 9.5.1998 / 01:13:34 / cg" |
|
835 ! |
|
836 |
820 longLongAt:index |
837 longLongAt:index |
821 "return the 8-bytes starting at index as a signed Integer. |
838 "return the 8-bytes starting at index as a signed Integer. |
822 The index is a smalltalk index (i.e. 1-based). |
839 The index is a smalltalk index (i.e. 1-based). |
823 The value is retrieved in the machines natural byte order. |
840 The value is retrieved in the machines natural byte order. |
824 This may be worth a primitive." |
841 This may be worth a primitive." |
1827 ! ! |
1844 ! ! |
1828 |
1845 |
1829 !UninterpretedBytes class methodsFor:'documentation'! |
1846 !UninterpretedBytes class methodsFor:'documentation'! |
1830 |
1847 |
1831 version |
1848 version |
1832 ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.26 1998-05-08 23:14:46 cg Exp $' |
1849 ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.27 1998-05-14 17:00:09 ca Exp $' |
1833 ! ! |
1850 ! ! |
1834 UninterpretedBytes initialize! |
1851 UninterpretedBytes initialize! |