[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 029b291..13f7799 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,9 @@
 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.
 
 2019-12-16  Arnaud Charlet  <charlet@adacore.com>

diff --git a/gcc/ada/socket.c b/gcc/ada/socket.c
index 94538d4..6ca9d50 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"