# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 840682629 0
# Node ID 85112cca0b2271206495f047f671c221c2e16c92
# Parent  efd2835a7c96bb8f91958b36eccb7854cf297a85
(send_process): GCPRO object.

diff -r efd2835a7c96 -r 85112cca0b22 src/process.c
--- a/src/process.c	Wed Aug 21 20:36:30 1996 +0000
+++ b/src/process.c	Thu Aug 22 02:57:09 1996 +0000
@@ -2645,6 +2645,9 @@
   /* Use volatile to protect variables from being clobbered by longjmp.  */
   int rv;
   volatile unsigned char *procname = XSTRING (XPROCESS (proc)->name)->data;
+  struct gcpro gcpro1;
+
+  GCPRO1 (object);
 
 #ifdef VMS
   struct Lisp_Process *p = XPROCESS (proc);
@@ -2783,6 +2786,8 @@
       error ("SIGPIPE raised on process %s; closed it", procname);
 #endif
     }
+
+  UNGCPRO;
 }
 
 DEFUN ("process-send-region", Fprocess_send_region, Sprocess_send_region,