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.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/expect.c b/gcc/ada/expect.c
index b8753ab..718886d 100644
--- a/gcc/ada/expect.c
+++ b/gcc/ada/expect.c
@@ -6,7 +6,7 @@
* *
* C Implementation File *
* *
- * Copyright (C) 2001-2019, AdaCore *
+ * Copyright (C) 2001-2020, 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- *
@@ -78,6 +78,7 @@
#include <process.h>
#include <signal.h>
#include <io.h>
+#include "adaint.h"
#include "mingw32.h"
int
@@ -85,11 +86,10 @@ __gnat_waitpid (int pid)
{
HANDLE h = OpenProcess (PROCESS_ALL_ACCESS, FALSE, pid);
DWORD exitcode = 1;
- DWORD res;
if (h != NULL)
{
- res = WaitForSingleObject (h, INFINITE);
+ (void) WaitForSingleObject (h, INFINITE);
GetExitCodeProcess (h, &exitcode);
CloseHandle (h);
}
@@ -105,7 +105,8 @@ __gnat_expect_fork (void)
}
void
-__gnat_expect_portable_execvp (int *pid, char *cmd, char *argv[])
+__gnat_expect_portable_execvp (int *pid, char *cmd ATTRIBUTE_UNUSED,
+ char *argv[])
{
*pid = __gnat_portable_no_block_spawn (argv);
}