[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 f045c02b99eb3943378d3f73eead967d00f4dc96..fd99eebbdb78be6ef2d90e4f2759c55d16342b0c 100644 (file)
--- 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