diff options
Diffstat (limited to 'gcc/ada/s-interr-sigaction.adb')
| -rw-r--r-- | gcc/ada/s-interr-sigaction.adb | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/s-interr-sigaction.adb b/gcc/ada/s-interr-sigaction.adb index a63b35aaaa3..14bb9707fec 100644 --- a/gcc/ada/s-interr-sigaction.adb +++ b/gcc/ada/s-interr-sigaction.adb @@ -290,6 +290,17 @@ package body System.Interrupts is end loop; end Install_Handlers; + --------------------------------- + -- Install_Restricted_Handlers -- + --------------------------------- + + procedure Install_Restricted_Handlers (Handlers : New_Handler_Array) is + begin + for N in Handlers'Range loop + Attach_Handler (Handlers (N).Handler, Handlers (N).Interrupt, True); + end loop; + end Install_Restricted_Handlers; + --------------------- -- Current_Handler -- --------------------- |