diff options
Diffstat (limited to 'gcc/ada/7sintman.adb')
| -rw-r--r-- | gcc/ada/7sintman.adb | 27 |
1 files changed, 8 insertions, 19 deletions
diff --git a/gcc/ada/7sintman.adb b/gcc/ada/7sintman.adb index dcd56df2a6d..b2dccbadb05 100644 --- a/gcc/ada/7sintman.adb +++ b/gcc/ada/7sintman.adb @@ -6,9 +6,9 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.1 $ +-- $Revision$ -- -- --- Copyright (C) 1991-2001, Florida State University -- +-- Copyright (C) 1991-2002, Florida State University -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -189,13 +189,6 @@ begin act.sa_mask := Signal_Mask; Keep_Unmasked (Abort_Task_Interrupt) := True; - Keep_Unmasked (SIGXCPU) := True; - Keep_Unmasked (SIGFPE) := True; - Result := - sigaction - (Signal (SIGFPE), act'Unchecked_Access, - old_act'Unchecked_Access); - pragma Assert (Result = 0); -- By keeping SIGINT unmasked, allow the user to do a Ctrl-C, but at -- the same time, disable the ability of handling this signal via @@ -208,18 +201,14 @@ begin Keep_Unmasked (SIGINT) := True; end if; - for J in - Exception_Interrupts'First + 1 .. Exception_Interrupts'Last - loop + for J in Exception_Interrupts'Range loop Keep_Unmasked (Exception_Interrupts (J)) := True; - if Unreserve_All_Interrupts = 0 then - Result := - sigaction - (Signal (Exception_Interrupts (J)), act'Unchecked_Access, - old_act'Unchecked_Access); - pragma Assert (Result = 0); - end if; + Result := + sigaction + (Signal (Exception_Interrupts (J)), act'Unchecked_Access, + old_act'Unchecked_Access); + pragma Assert (Result = 0); end loop; for J in Unmasked'Range loop |