diff options
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/expect.c | 4 |
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; } |