paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 19:29:07 +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; PExceptAddr = ^TExceptAddr;
TExceptAddr = record TExceptAddr = record
buf : pjmp_buf; buf : pjmp_buf;
frametype : Longint;
next : PExceptAddr; next : PExceptAddr;
frametype : Longint;
end; end;
TExceptObjectClass = Class of TObject; TExceptObjectClass = Class of TObject;
Const Const
@ -80,7 +79,7 @@ end;
{$ifndef HAS_ADDR_STACK_ON_STACK} {$ifndef HAS_ADDR_STACK_ON_STACK}
Function fpc_PushExceptAddr (Ft: Longint): PJmp_buf ; Function fpc_PushExceptAddr (Ft: Longint): PJmp_buf ;
[Public, Alias : 'FPC_PUSHEXCEPTADDR'];saveregisters; [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 ; Function fpc_PushExceptAddr (Ft: Longint;_buf,_newaddr : pointer): PJmp_buf ;
[Public, Alias : 'FPC_PUSHEXCEPTADDR'];saveregisters; {$ifdef hascompilerproc} compilerproc; {$endif} [Public, Alias : 'FPC_PUSHEXCEPTADDR'];saveregisters; {$ifdef hascompilerproc} compilerproc; {$endif}
{$endif HAS_ADDR_STACK_ON_STACK} {$endif HAS_ADDR_STACK_ON_STACK}
@ -311,7 +310,10 @@ begin
end; end;
{ {
$Log$ $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 + completed x86-64/linux system unit
Revision 1.13 2003/11/26 20:12:08 michael Revision 1.13 2003/11/26 20:12:08 michael