From bf20aa47d966f89c77b6962ca4f5a1f9d8363ade Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 9 May 2000 06:21:58 +0000
Subject: [PATCH]  * fix ingnored assembler error in IndexDWord

---
 rtl/i386/i386.inc | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index 20f594e4d4..e2053fd145 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -212,7 +212,7 @@ asm
         movl    %ecx,%ebx      // Copy for easy manipulation
         movl    b,%eax
         repne
-        scasd
+        scasl
         jne     .Lcharposnotfound
         incl    %ecx
         subl    %ecx,%ebx
@@ -1196,7 +1196,10 @@ end;
 
 {
   $Log$
-  Revision 1.72  2000-04-23 09:26:51  jonas
+  Revision 1.73  2000-05-09 06:21:58  pierre
+   * fix ingnored assembler error in IndexDWord
+
+  Revision 1.72  2000/04/23 09:26:51  jonas
     + FPC_SHORTSTR_CONCAT_LEN (temporary, for -dnewoptimizations)
 
   Revision 1.71  2000/04/10 09:47:15  jonas