From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 25 Nov 2019 10:29:51 +0000 (+0000)
Subject: re PR ada/92575 (couple of suspicious assignments in expect.c)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ee499b407f6c59fe71c91fa7ad9686d1a4edfce3;p=gcc.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: r278671
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c69910c97cc..a5b2a7c2b2a 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-06  Eric Botcazou  <ebotcazou@adacore.com>
 	    Alexandre Oliva  <oliva@adacore.com>
 
diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c
index 349af3f789d..b8753ab0880 100644
--- a/gcc/ada/expect.c
+++ b/gcc/ada/expect.c
@@ -262,7 +262,7 @@ __gnat_expect_poll (int *fd,
 	  if ((status & 1) != 1)
 	    {
               ready = -1;
-              dead_process = i + 1;
+              *dead_process = i + 1;
               return ready;
 	    }
 	}
@@ -447,7 +447,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;
 		      }