paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 01:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Changed some direct asm params to real params

Browse Source
This commit is contained in:
marco 2000-01-11 21:11:04 +00:00
parent dfe8d5e1ac
commit e8258f23c9
1 changed files with 17 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
rtl/i386/i386.inc
View File

@ -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