]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
ada: Fix s-taprop__solaris.adb compilation
authorRainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
Thu, 8 Aug 2024 08:22:19 +0000 (10:22 +0200)
committerRainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
Thu, 8 Aug 2024 08:22:19 +0000 (10:22 +0200)
Solaris Ada bootstrap is broken as of 2024-08-06 with

s-taprop.adb:1971:23: error: "int" is not visible
s-taprop.adb:1971:23: error: multiple use clauses cause hiding
s-taprop.adb:1971:23: error: hidden declaration at s-osinte.ads:51
s-taprop.adb:1971:23: error: hidden declaration at i-c.ads:62

because one instance of int isn't qualified.  This patch fixes this.

Bootstrapped without regressions on i386-pc-solaris2.11 and
sparc-sun-solaris2.11.

2024-08-07  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>

gcc/ada:
* libgnarl/s-taprop__solaris.adb (Set_Task_Affinity): Fully
quality int.

gcc/ada/libgnarl/s-taprop__solaris.adb

index 6d05e8db00413c02a920f00f5885d350a205bc7b..c24925c93046a52f772c5e1132097e65e884d805 100644 (file)
@@ -1968,7 +1968,7 @@ package body System.Task_Primitives.Operations is
       then
          declare
             CPU_Set : aliased psetid_t;
-            Result  : int;
+            Result  : Interfaces.C.int;
 
          begin
             Result := pset_create (CPU_Set'Access);