From: Richard Kenner <kenner@gcc.gnu.org>
Date: Tue, 12 Nov 1996 23:26:10 +0000 (-0500)
Subject: (vfork): Supply new definition for VMS.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ca8a7793bf14b4578df375988254cd2eb911ded0;p=gcc.git

(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 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;
 }