From ca8a7793bf14b4578df375988254cd2eb911ded0 Mon Sep 17 00:00:00 2001
From: Richard Kenner <kenner@gcc.gnu.org>
Date: Tue, 12 Nov 1996 18:26:10 -0500
Subject: [PATCH] (vfork): Supply new definition for VMS.

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

From-SVN: r13151
---
 gcc/pexecute.c | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gcc/pexecute.c b/gcc/pexecute.c
index 1814b715754..457a6d38b41 100644
--- 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;
 }
 
-- 
2.30.2