diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-05 21:38:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-05 21:38:34 +0000 |
| commit | 3ec583408f9749ffd37bf5f2c0e474648be8b72e (patch) | |
| tree | b48a405207b2472f848cbfd877d1fde58ed4045f /src/vmsproc.c | |
| parent | fbd11065aeb3541f2075d85a1a199b7841a7c57d (diff) | |
| download | emacs-3ec583408f9749ffd37bf5f2c0e474648be8b72e.tar.gz | |
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.
Diffstat (limited to 'src/vmsproc.c')
| -rw-r--r-- | src/vmsproc.c | 18 |
1 files changed, 12 insertions, 6 deletions
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 <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 @@ 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 () |