diff options
| author | Patrick Bernardi <bernardi@adacore.com> | 2020-12-09 16:48:20 -0500 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-04-28 05:38:15 -0400 |
| commit | bed6154a5a64235fb196e9d6007a4382481e426e (patch) | |
| tree | 8511c4b3b7436f8521ad4fd606c65dbfb64307ec | |
| parent | 894376c44d94df54727b591292e5965cfa35001b (diff) | |
| download | gcc-bed6154a5a64235fb196e9d6007a4382481e426e.zip gcc-bed6154a5a64235fb196e9d6007a4382481e426e.tar.gz gcc-bed6154a5a64235fb196e9d6007a4382481e426e.tar.bz2 | |
[Ada] Install_Restricted_Handlers: define Prio parameter as Interrupt_Priority
gcc/ada/
* libgnarl/s-interr.adb (Install_Restricted_Handlers): Change
Prio parameter to type Interrupt_Priority.
* libgnarl/s-interr.ads (Install_Restricted_Handlers): Likewise.
* libgnarl/s-interr__dummy.adb (Install_Restricted_Handlers):
Likewise.
* libgnarl/s-interr__hwint.adb (Install_Restricted_Handlers):
Likewise.
* libgnarl/s-interr__sigaction.adb (Install_Restricted_Handlers):
Likewise.
* libgnarl/s-interr__vxworks.adb (Install_Restricted_Handlers):
Likewise.
| -rw-r--r-- | gcc/ada/libgnarl/s-interr.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnarl/s-interr.ads | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnarl/s-interr__dummy.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnarl/s-interr__hwint.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnarl/s-interr__sigaction.adb | 2 | ||||
| -rw-r--r-- | gcc/ada/libgnarl/s-interr__vxworks.adb | 2 |
6 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/libgnarl/s-interr.adb b/gcc/ada/libgnarl/s-interr.adb index c386c47..4cdd912 100644 --- a/gcc/ada/libgnarl/s-interr.adb +++ b/gcc/ada/libgnarl/s-interr.adb @@ -473,7 +473,7 @@ package body System.Interrupts is --------------------------------- procedure Install_Restricted_Handlers - (Prio : Any_Priority; + (Prio : Interrupt_Priority; Handlers : New_Handler_Array) is pragma Unreferenced (Prio); diff --git a/gcc/ada/libgnarl/s-interr.ads b/gcc/ada/libgnarl/s-interr.ads index 0f82beb..ed1602f 100644 --- a/gcc/ada/libgnarl/s-interr.ads +++ b/gcc/ada/libgnarl/s-interr.ads @@ -267,7 +267,7 @@ package System.Interrupts is -- the new static handlers. procedure Install_Restricted_Handlers - (Prio : Any_Priority; + (Prio : Interrupt_Priority; Handlers : New_Handler_Array); -- Install the static Handlers for the given interrupts and do not -- store previously installed handlers. This procedure is used when diff --git a/gcc/ada/libgnarl/s-interr__dummy.adb b/gcc/ada/libgnarl/s-interr__dummy.adb index ffa0710..99df03d 100644 --- a/gcc/ada/libgnarl/s-interr__dummy.adb +++ b/gcc/ada/libgnarl/s-interr__dummy.adb @@ -188,7 +188,7 @@ package body System.Interrupts is --------------------------------- procedure Install_Restricted_Handlers - (Prio : Any_Priority; + (Prio : Interrupt_Priority; Handlers : New_Handler_Array) is begin diff --git a/gcc/ada/libgnarl/s-interr__hwint.adb b/gcc/ada/libgnarl/s-interr__hwint.adb index 5c2c321..912da07 100644 --- a/gcc/ada/libgnarl/s-interr__hwint.adb +++ b/gcc/ada/libgnarl/s-interr__hwint.adb @@ -478,7 +478,7 @@ package body System.Interrupts is --------------------------------- procedure Install_Restricted_Handlers - (Prio : Any_Priority; + (Prio : Interrupt_Priority; Handlers : New_Handler_Array) is pragma Unreferenced (Prio); diff --git a/gcc/ada/libgnarl/s-interr__sigaction.adb b/gcc/ada/libgnarl/s-interr__sigaction.adb index 83bd36c..3e456e3 100644 --- a/gcc/ada/libgnarl/s-interr__sigaction.adb +++ b/gcc/ada/libgnarl/s-interr__sigaction.adb @@ -291,7 +291,7 @@ package body System.Interrupts is --------------------------------- procedure Install_Restricted_Handlers - (Prio : Any_Priority; + (Prio : Interrupt_Priority; Handlers : New_Handler_Array) is pragma Unreferenced (Prio); diff --git a/gcc/ada/libgnarl/s-interr__vxworks.adb b/gcc/ada/libgnarl/s-interr__vxworks.adb index 157f82f..646c822 100644 --- a/gcc/ada/libgnarl/s-interr__vxworks.adb +++ b/gcc/ada/libgnarl/s-interr__vxworks.adb @@ -494,7 +494,7 @@ package body System.Interrupts is --------------------------------- procedure Install_Restricted_Handlers - (Prio : Any_Priority; + (Prio : Interrupt_Priority; Handlers : New_Handler_Array) is pragma Unreferenced (Prio); |