From f5a0cbf1083ff9d9635c813929b89d9f831f4ec9 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 19 Nov 2004 11:54:33 +0100 Subject: * adaint.h, adaint.c (__gnat_portable_spawn): Fix cast of spawnvp third parameter to avoid warnings. Add also a cast to kill another warning. (win32_no_block_spawn): Initialize CreateProcess's dwCreationFlags parameter with the priority class of the parent process instead of always using the NORMAL_PRIORITY_CLASS. (__gnat_dup): New function. (__gnat_dup2): New function. (__gnat_is_symbolic_link): Enable the effective body of this function when __APPLE__ is defined. * g-os_lib.ads, g-os_lib.adb (Spawn): Two new procedures. Update comments. From-SVN: r90899 --- gcc/ada/adaint.h | 2 ++ 1 file changed, 2 insertions(+) (limited to 'gcc/ada/adaint.h') diff --git a/gcc/ada/adaint.h b/gcc/ada/adaint.h index c45a5332309..ebf99a59bd8 100644 --- a/gcc/ada/adaint.h +++ b/gcc/ada/adaint.h @@ -147,6 +147,8 @@ extern void __gnat_set_binary_mode (int); extern void __gnat_set_text_mode (int); extern char *__gnat_ttyname (int); extern int __gnat_lseek (int, long, int); +extern int __gnat_dup (int); +extern int __gnat_dup2 (int, int); #ifdef __MINGW32__ extern void __gnat_plist_init (void); -- cgit v1.2.1