Browse Source

* nil check for strpas

peter 26 years ago
parent
commit
62effc73d7
1 changed files with 10 additions and 1 deletions
  1. 10 1
      rtl/i386/i386.inc

+ 10 - 1
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