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

* map bus error to runerror 214

Browse Source 
git-svn-id: trunk@2474 -
This commit is contained in:
florian 2006-02-07 21:43:39 +00:00
parent 0c8c95c334
commit fd0f51c463
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/solaris/sparc/sighnd.inc
View File

@ -1,6 +1,6 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Michael Van Canneyt, Copyright (c) 1999-2006 by Michael Van Canneyt,
member of the Free Pascal development team. member of the Free Pascal development team.
Signal handler is arch dependant due to processor to language Signal handler is arch dependant due to processor to language
@ -58,12 +58,16 @@ begin
end; end;
end; end;
SIGILL, SIGILL,
SIGBUS,
SIGSEGV : SIGSEGV :
begin begin
addr := siginfo^._sifields._sigfault._addr; addr := siginfo^._sifields._sigfault._addr;
res:=216; res:=216;
end; end;
SIGBUS :
begin
addr := siginfo^._sifields._sigfault._addr;
res:=214;
end;
end; end;
{ give runtime error at the position where the signal was raised } { give runtime error at the position where the signal was raised }
if res<>0 then if res<>0 then