From 62effc73d7efd2916183dec6ad54f40a28127578 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 22 Apr 1999 10:52:40 +0000
Subject: [PATCH]   * nil check for strpas

---
 rtl/i386/i386.inc | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/rtl/i386/i386.inc b/rtl/i386/i386.inc
index 49c9492c8f..8329a43b70 100644
--- a/rtl/i386/i386.inc
+++ b/rtl/i386/i386.inc
@@ -546,10 +546,16 @@ begin
         cld
         movl    p,%edi
         movl    $0xff,%ecx
+        orl     %edi,%edi
+        jnz     .LStrPasNotNil
+        decl    %ecx
+        jmp     .LStrPasNil
+.LStrPasNotNil:
         xorl    %eax,%eax
         movl    %edi,%esi
         repne
         scasb
+.LStrPasNil:
         movl    %ecx,%eax
 {$ifdef NEWATT}
         movl    __RESULT,%edi
@@ -794,7 +800,10 @@ end;
 
 {
   $Log$
-  Revision 1.44  1999-04-19 06:13:28  florian
+  Revision 1.45  1999-04-22 10:52:40  peter
+    * nil check for strpas
+
+  Revision 1.44  1999/04/19 06:13:28  florian
     * the class helper routines doesn't store the registers properly,
       fixed