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 dd515bca601c3788d178d3dc37a8136c60b999a5..1f13b9c06ab91d4004232620dc55893757a7028a 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-08  Jakub Jelinek  <jakub@redhat.com>
 
        Backported from mainline

diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c
index 76fce788fc91e39bf4ccd9adcbda5ef9e99d4973..d4ffae2191332e0c4f29f26396cb02f869fe426e 100644 (file)
--- 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;
                      }