(openp): GCPRO local variable `filename'.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2e3b494a8c96c671d111b16e6c4a787f467ae00a..f72cf43685af0468c7550407b6158c82b9cf67f7 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2000-08-31  Gerd Moellmann  <gerd@gnu.org>
+
+       * lread.c (openp): GCPRO local variable `filename'.
+
 2000-08-30  Stefan Monnier  <monnier@cs.yale.edu>
 
        * regex.h (struct re_pattern_buffer): Use size_t for used/allocated.

diff --git a/src/lread.c b/src/lread.c
index 904083c43962ffbe98afd246aae837c277be58bb..f29a5f4a45aecf2eec9bc11eba5599f01fe6ba11 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -900,11 +900,11 @@ openp (path, str, suffix, storeptr, exec_only)
   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;