From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 5 Sep 1994 01:12:25 +0000 (+0000)
Subject: (Ffile_accessible_directory_p): Put back the gcpro.
X-Git-Tag: emacs-19.34~7151
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d26859ebed557746e8b8ba517349b14cba840540;p=emacs.git

(Ffile_accessible_directory_p): Put back the gcpro.
---

diff --git a/src/fileio.c b/src/fileio.c
index 4a1fe76bdd1..1654d350ca2 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -2383,6 +2383,7 @@ searchable directory.")
 {
   Lisp_Object handler;
   int tem;
+  struct gcpro gcpro1;
 
   /* If the file name has special constructs in it,
      call the corresponding file handler.  */
@@ -2390,10 +2391,16 @@ searchable directory.")
   if (!NILP (handler))
     return call2 (handler, Qfile_accessible_directory_p, filename);
 
-  /* Need to gcpro in case the first function call has a handler that
-     causes filename to be relocated.  */
+  /* It's an unlikely combination, but yes we really do need to gcpro:
+     Suppose that file-accessible-directory-p has no handler, but
+     file-directory-p does have a handler; this handler causes a GC which
+     relocates the string in `filename'; and finally file-directory-p
+     returns non-nil.  Then we would end up passing a garbaged string
+     to file-executable-p.  */
+  GCPRO1 (filename);
   tem = (NILP (Ffile_directory_p (filename))
 	 || NILP (Ffile_executable_p (filename)));
+  UNGCPRO;
   return tem ? Qnil : Qt;
 }