--- a/ByteArray.st Wed Oct 22 08:08:30 2008 +0200
+++ b/ByteArray.st Wed Oct 22 08:42:16 2008 +0200
@@ -2628,26 +2628,24 @@
unsigned int t;
if (__qClass(self) == @global(ByteArray) && __bothSmallInteger(i1, i2)) {
- __i1 = __intVal(i1) - 1;
- __i2 = __intVal(i2) - 1;
- cnt = __byteArraySize(self);
- p = __ByteArrayInstPtr(self)->ba_element;
- if (__i1 < cnt && __i2 < cnt) {
- t = p[__i1];
- p[__i1] = p[__i2];
- p[__i2] = t;
- }
- RETURN ( self );
+ __i1 = __intVal(i1) - 1;
+ __i2 = __intVal(i2) - 1;
+ cnt = __byteArraySize(self);
+ p = __ByteArrayInstPtr(self)->ba_element;
+ if (__i1 < cnt && __i2 < cnt) {
+ t = p[__i1];
+ p[__i1] = p[__i2];
+ p[__i2] = t;
+ }
+ RETURN ( self );
}
%}.
- ^ super swapIndex:i1 and:i2 "/ rubbish - there is no one currenl
+ ^ super swapIndex:i1 and:i2 "/ rubbish - there is no one currently
"
#[1 2 3 4 5 6 7 8 9 10] copy swapIndex:1 and:10
#[1 2 3 4 5 6 7 8 9 10 11] copy swapIndex:5 and:6
"
-
-
!
swapLongs
@@ -3198,5 +3196,5 @@
!ByteArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.185 2008-10-22 06:07:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.186 2008-10-22 06:42:16 cg Exp $'
! !