From: Arnaud Charlet <charlet@adacore.com>
Date: Mon, 16 Dec 2019 10:35:00 +0000 (+0000)
Subject: [Ada] Fix warning on _REENTRANT
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=08611be2545ec4a84357ad343aaec71da92f2ce6;p=gcc.git

[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 029b29199dd..13f7799d03d 100644
--- 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 94538d43082..6ca9d5038ac 100644
--- 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"