From: Richard M. Stallman Date: Sat, 5 Mar 1994 21:38:34 +0000 (+0000) Subject: Include config.h, lisp.h, buffer.h, process.h, commands.h, errno.h and file.h. X-Git-Tag: emacs-19.34~9640 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0bc439a07665479d6e918474839c562c4e92f9e5;p=emacs.git 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 --git a/src/vmsproc.c b/src/vmsproc.c index 777ae61876e..f6e29f472a6 100644 --- a/src/vmsproc.c +++ b/src/vmsproc.c @@ -26,11 +26,20 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ 23 is the timer event flag 24-31 are reserved by VMS */ +#include #include #include #include #include #include "vmsproc.h" +#include "lisp.h" +#include "buffer.h" +#include +#include "process.h" +#include "commands.h" +#include +extern Lisp_Object call_process_cleanup (); + #define KEYBOARD_EVENT_FLAG 1 #define TIMER_EVENT_FLAG 23 @@ -241,7 +250,7 @@ write_to_vms_process (vs, buf, len) error ("Could not write to subprocess: %x", status); return (0); } - len =- out; + len -= out; } return (1); } @@ -719,7 +728,7 @@ create_process (process, new_argv) 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 @@ child_sig (vs) 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 ()