Commit 39323a7e authored by Karl Heuer's avatar Karl Heuer
Browse files

(Fcall_process_region): gcpro filename_string.

parent 6bac44b2
...@@ -486,7 +486,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") ...@@ -486,7 +486,9 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
int nargs; int nargs;
register Lisp_Object *args; 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 #ifdef MSDOS
char *tempfile; char *tempfile;
#else #else
...@@ -519,6 +521,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") ...@@ -519,6 +521,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
mktemp (tempfile); mktemp (tempfile);
filename_string = build_string (tempfile); filename_string = build_string (tempfile);
GCPRO1 (filename_string);
start = args[0]; start = args[0];
end = args[1]; end = args[1];
#ifdef MSDOS #ifdef MSDOS
...@@ -536,7 +539,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.") ...@@ -536,7 +539,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
args[3] = filename_string; 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. */ #ifndef VMS /* VMS version is in vmsproc.c. */
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment