diff src/lread.c @ 31307:dd074ffca70f

(openp): GCPRO local variable `filename'.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 31 Aug 2000 08:50:35 +0000
parents 8929101e0c90
children 08bb5394dee1
line wrap: on
line diff
--- a/src/lread.c	Thu Aug 31 07:03:28 2000 +0000
+++ b/src/lread.c	Thu Aug 31 08:50:35 2000 +0000
@@ -900,11 +900,11 @@
   int want_size;
   Lisp_Object filename;
   struct stat st;
-  struct gcpro gcpro1, gcpro2;
+  struct gcpro gcpro1, gcpro2, gcpro3;
   Lisp_Object string;
 
-  string = Qnil;
-  GCPRO2 (str, string);
+  string = filename = Qnil;
+  GCPRO3 (str, string, filename);
   
   if (storeptr)
     *storeptr = Qnil;