ada: Use fully qualified in the runtime library

gcc/ada/

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

diff --git a/gcc/ada/libgnarl/s-taprop__mingw.adb b/gcc/ada/libgnarl/s-taprop__mingw.adb
index f77d71970b8c2e0d544f9db12ba240cc08f34278..8c7f59f1c5d292f4f197d2cc4c6df7248b8c43bc 100644 (file)
--- a/gcc/ada/libgnarl/s-taprop__mingw.adb
+++ b/gcc/ada/libgnarl/s-taprop__mingw.adb
@@ -1035,7 +1035,7 @@ package body System.Task_Primitives.Operations is
    -------------------
 
    function RT_Resolution return Duration is
-      Ticks_Per_Second : aliased LARGE_INTEGER;
+      Ticks_Per_Second : aliased System.OS_Interface.LARGE_INTEGER;
    begin
       QueryPerformanceFrequency (Ticks_Per_Second'Access);
       return Duration (1.0 / Ticks_Per_Second);

diff --git a/gcc/ada/libgnarl/s-taprop__posix.adb b/gcc/ada/libgnarl/s-taprop__posix.adb
index fb70aaf4976e87b1c57fcddaeb9ba0843c0d7c35..3d76679ad4a384e313f65d3057bc4bc55c62873c 100644 (file)
--- a/gcc/ada/libgnarl/s-taprop__posix.adb
+++ b/gcc/ada/libgnarl/s-taprop__posix.adb
@@ -209,7 +209,7 @@ package body System.Task_Primitives.Operations is
      new Ada.Unchecked_Conversion (Task_Id, System.Address);
 
    function GNAT_pthread_condattr_setup
-     (attr : access pthread_condattr_t) return int;
+     (attr : access pthread_condattr_t) return Interfaces.C.int;
    pragma Import (C,
      GNAT_pthread_condattr_setup, "__gnat_pthread_condattr_setup");
 

diff --git a/gcc/ada/libgnarl/s-taprop__qnx.adb b/gcc/ada/libgnarl/s-taprop__qnx.adb
index f475c05c562a2c2a33c752958e0873858e381a78..39e6983f4382e6c9565ff0f94b2918daa0ed926f 100644 (file)
--- a/gcc/ada/libgnarl/s-taprop__qnx.adb
+++ b/gcc/ada/libgnarl/s-taprop__qnx.adb
@@ -119,7 +119,7 @@ package body System.Task_Primitives.Operations is
 
    function Initialize_Lock
      (L    : not null access RTS_Lock;
-      Prio : Any_Priority) return int;
+      Prio : Any_Priority) return Interfaces.C.int;
    --  Initialize the lock L. If Ceiling_Support is True, then set the ceiling
    --  to Prio. Returns 0 for success, or ENOMEM for out-of-memory.
 
@@ -220,7 +220,7 @@ package body System.Task_Primitives.Operations is
      new Ada.Unchecked_Conversion (Task_Id, System.Address);
 
    function GNAT_pthread_condattr_setup
-     (attr : access pthread_condattr_t) return int;
+     (attr : access pthread_condattr_t) return Interfaces.C.int;
    pragma Import (C,
      GNAT_pthread_condattr_setup, "__gnat_pthread_condattr_setup");
 
@@ -333,11 +333,11 @@ package body System.Task_Primitives.Operations is
 
    function Initialize_Lock
      (L    : not null access RTS_Lock;
-      Prio : Any_Priority) return int
+      Prio : Any_Priority) return Interfaces.C.int
    is
       Attributes : aliased pthread_mutexattr_t;
-      Result     : int;
-      Result_2   : aliased int;
+      Result     : Interfaces.C.int;
+      Result_2   : aliased Interfaces.C.int;
 
    begin
       Result := pthread_mutexattr_init (Attributes'Access);
@@ -425,9 +425,9 @@ package body System.Task_Primitives.Operations is
      (L : not null access Lock; Ceiling_Violation : out Boolean)
    is
       Self    : constant pthread_t := pthread_self;
-      Result  : int;
-      Policy  : aliased int;
-      Ceiling : aliased int;
+      Result  : Interfaces.C.int;
+      Policy  : aliased Interfaces.C.int;
+      Ceiling : aliased Interfaces.C.int;
       Sched   : aliased struct_sched_param;
 
    begin

diff --git a/gcc/ada/libgnarl/s-taprop__rtems.adb b/gcc/ada/libgnarl/s-taprop__rtems.adb
index ea8422cb4543ade9950397d7f6a4132bb892751c..0a33c194ec1faa9aa5df625085f33e85a210013d 100644 (file)
--- a/gcc/ada/libgnarl/s-taprop__rtems.adb
+++ b/gcc/ada/libgnarl/s-taprop__rtems.adb
@@ -200,7 +200,7 @@ package body System.Task_Primitives.Operations is
      new Ada.Unchecked_Conversion (Task_Id, System.Address);
 
    function GNAT_pthread_condattr_setup
-     (attr : access pthread_condattr_t) return int;
+     (attr : access pthread_condattr_t) return Interfaces.C.int;
    pragma Import (C,
      GNAT_pthread_condattr_setup, "__gnat_pthread_condattr_setup");
 
@@ -304,7 +304,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;