Browse Source

* Changed some direct asm params to real params

marco 25 years ago
parent
commit
e8258f23c9
1 changed files with 17 additions and 14 deletions
  1. 17 14
      rtl/i386/i386.inc

+ 17 - 14
rtl/i386/i386.inc

@@ -124,9 +124,9 @@ end;
 {$define FPC_SYSTEM_HAS_FILLWORD}
 procedure fillword(var x;count : longint;value : word);assembler;
 asm
-        movl    8(%ebp),%edi
-        movl    12(%ebp),%ecx
-        movl    16(%ebp),%eax
+        movl    x,%edi
+        movl    count,%ecx
+        movl    value,%eax
         movl    %eax,%edx
         shll    $16,%eax
         movw    %dx,%ax
@@ -145,9 +145,9 @@ end ['EAX','ECX','EDX','EDI'];
 {$define FPC_SYSTEM_HAS_FILLDWORD}
 procedure filldword(var x;count : longint;value : dword);assembler;
 asm
-        movl    8(%ebp),%edi
-        movl    12(%ebp),%ecx
-        movl    16(%ebp),%eax
+        movl    x,%edi
+        movl    count,%ecx
+        movl    value,%eax
         cld
         rep
         stosl
@@ -728,10 +728,10 @@ begin
         pushl   %eax
         pushl   %ecx
         cld
-        movl    16(%ebp),%edi
-        movl    12(%ebp),%esi
+        movl    dstr,%edi
+        movl    sstr,%esi
         xorl    %eax,%eax
-        movl    8(%ebp),%ecx
+        movl    len,%ecx
         lodsb
         cmpl    %ecx,%eax
         jbe     .LStrCopy1
@@ -766,8 +766,8 @@ procedure int_strconcat(s1,s2:pointer);[public,alias:'FPC_SHORTSTR_CONCAT'];
 begin
   asm
         xorl    %ecx,%ecx
-        movl    12(%ebp),%edi
-        movl    8(%ebp),%esi
+        movl    s2,%edi
+        movl    s1,%esi
         movl    %edi,%ebx
         movb    (%edi),%cl
         lea     1(%edi,%ecx),%edi
@@ -808,8 +808,8 @@ begin
         cld
         xorl    %ebx,%ebx
         xorl    %eax,%eax
-        movl    12(%ebp),%esi
-        movl    8(%ebp),%edi
+        movl    sstr,%esi
+        movl    dstr,%edi
         movb    (%esi),%al
         movb    (%edi),%bl
         movl    %eax,%edx
@@ -1154,7 +1154,10 @@ end;
 
 {
   $Log$
-  Revision 1.66  2000-01-10 09:54:30  peter
+  Revision 1.67  2000-01-11 21:11:04  marco
+   * Changed some direct asm params to real params
+
+  Revision 1.66  2000/01/10 09:54:30  peter
     * primitives added
 
   Revision 1.65  2000/01/07 16:41:32  daniel