From: Bob Duff <duff@adacore.com>
Date: Tue, 28 Jun 2022 12:28:12 +0000 (-0400)
Subject: [Ada] Suppress warning in g-socthi__vxworks.adb
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=fa7ea64706f7d4b1302360818c87bf5970d59a0c;p=platform%2Fupstream%2Fgcc.git

[Ada] Suppress warning in g-socthi__vxworks.adb

Follow-on to previous change, which missed the vxworks version of this
package.

gcc/ada/

	* libgnat/g-socthi__vxworks.adb (C_Connect): Suppress new warning.
---

diff --git a/gcc/ada/libgnat/g-socthi__vxworks.adb b/gcc/ada/libgnat/g-socthi__vxworks.adb
index aeae52d..32973b4 100644
--- a/gcc/ada/libgnat/g-socthi__vxworks.adb
+++ b/gcc/ada/libgnat/g-socthi__vxworks.adb
@@ -190,7 +190,9 @@ package body GNAT.Sockets.Thin is
          return Res;
       end if;
 
-      declare
+      pragma Warnings (Off, "unreachable code");
+      declare -- unreachable if Thread_Blocking_IO is statically True
+         pragma Warnings (On, "unreachable code");
          WSet : aliased Fd_Set;
          Now  : aliased Timeval;
       begin