# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 781287393 0
# Node ID d428ab51a1bcbe4415d6bbb8e59187873f1ff01b
# Parent  0dceca89f9781a568d7d642535f65981780acb95
(create_process): Don't use XFASTINT as an lvalue.

diff -r 0dceca89f978 -r d428ab51a1bc src/vmsproc.c
--- a/src/vmsproc.c	Tue Oct 04 16:15:52 1994 +0000
+++ b/src/vmsproc.c	Tue Oct 04 16:16:33 1994 +0000
@@ -726,8 +726,8 @@
   /* Record this as an active process, with its channels.
      As a result, child_setup will close Emacs's side of the pipes.  */
   chan_process[inchannel] = process;
-  XFASTINT (XPROCESS (process)->infd) = inchannel;
-  XFASTINT (XPROCESS (process)->outfd) = outchannel;
+  XSETFASTINT (XPROCESS (process)->infd, inchannel);
+  XSETFASTINT (XPROCESS (process)->outfd, outchannel);
   XPROCESS (process)->status = Qrun
 
   /* Delay interrupts until we have a chance to store
@@ -742,7 +742,7 @@
     */
   write_to_vms_process (vs, NO_ECHO, strlen (NO_ECHO));
 
-  XFASTINT (XPROCESS (process)->pid) = pid;
+  XSETFASTINT (XPROCESS (process)->pid, pid);
   sys$setast (1);
 }