ada: Use fully qualified in more library files

gcc/ada/

	* libgnarl/s-interr__hwint.adb: Use fully qualified names to avoid
	ambiguity.
	* libgnarl/s-taprop__qnx.adb: Likewise.

diff --git a/gcc/ada/libgnarl/s-interr__hwint.adb b/gcc/ada/libgnarl/s-interr__hwint.adb
index 12dde452ff4cce9fd2bd902ac2579e9ccf98ccc7..0cccf6fd29477a3759c85292de25e8b1d0c28856 100644 (file)
--- a/gcc/ada/libgnarl/s-interr__hwint.adb
+++ b/gcc/ada/libgnarl/s-interr__hwint.adb
@@ -482,9 +482,10 @@ package body System.Interrupts is
       Handler   : System.OS_Interface.Interrupt_Handler)
    is
       Vec : constant Interrupt_Vector :=
-              Interrupt_Number_To_Vector (int (Interrupt));
+              Interrupt_Number_To_Vector
+                (Interfaces.C.int (Interrupt));
 
-      Status : int;
+      Status : Interfaces.C.int;
 
    begin
       --  Only install umbrella handler when no Ada handler has already been
@@ -613,7 +614,7 @@ package body System.Interrupts is
    procedure Notify_Interrupt (Param : System.Address) is
       Interrupt : constant Interrupt_ID := Interrupt_ID (Param);
       Id        : constant Binary_Semaphore_Id := Semaphore_ID_Map (Interrupt);
-      Status    : int;
+      Status    : Interfaces.C.int;
    begin
       if Id /= 0 then
          Status := Binary_Semaphore_Release (Id);
@@ -744,7 +745,7 @@ package body System.Interrupts is
       --------------------
 
       procedure Unbind_Handler (Interrupt : Interrupt_ID) is
-         Status : int;
+         Status : Interfaces.C.int;
 
       begin
          --  Flush server task off semaphore, allowing it to terminate
@@ -1024,7 +1025,7 @@ package body System.Interrupts is
       Tmp_Handler     : Parameterless_Handler;
       Tmp_ID          : Task_Id;
       Tmp_Entry_Index : Task_Entry_Index;
-      Status          : int;
+      Status          : Interfaces.C.int;
 
    begin
       Semaphore_ID_Map (Interrupt) := Int_Sema;

diff --git a/gcc/ada/libgnarl/s-taprop__qnx.adb b/gcc/ada/libgnarl/s-taprop__qnx.adb
index 39e6983f4382e6c9565ff0f94b2918daa0ed926f..d6680b58dba24a00bab4ac3ec2b34622534a11f7 100644 (file)
--- a/gcc/ada/libgnarl/s-taprop__qnx.adb
+++ b/gcc/ada/libgnarl/s-taprop__qnx.adb
@@ -300,7 +300,7 @@ package body System.Task_Primitives.Operations is
          Res :=
            mprotect
              (Stack_Base - (Stack_Base mod Page_Size) + Page_Size,
-              size_t (Page_Size),
+              Interfaces.C.size_t (Page_Size),
               prot => (if On then PROT_ON else PROT_OFF));
          pragma Assert (Res = 0);
       end if;