paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 14:20:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use oldfpccall

Browse Source
This commit is contained in:
peter 2003-11-23 17:03:05 +00:00
parent 23ae4449ec
commit c0c33961bf
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/tpexcept.pas
View File

@ -42,8 +42,8 @@ type
pjmp_buf = ^jmp_buf;
function setjmp(var rec : jmp_buf) : longint;{$ifdef Delphi}stdcall;{$endif}
procedure longjmp(const rec : jmp_buf;return_value : longint);{$ifdef Delphi}stdcall;{$endif}
function setjmp(var rec : jmp_buf) : longint;{$ifdef Delphi}stdcall;{$else}{$ifndef ver1_0}oldfpccall;{$endif}{$endif}
procedure longjmp(const rec : jmp_buf;return_value : longint);{$ifdef Delphi}stdcall;{$else}{$ifndef ver1_0}oldfpccall;{$endif}{$endif}
const
recoverpospointer : pjmp_buf = nil;
@ -99,7 +99,7 @@ implementation
{$asmmode ATT}
function setjmp(var rec : jmp_buf) : longint;
function setjmp(var rec : jmp_buf) : longint; {$ifndef ver1_0}oldfpccall;{$endif}
begin
asm
pushl %edi
@ -154,7 +154,7 @@ implementation
end;
procedure longjmp(const rec : jmp_buf;return_value : longint);
procedure longjmp(const rec : jmp_buf;return_value : longint); {$ifndef ver1_0}oldfpccall;{$endif}
begin
asm
{ restore compiler shit }
@ -243,7 +243,10 @@ implementation
end.
{
$Log$
Revision 1.8 2002-05-18 13:34:21 peter
Revision 1.9 2003-11-23 17:03:05 peter
* use oldfpccall
Revision 1.8 2002/05/18 13:34:21 peter
* readded missing revisions
Revision 1.7 2002/05/16 19:46:46 carl