paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also install sig handlers for sigill,sigbus

Browse Source
This commit is contained in:
peter 2001-04-23 20:33:31 +00:00
parent 28ad9617f7
commit ee148aeb6c
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/unix/sysunix.inc
View File

@ -595,7 +595,8 @@ var
begin
res:=0;
case sig of
8 : begin
SIGFPE :
begin
{ this is not allways necessary but I don't know yet
how to tell if it is or not PM }
{$ifdef I386}
@ -634,7 +635,10 @@ begin
{$endif I386}
ResetFPU;
end;
11 : res:=216;
SIGILL,
SIGBUS,
SIGSEGV :
res:=216;
end;
{ give runtime error at the position where the signal was raised }
if res<>0 then
@ -666,8 +670,10 @@ const
VAR is removed}
begin
ResetFPU;
SigAction(8,@act,oldact);
SigAction(11,@act,oldact);
SigAction(SIGFPE,@act,oldact);
SigAction(SIGSEGV,@act,oldact);
SigAction(SIGBUS,@act,oldact);
SigAction(SIGILL,@act,oldact);
end;
@ -747,7 +753,10 @@ End.
{
$Log$
Revision 1.9 2001-04-13 22:39:05 peter
Revision 1.10 2001-04-23 20:33:31 peter
* also install sig handlers for sigill,sigbus
Revision 1.9 2001/04/13 22:39:05 peter
* removed warning
Revision 1.8 2001/04/12 17:53:43 peter