From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 25 Nov 2019 10:30:41 +0000 (+0000)
Subject: re PR ada/92575 (couple of suspicious assignments in expect.c)
X-Git-Tag: releases/gcc-9.3.0~358
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=09020f7a38f1038226963e2e1a7d4264a91929a8;p=thirdparty%2Fgcc.git

re PR ada/92575 (couple of suspicious assignments in expect.c)

	PR ada/92575
	* expect.c (__gnat_expect_poll [VMS, HPUX]): Fix typo.

From-SVN: r278672
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index dd515bca601c..1f13b9c06ab9 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-11-25  Eric Botcazou  <ebotcazou@adacore.com>
+
+	PR ada/92575
+	* expect.c (__gnat_expect_poll [VMS, HPUX]): Fix typo.
+
 2019-11-08  Jakub Jelinek  <jakub@redhat.com>
 
 	Backported from mainline
diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c
index 76fce788fc91..d4ffae219133 100644
--- a/gcc/ada/expect.c
+++ b/gcc/ada/expect.c
@@ -265,7 +265,7 @@ __gnat_expect_poll (int *fd,
 	  if ((status & 1) != 1)
 	    {
               ready = -1;
-              dead_process = i + 1;
+              *dead_process = i + 1;
               return ready;
 	    }
 	}
@@ -450,7 +450,7 @@ __gnat_expect_poll (int *fd,
 	            if (ei.request == TIOCCLOSE)
 		      {
 		        ioctl (fd[i], TIOCREQSET, &ei);
-                        dead_process = i + 1;
+                        *dead_process = i + 1;
 		        return -1;
 		      }