diff options
| author | Bob Duff <duff@adacore.com> | 2022-06-28 08:28:12 -0400 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-07-12 12:24:13 +0000 |
| commit | fa7ea64706f7d4b1302360818c87bf5970d59a0c (patch) | |
| tree | 44e8bdf063d6c8a9382ac08e86fb56724ea4aaf4 /gcc | |
| parent | a24614ec4918d00f0c0761ba987cd15374b3ac43 (diff) | |
| download | gcc-fa7ea64706f7d4b1302360818c87bf5970d59a0c.zip gcc-fa7ea64706f7d4b1302360818c87bf5970d59a0c.tar.gz gcc-fa7ea64706f7d4b1302360818c87bf5970d59a0c.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/g-socthi__vxworks.adb | 4 |
1 files changed, 3 insertions, 1 deletions
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 |