From: Johannes Kliemann <kliemann@adacore.com>
Date: Fri, 28 Jan 2022 14:54:21 +0000 (+0000)
Subject: [Ada] Suppress warning in g-sthcso for non-unix platforms
X-Git-Tag: basepoints/gcc-14~6915
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=02b8770a444bef9bb9a3dc23747e9b257f3af087;p=thirdparty%2Fgcc.git

[Ada] Suppress warning in g-sthcso for non-unix platforms

gcc/ada/

	* libgnat/g-sthcso.adb: Suppress warning about unneeded use type
	clause.
---

diff --git a/gcc/ada/libgnat/g-sthcso.adb b/gcc/ada/libgnat/g-sthcso.adb
index f045c02b99e..fd99eebbdb7 100644
--- a/gcc/ada/libgnat/g-sthcso.adb
+++ b/gcc/ada/libgnat/g-sthcso.adb
@@ -41,7 +41,12 @@ function C_Socketpair
    Protocol : C.int;
    Fds      : not null access Fd_Pair) return C.int
 is
+   --  This use type clause is not required on all platforms
+   --  using this implementation. So we suppress the warning
+   --  for the platforms that already use this type.
+   pragma Warnings (Off, "use clause for type *");
    use type C.char_array;
+   pragma Warnings (On, "use clause for type *");
 
    L_Sock, C_Sock, P_Sock : C.int := Failure;
    --  Listening socket, client socket and peer socket