[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.

diff --git a/gcc/ada/libgnarl/s-interr.adb b/gcc/ada/libgnarl/s-interr.adb
index c386c4742a2b244b9a87d229be2baef2db219aef..4cdd912616220ecbc4c0186d232b408b61a1fc95 100644 (file)
--- 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 0f82beb1145c22dffbc7bb34a399108206728fc5..ed1602f5798300e952c673f37fae24e0f9d333f1 100644 (file)
--- 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 ffa0710a7fd338cf03ca5dfe9b1dae2ebc96ddf8..99df03d98f8e8ede3c375349e213311e1b9390c9 100644 (file)
--- 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 5c2c3214b666c94c1e5a3e433fe6a252ed1f636e..912da0776428a4dee4e82ef62c95972e7e7f2c82 100644 (file)
--- 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 83bd36c2efa6051d87d08b2d0aaf85251aeab44e..3e456e300db2e99c8f4bbbbcccf5ecf52d12f576 100644 (file)
--- 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 157f82f7eb547169e647dbf01a9cc0753b6ce365..646c822a185fdaad2ecd5d922295f94edc1718cb 100644 (file)
--- 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);