changeset 9277:21f6120be5ba

(make_process, create_process, Fopen_network_stream, deactivate_process, Faccept_process_output, Fprocess_send_eof): Use new accessor macros instead of calling XSET directly.
author Karl Heuer <kwzh@gnu.org>
date Tue, 04 Oct 1994 12:21:04 +0000
parents ae62e12feac5
children f2138d548313
files src/process.c
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/src/process.c	Tue Oct 04 12:20:04 1994 +0000
+++ b/src/process.c	Tue Oct 04 12:21:04 1994 +0000
@@ -470,8 +470,8 @@
   XSETTYPE (val, Lisp_Process);
 
   p = XPROCESS (val);
-  XSET (p->infd, Lisp_Int, -1);
-  XSET (p->outfd, Lisp_Int, -1);
+  XSETINT (p->infd, -1);
+  XSETINT (p->outfd, -1);
   XFASTINT (p->pid) = 0;
   XFASTINT (p->tick) = 0;
   XFASTINT (p->update_tick) = 0;
@@ -1249,8 +1249,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;
-  XSET (XPROCESS (process)->infd, Lisp_Int, inchannel);
-  XSET (XPROCESS (process)->outfd, Lisp_Int, outchannel);
+  XSETINT (XPROCESS (process)->infd, inchannel);
+  XSETINT (XPROCESS (process)->outfd, outchannel);
   /* Record the tty descriptor used in the subprocess.  */
   if (forkin < 0)
     XPROCESS (process)->subtty = Qnil;
@@ -1659,8 +1659,8 @@
   XPROCESS (proc)->filter = Qnil;
   XPROCESS (proc)->command = Qnil;
   XPROCESS (proc)->pid = Qnil;
-  XSET (XPROCESS (proc)->infd, Lisp_Int, s);
-  XSET (XPROCESS (proc)->outfd, Lisp_Int, outch);
+  XSETINT (XPROCESS (proc)->infd, s);
+  XSETINT (XPROCESS (proc)->outfd, outch);
   XPROCESS (proc)->status = Qrun;
   FD_SET (inch, &input_wait_mask);
   if (inch > max_process_desc)
@@ -1698,8 +1698,8 @@
  	close (outchannel);
 #endif
 
-      XSET (p->infd, Lisp_Int, -1);
-      XSET (p->outfd, Lisp_Int, -1);
+      XSETINT (p->infd, -1);
+      XSETINT (p->outfd, -1);
       chan_process[inchannel] = Qnil;
       FD_CLR (inchannel, &input_wait_mask);
       if (inchannel == max_process_desc)
@@ -1759,7 +1759,7 @@
       CHECK_NUMBER (timeout_msecs, 2);
       useconds = XINT (timeout_msecs);
       if (!INTEGERP (timeout))
-	XSET (timeout, Lisp_Int, 0);
+	XSETINT (timeout, 0);
 
       {
 	int carry = useconds / 1000000;
@@ -2919,7 +2919,7 @@
   else
     {
       close (XINT (XPROCESS (proc)->outfd));
-      XSET (XPROCESS (proc)->outfd, Lisp_Int, open (NULL_DEVICE, O_WRONLY));
+      XSETINT (XPROCESS (proc)->outfd, open (NULL_DEVICE, O_WRONLY));
     }
 #endif /* VMS */
   return process;