equal
deleted
inserted
replaced
685 longLongAt:byteIndex put:anInteger |
685 longLongAt:byteIndex put:anInteger |
686 "store a signed longLong (64bit) integer. |
686 "store a signed longLong (64bit) integer. |
687 The index is a smalltalk index (i.e. 1-based). |
687 The index is a smalltalk index (i.e. 1-based). |
688 Same as #signedQuadWordAt:put: - for ST80 compatibility." |
688 Same as #signedQuadWordAt:put: - for ST80 compatibility." |
689 |
689 |
690 ^ self signedQuadWordAt:byteIndex put:anInteger |
690 |v| |
691 |
691 |
692 "Modified: / 3.4.1998 / 13:33:14 / cg" |
692 v := anInteger. |
693 "Created: / 3.4.1998 / 13:34:22 / cg" |
693 anInteger < 0 ifTrue:[ |
|
694 v := v + 16r10000000000000000 |
|
695 ]. |
|
696 ^ self unsignedLongLongAt:byteIndex put:v |
694 ! |
697 ! |
695 |
698 |
696 longLongAt:byteIndex put:anInteger bigEndian:msb |
699 longLongAt:byteIndex put:anInteger bigEndian:msb |
697 "store a signed longLong (64bit) integer. |
700 "store a signed longLong (64bit) integer. |
698 The index is a smalltalk index (i.e. 1-based). |
701 The index is a smalltalk index (i.e. 1-based). |
2173 ! ! |
2176 ! ! |
2174 |
2177 |
2175 !UninterpretedBytes class methodsFor:'documentation'! |
2178 !UninterpretedBytes class methodsFor:'documentation'! |
2176 |
2179 |
2177 version |
2180 version |
2178 ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.47 2003-12-18 17:15:52 cg Exp $' |
2181 ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.48 2003-12-19 13:31:20 cg Exp $' |
2179 ! ! |
2182 ! ! |