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

* Better signal configuration to handle correctly a second exception

Browse Source 
like in test texception10.pp.

git-svn-id: trunk@20690 -
This commit is contained in:
olivier 2012-04-02 01:06:09 +00:00
parent 9d9a5013fd
commit 8c7d54de5c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/haiku/system.pp
View File

@ -360,7 +360,7 @@ begin
{ initialize handler } { initialize handler }
act.sa_mask[0] := 0; act.sa_mask[0] := 0;
act.sa_handler := SigActionHandler(@SignalToRunError); act.sa_handler := SigActionHandler(@SignalToRunError);
act.sa_flags := SA_ONSTACK or SA_NODEFER or SA_RESETHAND; act.sa_flags := SA_ONSTACK or SA_SIGINFO;
FpSigAction(signum,@act,@oldact); FpSigAction(signum,@act,@oldact);
end; end;