class: ByteArray
authorClaus Gittinger <cg@exept.de>
Thu, 31 Jul 2014 13:26:23 +0200
changeset 16806 575f0e271998
parent 16805 e1f4f10936c0
child 16807 bc405567df40
class: ByteArray changed: #containsNon7BitAscii
ByteArray.st
--- a/ByteArray.st	Thu Jul 31 13:25:30 2014 +0200
+++ b/ByteArray.st	Thu Jul 31 13:26:23 2014 +0200
@@ -2808,6 +2808,12 @@
     if (__isByteArray(self)) {
         cp = &(__ByteArrayInstPtr(self)->ba_element[0]);
         endP = cp + __ByteArraySize(self);
+#if __POINTER_SIZE__ == 8
+        while (cp+8 < endP) {
+            if ( ((unsigned INT *)cp)[0] & 0x8080808080808080) RETURN( true );
+            cp += 8;
+        }
+#endif
         while (cp+4 < endP) {
             if ( ((unsigned int *)cp)[0] & 0x80808080) RETURN( true );
             cp += 4;
@@ -3093,10 +3099,10 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.218 2014-07-31 11:25:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.219 2014-07-31 11:26:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.218 2014-07-31 11:25:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.219 2014-07-31 11:26:23 cg Exp $'
 ! !