changeset 311:9e60d5c117db

*** empty log message ***

--- a/src/callproc.c	Tue Jul 02 22:37:47 1991 +0000
+++ b/src/callproc.c	Wed Jul 03 00:08:25 1991 +0000
@@ -121,11 +121,6 @@
 #if 0
   int mask;
 #endif
-  struct gcpro gcpro1;
-
-  GCPRO1 (*args);
-  gcpro1.nvars = nargs;
-
   CHECK_STRING (args[0], 0);
 
   if (nargs <= 1 || NULL (args[1]))
@@ -246,8 +241,6 @@
 #ifndef subprocesses
       wait_without_blocking ();
 #endif /* subprocesses */
-
-      UNGCPRO;
       return Qnil;
     }
 
@@ -285,8 +278,6 @@
 
   unbind_to (count, Qnil);
 
-  UNGCPRO;
-
   if (synch_process_death)
     return build_string (synch_process_death);
   return make_number (synch_process_retcode);
@@ -319,10 +310,6 @@
   register Lisp_Object filename_string, start, end;
   char tempfile[20];
   int count = specpdl_ptr - specpdl;
-  struct gcpro gcpro1;
-
-  GCPRO1 (*args);
-  gcpro1.nvars = 2;
 
 #ifdef VMS
   strcpy (tempfile, "tmp:emacsXXXXXX.");
@@ -343,7 +330,6 @@
   args[3] = filename_string;
   Fcall_process (nargs - 2, args + 2);
 
-  UNGCPRO;
   return unbind_to (count, Qnil);
 }
 

--- a/src/mocklisp.c	Tue Jul 02 22:37:47 1991 +0000
+++ b/src/mocklisp.c	Wed Jul 03 00:08:25 1991 +0000
@@ -205,10 +205,6 @@
 {
   register int argnum;
   register Lisp_Object tem;
-  struct gcpro gcpro1;
-
-  GCPRO1 (*args);
-  gcpro1.nvars = nargs;
 
   for (argnum = 0; argnum < nargs; argnum++)
     {
@@ -225,7 +221,6 @@
 	}
     }
 
-  UNGCPRO;
   return Qnil;
 }