Mercurial > emacs
changeset 6212:7a86fbeb5c88
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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Mar 1994 21:38:34 +0000 |
| parents | 80569adf45e4 |
| children | 7eefa1bd1478 |
| files | src/vmsproc.c |
| diffstat | 1 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()