# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 763949620 0
# Node ID 58e07555262751a8c2448b1b787917436001962d
# Parent  d4fe8a85355728ad5636fa7c89dae4f3af6ebbfd
(openp, Fload): GCPRO some things.

diff -r d4fe8a853557 -r 58e075552627 src/lread.c
--- 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);
 }