paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-27 23:11:57 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix call to handleerror for regcall

Browse Source
This commit is contained in:
peter 2003-12-23 23:09:43 +00:00
parent c1a25f53b6
commit 0105b62700
1 changed files with 29 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/i386/int64p.inc
View File

@ -31,8 +31,13 @@
movl %ecx,%eax movl %ecx,%eax
orl %ebx,%eax orl %ebx,%eax
jnz .Lnodivzero jnz .Lnodivzero
{$ifdef REGCALL}
movl %ebp,%edx
movl $200,%eax
{$else}
pushl %ebp pushl %ebp
pushl $200 pushl $200
{$endif}
call HandleErrorFrame call HandleErrorFrame
jmp .Lexit jmp .Lexit
.Lnodivzero: .Lnodivzero:
@ -226,7 +231,10 @@
{ {
$Log$ $Log$
Revision 1.1 2003-09-14 11:34:13 peter Revision 1.2 2003-12-23 23:09:43 peter
* fix call to handleerror for regcall
Revision 1.1 2003/09/14 11:34:13 peter
* moved int64 asm code to int64p.inc * moved int64 asm code to int64p.inc
* save ebx,esi * save ebx,esi