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

* Added 'RaiseProc': A user-definable callback procedure which gets

Browse Source 
called whenever an exception is being raised
This commit is contained in:
sg 2000-09-30 07:38:07 +00:00
parent 9e77e31a28
commit 9048ff6354
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/inc/except.inc
View File

@ -120,6 +120,8 @@ begin
PushExceptObj(Obj,AnAddr,AFrame);
If ExceptAddrStack=Nil then
DoUnhandledException;
if (RaiseProc <> nil) and (ExceptObjectStack <> nil) then
RaiseProc(Obj, AnAddr, AFrame);
longjmp(ExceptAddrStack^.Buf^,FPC_Exception);
end;
@ -244,7 +246,11 @@ begin
end;
{
$Log$
Revision 1.2 2000-07-13 11:33:42 michael
Revision 1.3 2000-09-30 07:38:07 sg
* Added 'RaiseProc': A user-definable callback procedure which gets
called whenever an exception is being raised
Revision 1.2 2000/07/13 11:33:42 michael
+ removed logs
}

7
rtl/inc/objpash.inc
View File

@ -137,6 +137,7 @@
Const
ExceptProc : TExceptProc = Nil;
RaiseProc : TExceptProc = Nil;
Function RaiseList : PExceptObject;
@ -211,7 +212,11 @@
end;
{
$Log$
Revision 1.3 2000-07-14 10:33:10 michael
Revision 1.4 2000-09-30 07:38:07 sg
* Added 'RaiseProc': A user-definable callback procedure which gets
called whenever an exception is being raised
Revision 1.3 2000/07/14 10:33:10 michael
+ Conditionals fixed
Revision 1.2 2000/07/13 11:33:45 michael