# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 861891800 -7200
# Node ID 6c25622320aa10030627565f10947a10aab8a71e
# Parent  d8449ccdc4a8e0494d9e347c4e95ce9f38b0784f
checkin from browser

diff -r d8449ccdc4a8 -r 6c25622320aa ByteArray.st
--- a/ByteArray.st	Wed Apr 23 17:14:38 1997 +0200
+++ b/ByteArray.st	Thu Apr 24 16:23:20 1997 +0200
@@ -1915,7 +1915,7 @@
 !
 
 reverse
-    "reverse order of elements inplace - 
+    "reverse the order of my elements inplace - 
      written as a primitive for speed on image manipulations (mirror)"
 
 %{  /* NOCONTEXT */
@@ -1926,19 +1926,23 @@
     OBJ cls;
 
     if (__qClass(self) == @global(ByteArray)) {
-	cnt = __byteArraySize(self);
-	p1 = __ByteArrayInstPtr(self)->ba_element;
-	p2 = p1 + cnt - 1;
-	while (cnt > 0) {
-	    t = *p1;
-	    *p1++ = *p2;
-	    *p2-- = t;
-	    cnt-=2;
-	}
-	RETURN ( self );
+        cnt = __byteArraySize(self);
+        p1 = __ByteArrayInstPtr(self)->ba_element;
+        p2 = p1 + cnt - 1;
+        while (p1 < p2) {
+            t = *p1;
+            *p1++ = *p2;
+            *p2-- = t;
+        }
+        RETURN ( self );
     }
 %}.
     ^ super reverse
+
+    "
+     #[1 2 3 4 5] reverse
+     #[1 2 3 4] reverse
+    "
 !
 
 swapBytes
@@ -2306,5 +2310,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.78 1997-04-22 18:59:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.79 1997-04-24 14:23:20 cg Exp $'
 ! !