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

* Use saveregisters for PushExcept..

Browse Source
This commit is contained in:
pierre 2000-05-04 12:25:53 +00:00
parent d7afdbd8e6
commit 3930cc5818
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/except.inc
View File

@ -52,7 +52,8 @@ Var
ExceptObjectStack : PExceptObject; ExceptObjectStack : PExceptObject;
Function PushExceptAddr (Ft: Longint): PJmp_buf ;[Public, Alias : 'FPC_PUSHEXCEPTADDR']; Function PushExceptAddr (Ft: Longint): PJmp_buf ;
[Public, Alias : 'FPC_PUSHEXCEPTADDR'];saveregisters;
var var
Buf : PJmp_buf; Buf : PJmp_buf;
NewAddr : PExceptAddr; NewAddr : PExceptAddr;
@ -78,7 +79,8 @@ begin
end; end;
Procedure PushExceptObj (Obj : TObject; AnAddr,AFrame : Pointer); [Public, Alias : 'FPC_PUSHEXCEPTOBJECT']; Procedure PushExceptObj (Obj : TObject; AnAddr,AFrame : Pointer);
[Public, Alias : 'FPC_PUSHEXCEPTOBJECT'];saveregisters;
var var
Newobj : PExceptObject; Newobj : PExceptObject;
begin begin
@ -244,7 +246,10 @@ begin
end; end;
{ {
$Log$ $Log$
Revision 1.18 2000-04-24 11:11:50 peter Revision 1.19 2000-05-04 12:25:53 pierre
* Use saveregisters for PushExcept..
Revision 1.18 2000/04/24 11:11:50 peter
* backtraces for exceptions are now only generated from the place of the * backtraces for exceptions are now only generated from the place of the
exception exception
* frame is also pushed for exceptions * frame is also pushed for exceptions