paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 00:10:51 +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.
Copyright (c) 1999-2000 by Michael Van Canneyt,
Copyright (c) 1999-2006 by Michael Van Canneyt,
member of the Free Pascal development team.
Signal handler is arch dependant due to processor to language
@ -58,12 +58,16 @@ begin
end;
end;
SIGILL,
SIGBUS,
SIGSEGV :
begin
addr := siginfo^._sifields._sigfault._addr;
res:=216;
end;
SIGBUS :
begin
addr := siginfo^._sifields._sigfault._addr;
res:=214;
end;
end;
{ give runtime error at the position where the signal was raised }
if res<>0 then