Mercurial > emacs

changeset 6392:58e075552627

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(openp, Fload): GCPRO some things.
author Karl Heuer <kwzh@gnu.org>
date Fri, 18 Mar 1994 00:13:40 +0000
parents d4fe8a853557
children 7de1d288460e
files src/lread.c
diffstat 1 files changed, 8 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/lread.c	Fri Mar 18 00:13:22 1994 +0000
+++ b/src/lread.c	Fri Mar 18 00:13:40 1994 +0000
@@ -353,8 +353,10 @@
      since it would try to load a directory as a Lisp file */
   if (XSTRING (str)->size > 0)
     {
+      GCPRO1 (str);
       fd = openp (Vload_path, str, !NILP (nosuffix) ? "" : ".elc:.el:",
 		  &found, 0);
+      UNGCPRO;
     }
 
   if (fd < 0)
@@ -505,7 +507,9 @@
   int want_size;
   register Lisp_Object filename;
   struct stat st;
+  struct gcpro gcpro1;
 
+  GCPRO1 (str);
   if (storeptr)
     *storeptr = Qnil;
 
@@ -563,7 +567,7 @@
 		  /* We succeeded; return this descriptor and filename.  */
 		  if (storeptr)
 		    *storeptr = build_string (fn);
-		  return fd;
+		  RETURN_UNGCPRO (fd);
 		}
 	    }
 
@@ -572,10 +576,11 @@
 	    break;
 	  nsuffix += lsuffix + 1;
 	}
-      if (absolute) return -1;
+      if (absolute)
+	RETURN_UNGCPRO (-1);
     }
 
-  return -1;
+  RETURN_UNGCPRO (-1);
 }