# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 777159889 0
# Node ID f1b1537ed3f66a659d94eefa3d5eafae12dd19e5
# Parent  0b44462dbbc8fdea732a0d02d38130a2db5eecea
(Fcall_process_region): gcpro filename_string.

diff -r 0b44462dbbc8 -r f1b1537ed3f6 src/callproc.c
--- a/src/callproc.c	Wed Aug 17 21:42:40 1994 +0000
+++ b/src/callproc.c	Wed Aug 17 21:44:49 1994 +0000
@@ -486,7 +486,9 @@
      int nargs;
      register Lisp_Object *args;
 {
-  register Lisp_Object filename_string, start, end;
+  struct gcpro gcpro1;
+  Lisp_Object filename_string;
+  register Lisp_Object start, end;
 #ifdef MSDOS
   char *tempfile;
 #else
@@ -519,6 +521,7 @@
   mktemp (tempfile);
 
   filename_string = build_string (tempfile);
+  GCPRO1 (filename_string);
   start = args[0];
   end = args[1];
 #ifdef MSDOS
@@ -536,7 +539,7 @@
 
   args[3] = filename_string;
 
-  return unbind_to (count, Fcall_process (nargs - 2, args + 2));
+  RETURN_UNGCPRO (unbind_to (count, Fcall_process (nargs - 2, args + 2)));
 }
 
 #ifndef VMS /* VMS version is in vmsproc.c.  */