From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 22 Aug 1996 02:57:09 +0000 (+0000)
Subject: (send_process): GCPRO object.
X-Git-Tag: emacs-20.1~4049
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6044e593a6e739ef32671ea1e0b0acc277e5498b;p=emacs.git

(send_process): GCPRO object.
---

diff --git a/src/process.c b/src/process.c
index a527066277b..af82f560860 100644
--- a/src/process.c
+++ b/src/process.c
@@ -2645,6 +2645,9 @@ send_process (proc, buf, len, object)
   /* 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 @@ send_process (proc, buf, len, object)
       error ("SIGPIPE raised on process %s; closed it", procname);
 #endif
     }
+
+  UNGCPRO;
 }
 
 DEFUN ("process-send-region", Fprocess_send_region, Sprocess_send_region,