Browse Source

* wrong change for StrPas function corrected

pierre 25 years ago
parent
commit
fb2b4f7510
1 changed files with 6 additions and 3 deletions
  1. 6 3
      rtl/i386/stringss.inc

+ 6 - 3
rtl/i386/stringss.inc

@@ -32,7 +32,7 @@ begin
 {$ifdef NEWATT}
         movl    __RESULT,%edi
 {$else}
-        movl    p,%edi
+        movl    8(%ebp),%edi
 {$endif}
         notb    %al
         decl    %eax
@@ -77,7 +77,10 @@ end ['EDI','ESI','EBX','EAX','ECX'];
 
 {
   $Log$
-  Revision 1.7  2000-01-11 21:12:15  marco
+  Revision 1.8  2000-01-11 22:56:57  pierre
+    * wrong change for StrPas function corrected
+
+  Revision 1.7  2000/01/11 21:12:15  marco
    * direct params to internal asm.
 
   Revision 1.6  2000/01/07 16:41:33  daniel
@@ -96,4 +99,4 @@ end ['EDI','ESI','EBX','EAX','ECX'];
   Revision 1.2  1999/02/25 10:07:02  michael
   + Added header and log
 
-}
+}