[Ada] Fix warning on _REENTRANT

2019-12-16  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* socket.c: Shutdown warning.

From-SVN: r279436

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 029b29199dd58289e578174db0145bc27cd51355..13f7799d03d80572868debb4c2b5352de6c94dae 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2019-12-16  Arnaud Charlet  <charlet@adacore.com>
+
+       * socket.c: Shutdown warning.
+
 2019-12-16  Arnaud Charlet  <charlet@adacore.com>
 
        * libgnarl/s-tataat.ads (Deallocator): Mark as Favor_Top_Level.

diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c
index 94538d4308266bda12d0bf29fc34df40df4ae419..6ca9d5038acd42369ac6ad8c959b25492c71cd59 100644 (file)
--- a/gcc/ada/socket.c
+++ b/gcc/ada/socket.c
@@ -34,7 +34,9 @@
 #define ATTRIBUTE_UNUSED __attribute__((unused))
 
 /* Ensure access to errno is thread safe.  */
+#ifndef _REENTRANT
 #define _REENTRANT
+#endif
 #define _THREAD_SAFE
 
 #include "gsocket.h"