diff options
Diffstat (limited to 'lang/gnat/files/5fintman.adb')
| -rw-r--r-- | lang/gnat/files/5fintman.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lang/gnat/files/5fintman.adb b/lang/gnat/files/5fintman.adb index 10e3db9af325..9d6eb5e45220 100644 --- a/lang/gnat/files/5fintman.adb +++ b/lang/gnat/files/5fintman.adb @@ -7,7 +7,7 @@ -- B o d y -- -- (Version for new GNARL) -- -- -- --- $Revision: 1.3 $ -- +-- $Revision: 1.1 $ -- -- -- -- Copyright (C) 1991,1992,1993,1994,1995,1996 Florida State University -- -- -- @@ -185,7 +185,8 @@ package body System.Interrupt_Management is Keep_Unmasked (Exception_Interrupts (I)) := True; Result := sigaction - (Signal (Exception_Interrupts (I)), act'Access, old_act'Access); + (Signal (Exception_Interrupts (I)), act'Access, + old_act'Unchecked_Access); pragma Assert (Result = 0 or else Shutdown ("GNULLI failure---sigaction")); end loop; |