--- a/UninterpretedBytes.st Thu Dec 18 18:15:52 2003 +0100
+++ b/UninterpretedBytes.st Fri Dec 19 14:31:20 2003 +0100
@@ -687,10 +687,13 @@
The index is a smalltalk index (i.e. 1-based).
Same as #signedQuadWordAt:put: - for ST80 compatibility."
- ^ self signedQuadWordAt:byteIndex put:anInteger
+ |v|
- "Modified: / 3.4.1998 / 13:33:14 / cg"
- "Created: / 3.4.1998 / 13:34:22 / cg"
+ v := anInteger.
+ anInteger < 0 ifTrue:[
+ v := v + 16r10000000000000000
+ ].
+ ^ self unsignedLongLongAt:byteIndex put:v
!
longLongAt:byteIndex put:anInteger bigEndian:msb
@@ -2175,5 +2178,5 @@
!UninterpretedBytes class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.47 2003-12-18 17:15:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UninterpretedBytes.st,v 1.48 2003-12-19 13:31:20 cg Exp $'
! !