From 6044e593a6e739ef32671ea1e0b0acc277e5498b Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Thu, 22 Aug 1996 02:57:09 +0000
Subject: [PATCH] (send_process): GCPRO object.

---
 src/process.c | 5 +++++
 1 file changed, 5 insertions(+)

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,
-- 
2.39.2