From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 15 Apr 2021 12:17:48 +0000 (+0200)
Subject: [Ada] Remove a special case for forking-for-expect from ordinary spawn
X-Git-Tag: basepoints/gcc-13~6419
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8d1427a932f241891f054e55c5d3710ef7d0f303;p=thirdparty%2Fgcc.git

[Ada] Remove a special case for forking-for-expect from ordinary spawn

gcc/ada/

	* adaint.c (__gnat_portable_spawn): Revert change that
	introduced setting of __gnat_in_child_after_fork.
---

diff --git a/gcc/ada/adaint.c b/gcc/ada/adaint.c
index 77703006a4da..b2d4de6bf65e 100644
--- a/gcc/ada/adaint.c
+++ b/gcc/ada/adaint.c
@@ -2423,7 +2423,6 @@ __gnat_portable_spawn (char *args[] ATTRIBUTE_UNUSED)
   if (pid == 0)
     {
       /* The child. */
-      __gnat_in_child_after_fork = 1;
       if (execv (args[0], MAYBE_TO_PTR32 (args)) != 0)
 	_exit (1);
     }