comment
authorClaus Gittinger <cg@exept.de>
Wed, 22 Oct 2008 08:42:16 +0200
changeset 11265 dd57cc0a379b
parent 11264 e25185002b17
child 11266 4f9e413eba36
comment
ByteArray.st
--- 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 $'
 ! !