paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 14:39:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed indexbyte for regcall

Browse Source
This commit is contained in:
peter 2003-12-24 23:07:28 +00:00
parent bcdf065947
commit 31a33a1a7b
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/i386/i386.inc
View File

@ -223,15 +223,9 @@ var
asm asm
movl %edi,saveedi movl %edi,saveedi
movl %ebx,saveebx movl %ebx,saveebx
{$ifdef REGCALL} movl buf,%edi // Load String
movl %edx,%ecx // Load len
movb %cl,%bl
movl %eax,%edi // Load String
{$else}
movl Len,%ecx // Load len
movl Buf,%edi // Load String
movb b,%bl movb b,%bl
{$endif} movl len,%ecx // Load len
xorl %eax,%eax xorl %eax,%eax
testl %ecx,%ecx testl %ecx,%ecx
jz .Lready jz .Lready
@ -1420,7 +1414,10 @@ end;
{ {
$Log$ $Log$
Revision 1.55 2003-12-04 21:44:39 peter Revision 1.56 2003-12-24 23:07:28 peter
* fixed indexbyte for regcall
Revision 1.55 2003/12/04 21:44:39 peter
* fix warning in gas * fix warning in gas
Revision 1.54 2003/11/19 16:58:44 peter Revision 1.54 2003/11/19 16:58:44 peter