aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/expect.c
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/expect.c')
-rw-r--r--gcc/ada/expect.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c
index 4da7018..a19ec56 100644
--- a/gcc/ada/expect.c
+++ b/gcc/ada/expect.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * Copyright (C) 2001-2015, AdaCore *
+ * Copyright (C) 2001-2016, AdaCore *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
@@ -388,7 +388,9 @@ __gnat_expect_poll (int *fd,
int max_fd = 0;
int ready;
int i;
+#ifdef __hpux__
int received;
+#endif
*dead_process = 0;
@@ -413,14 +415,18 @@ __gnat_expect_poll (int *fd,
if (ready > 0)
{
+#ifdef __hpux__
received = 0;
+#endif
for (i = 0; i < num_fd; i++)
{
if (FD_ISSET (fd[i], &rset))
{
is_set[i] = 1;
+#ifdef __hpux__
received = 1;
+#endif
}
else
is_set[i] = 0;