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

* exception addr record size for 64 bit systems fixed

Browse Source
This commit is contained in:
florian 2004-04-27 18:47:51 +00:00
parent 8222e0deb6
commit 2553988d5a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
rtl/inc/except.inc
View File

@ -30,11 +30,10 @@ Type
PExceptAddr = ^TExceptAddr;
TExceptAddr = record
buf : pjmp_buf;
frametype : Longint;
next : PExceptAddr;
frametype : Longint;
end;
TExceptObjectClass = Class of TObject;
Const
@ -80,7 +79,7 @@ end;
{$ifndef HAS_ADDR_STACK_ON_STACK}
Function fpc_PushExceptAddr (Ft: Longint): PJmp_buf ;
[Public, Alias : 'FPC_PUSHEXCEPTADDR'];saveregisters;
{$else HAS_ADDR_STACK_ON_HEAP}
{$else HAS_ADDR_STACK_ON_STACK}
Function fpc_PushExceptAddr (Ft: Longint;_buf,_newaddr : pointer): PJmp_buf ;
[Public, Alias : 'FPC_PUSHEXCEPTADDR'];saveregisters; {$ifdef hascompilerproc} compilerproc; {$endif}
{$endif HAS_ADDR_STACK_ON_STACK}
@ -311,7 +310,10 @@ begin
end;
{
$Log$
Revision 1.14 2004-02-05 01:16:12 florian
Revision 1.15 2004-04-27 18:47:51 florian
* exception addr record size for 64 bit systems fixed
Revision 1.14 2004/02/05 01:16:12 florian
+ completed x86-64/linux system unit
Revision 1.13 2003/11/26 20:12:08 michael