--- a/ByteArray.st Fri May 03 22:10:40 1996 +0200
+++ b/ByteArray.st Fri May 03 22:11:14 1996 +0200
@@ -871,14 +871,14 @@
|v|
- value > 0 ifTrue:[
- v := value
+ value >= 0 ifTrue:[
+ v := value
] ifFalse:[
- "
- stupid: due to an STC bug, cannot currently have LargeInteger
- constants - change to code below when fixed ...
- "
- v := value + (16r10000000 * 16r10)
+ "
+ stupid: due to an STC bug, cannot currently have LargeInteger
+ constants - change to code below when fixed ...
+ "
+ v := value + (16r10000000 * 16r10)
"//// v := value + 16r100000000
].
self doubleWordAt:index put:v.
@@ -890,6 +890,8 @@
b signedDoubleWordAt:1 put:-1.
(b doubleWordAt:1) printStringRadix:16
"
+
+ "Modified: 3.5.1996 / 22:10:45 / cg"
!
signedDoubleWordAt:index put:value MSB:msb
@@ -2172,5 +2174,5 @@
!ByteArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.58 1996-05-03 20:10:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.59 1996-05-03 20:11:14 cg Exp $'
! !