aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Botcazou <ebotcazou@adacore.com>2019-11-25 10:29:51 +0000
committerEric Botcazou <ebotcazou@gcc.gnu.org>2019-11-25 10:29:51 +0000
commitee499b407f6c59fe71c91fa7ad9686d1a4edfce3 (patch)
tree342385e64c18b45173cf40ccdf23203cf0ad5a67
parentd0b1b67aabc2b88b58a7485f79d16f9a6d4dd11c (diff)
downloadgcc-ee499b407f6c59fe71c91fa7ad9686d1a4edfce3.zip
gcc-ee499b407f6c59fe71c91fa7ad9686d1a4edfce3.tar.gz
gcc-ee499b407f6c59fe71c91fa7ad9686d1a4edfce3.tar.bz2
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
-rw-r--r--gcc/ada/ChangeLog5
-rw-r--r--gcc/ada/expect.c4
2 files changed, 7 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c69910c..a5b2a7c 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 349af3f..b8753ab 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;
}