Browse Source

* map bus error to runerror 214

git-svn-id: trunk@2474 -
florian 19 years ago
parent
commit
fd0f51c463
1 changed files with 6 additions and 2 deletions
  1. 6 2
      rtl/solaris/sparc/sighnd.inc

+ 6 - 2
rtl/solaris/sparc/sighnd.inc

@@ -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