# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 762903514 0
# Node ID 7a86fbeb5c883e5fa2113a2d04193bc76a59be3e
# Parent  80569adf45e490804f780fc58acb54f454799362
Include config.h, lisp.h, buffer.h, process.h, commands.h, errno.h and file.h.
(write_to_vms_process): Change =- to -=.
(create_process): Set status field instead of obsolete flags field.
(child_sig): Likewise.

diff -r 80569adf45e4 -r 7a86fbeb5c88 src/vmsproc.c
--- a/src/vmsproc.c	Sat Mar 05 20:39:07 1994 +0000
+++ b/src/vmsproc.c	Sat Mar 05 21:38:34 1994 +0000
@@ -26,11 +26,20 @@
     23 is the timer event flag
     24-31 are reserved by VMS
 */
+#include <config.h>
 #include	<ssdef.h>
 #include	<iodef.h>
 #include	<dvidef.h>
 #include	<clidef.h>
 #include	"vmsproc.h"
+#include	"lisp.h"
+#include	"buffer.h"
+#include	<file.h>
+#include	"process.h"
+#include	"commands.h"
+#include	<errno.h>
+extern Lisp_Object call_process_cleanup ();
+
 
 #define		KEYBOARD_EVENT_FLAG		1
 #define		TIMER_EVENT_FLAG		23
@@ -241,7 +250,7 @@
 	  error ("Could not write to subprocess: %x", status);
 	  return (0);
 	}
-      len =- out;
+      len -= out;
     }
   return (1);
 }
@@ -719,7 +728,7 @@
   chan_process[inchannel] = process;
   XFASTINT (XPROCESS (process)->infd) = inchannel;
   XFASTINT (XPROCESS (process)->outfd) = outchannel;
-  XFASTINT (XPROCESS (process)->flags) = RUNNING;
+  XPROCESS (process)->status = Qrun
 
   /* Delay interrupts until we have a chance to store
      the new fork's pid in its process structure */
@@ -759,10 +768,7 @@
   if (XSYMBOL (tail) == XSYMBOL (Qnil))
     return;
 
-  child_changed++;
-  XFASTINT (p->flags) = EXITED | CHANGED;
-  /* Truncate the exit status to 24 bits so that it fits in a FASTINT */
-  XFASTINT (p->reason) = (vs->exitStatus) & 0xffffff;
+  p->status = Fcons (Qexit, Fcons (make_number (vs->exitStatus), Qnil))
 }
 
 syms_of_vmsproc ()