From 1175f0b6e5ee84cd460248c9a19fae521135d0e3 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 19 Jun 2009 12:32:08 +0200 Subject: [multiple changes] 2009-06-19 Robert Dewar * g-cgi.adb: Minor reformatting 2009-06-19 Eric Botcazou * s-intman-solaris.adb (Notify_Exception): Do not discriminate on the signal code for SIGFPE and raise Program_Error for SIGILL. * s-osinte-solaris.ads: Remove signal code constants for SIGFPE. 2009-06-19 Ed Schonberg * sem_ch8.adb (Nvis_Messages): Do not list an entity declared in a generic package if there is a visibility candidate that is declared in a regular package. From-SVN: r148691 --- gcc/ada/s-intman-solaris.adb | 33 ++++++++++----------------------- 1 file changed, 10 insertions(+), 23 deletions(-) (limited to 'gcc/ada/s-intman-solaris.adb') diff --git a/gcc/ada/s-intman-solaris.adb b/gcc/ada/s-intman-solaris.adb index e8bd6ff..170cd82 100644 --- a/gcc/ada/s-intman-solaris.adb +++ b/gcc/ada/s-intman-solaris.adb @@ -89,40 +89,27 @@ package body System.Interrupt_Management is info : access siginfo_t; context : access ucontext_t) is + pragma Unreferenced (info); + begin -- Perform the necessary context adjustments prior to a raise -- from a signal handler. Adjust_Context_For_Raise (signo, context.all'Address); - -- Check that treatment of exception propagation here - -- is consistent with treatment of the abort signal in - -- System.Task_Primitives.Operations. + -- Check that treatment of exception propagation here is consistent with + -- treatment of the abort signal in System.Task_Primitives.Operations. case signo is when SIGFPE => - case info.si_code is - when FPE_INTDIV | - FPE_INTOVF | - FPE_FLTDIV | - FPE_FLTOVF | - FPE_FLTUND | - FPE_FLTRES | - FPE_FLTINV | - FPE_FLTSUB => - - raise Constraint_Error; - - when others => - pragma Assert (False); - null; - end case; - - when SIGILL | SIGSEGV | SIGBUS => + raise Constraint_Error; + when SIGILL => + raise Program_Error; + when SIGSEGV => + raise Storage_Error; + when SIGBUS => raise Storage_Error; - when others => - pragma Assert (False); null; end case; end Notify_Exception; -- cgit v1.1