From 75069667df1ed5fafbb9e1f4532adf1233b7eeab Mon Sep 17 00:00:00 2001 From: Vasiliy Fofanov Date: Mon, 13 Jul 2009 12:16:51 +0000 Subject: mingw32.h: Make it explicit that we need XP or later. 2009-07-13 Vasiliy Fofanov * mingw32.h: Make it explicit that we need XP or later. * initialize.c: Remove useless extern symbol declaration. * adaint.h: Ditto, also expose __gnat_win32_remove_handle to allow code reuse in expect.c. * adaint.c: Changes throughout the Windows section to redesign storage of the child process list and the process identification. * expect.c (__gnat_kill, __gnat_waitpid): Simplify, cleanup, use pids for interfacing, fix errors. (__gnat_expect_portable_execvp): use function in adaint.c From-SVN: r149573 --- gcc/ada/adaint.h | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'gcc/ada/adaint.h') diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index e8fb40b..57cedf8 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -199,8 +199,11 @@ extern void __gnat_os_filename (char *, char *, char *, extern void *__gnat_lwp_self (void); #endif -#if defined (__MINGW32__) && !defined (RTX) -extern void __gnat_plist_init (void); +#if defined (_WIN32) +/* Interface to delete a handle from internally maintained list of child + process handles on Windows */ +extern void +__gnat_win32_remove_handle (HANDLE h, int pid); #endif #ifdef IN_RTS -- cgit v1.1