(vfork): Supply new definition for VMS.

(pwait): Use waitpid instead of wait for VMS.

From-SVN: r13151

diff --git a/gcc/pexecute.c b/gcc/pexecute.c
index 1814b71..457a6d3 100644 (file)
--- a/gcc/pexecute.c
+++ b/gcc/pexecute.c
@@ -444,9 +444,14 @@ pfinish ()
 #if ! defined (__MSDOS__) && ! defined (OS2) && ! defined (MPW) \
     && (defined (__CYGWIN32__) || ! defined (_WIN32))
 
+#ifdef VMS
+#define vfork() (decc$$alloc_vfork_blocks() >= 0 ? \
+               lib$get_current_invo_context(decc$$get_vfork_jmpbuf()) : -1)
+#else
 #ifdef USG
 #define vfork fork
 #endif
+#endif
 
 extern int execv ();
 extern int execvp ();
@@ -575,7 +580,11 @@ pwait (pid, status, flags)
 {
   /* ??? Here's an opportunity to canonicalize the values in STATUS.
      Needed?  */
+#ifdef VMS
+  pid = waitpid (-1, status, 0);
+#else
   pid = wait (status);
+#endif
   return pid;
 }