ByteArray.st
changeset 4159 4511561766e1
parent 4154 6938d9274ee4
child 4269 68e92699c3ad
--- a/ByteArray.st	Sat May 08 18:39:09 1999 +0200
+++ b/ByteArray.st	Sat May 08 19:12:09 1999 +0200
@@ -1262,6 +1262,25 @@
                             }
                             RETURN ( self );
                         }
+#else
+# ifdef alpha64
+                        if ((((unsigned INT)src & 7) == 0)
+                         && (((unsigned INT)dst & 7) == 0)) {
+                            /* copy aligned part */
+                            int nW = count >> 3;
+
+                            while (count >= 8) {
+                                ((unsigned INT *)dst)[0] = ((unsigned INT *)src)[0];
+                                dst += 8;
+                                src += 8;
+                                count -= 8;
+                            }
+                            while (count--) {
+                                *dst++ = *src++;
+                            }
+                            RETURN ( self );
+                        }
+# endif /* alpha64 */
 #endif /* bcopy4 */
 
 #ifdef FAST_MEMCPY
@@ -2157,5 +2176,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.108 1999-05-08 13:21:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.109 1999-05-08 17:12:09 cg Exp $'
 ! !