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 c69910c..a5b2a7c 100644 (file)
--- 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 349af3f..b8753ab 100644 (file)
--- 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;
                      }