blob: 0e6593362a7989ca82176c462d136e7e5bb2fc88 (
plain) (
tree)
|
|
*** ./ada/a-init.c.orig Fri Sep 24 08:42:43 1999
--- ./ada/a-init.c Sat Nov 6 16:22:51 1999
***************
*** 1445,1450 ****
--- 1445,1523 ----
}
+ /*************************************************/
+ /* __gnat_initialize (FreeBSD version) */
+ /*************************************************/
+
+ #elif defined (__FreeBSD__)
+
+ #include <signal.h>
+ #include <unistd.h>
+
+ static void
+ __gnat_error_handler (sig, code, sc)
+ int sig;
+ int code;
+ struct sigcontext *sc;
+ {
+ struct Exception_Data *exception;
+ char *msg;
+
+ switch (sig)
+ {
+ case SIGFPE:
+ exception = &constraint_error;
+ msg = "SIGFPE";
+ break;
+
+ case SIGILL:
+ exception = &constraint_error;
+ msg = "SIGILL";
+ break;
+
+ case SIGSEGV:
+ exception = &storage_error;
+ msg = "stack overflow or erroneous memory access";
+ break;
+
+ case SIGBUS:
+ exception = &constraint_error;
+ msg = "SIGBUS";
+ break;
+
+ default:
+ exception = &program_error;
+ msg = "unhandled signal";
+ }
+
+ Raise_From_Signal_Handler (exception, msg);
+ }
+
+ static void
+ __gnat_install_handler ()
+ {
+ struct sigaction act;
+
+ /* Set up signal handler to map synchronous signals to appropriate
+ exceptions. Make sure that the handler isn't interrupted by another
+ signal that might cause a scheduling event! */
+
+ act.sa_handler = __gnat_error_handler;
+ act.sa_flags = SA_NODEFER | SA_RESTART;
+ (void) sigemptyset (&act.sa_mask);
+
+ (void) sigaction (SIGILL, &act, NULL);
+ (void) sigaction (SIGFPE, &act, NULL);
+ (void) sigaction (SIGSEGV, &act, NULL);
+ (void) sigaction (SIGBUS, &act, NULL);
+ }
+
+ void
+ __gnat_initialize ()
+ {
+ __gnat_install_handler ();
+ }
+
/***************************************/
/* __gnat_initialize (default version) */
/***************************************/
|
