# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 821230819 0
# Node ID 99ab26698ab0c23d16e619c67082a8d490fc7ce0
# Parent  d0b95da4f1f27669df2a34881c343f931d29c6f3
(read1): Use xmalloc and xrealloc, not malloc and realloc.
(dump_path): New static var.
(init_lread): Use that to record dump-time initial path.
Delete the local var dump_path; find Vsource_directory differently.
(syms_of_lread): staticpro it.

diff -r d0b95da4f1f2 -r 99ab26698ab0 src/lread.c
--- a/src/lread.c	Tue Jan 09 23:39:59 1996 +0000
+++ b/src/lread.c	Tue Jan 09 23:40:19 1996 +0000
@@ -1287,13 +1287,13 @@
 	      if (saved_doc_string_size == 0)
 		{
 		  saved_doc_string_size = nskip + 100;
-		  saved_doc_string = (char *) malloc (saved_doc_string_size);
+		  saved_doc_string = (char *) xmalloc (saved_doc_string_size);
 		}
 	      if (nskip > saved_doc_string_size)
 		{
 		  saved_doc_string_size = nskip + 100;
-		  saved_doc_string = (char *) realloc (saved_doc_string,
-						       saved_doc_string_size);
+		  saved_doc_string = (char *) xrealloc (saved_doc_string,
+							saved_doc_string_size);
 		}
 
 	      saved_doc_string_position = ftell (instream);
@@ -2222,6 +2222,10 @@
   XSYMBOL (sym)->value = val;
 }
 
+/* Record the value of load-path used at the start of dumping
+   so we can see if the site changed it later during dumping.  */
+static Lisp_Object dump_path;
+
 init_lread ()
 {
   char *normal;
@@ -2244,12 +2248,8 @@
      from the default before dumping, don't override that value.  */
   if (initialized)
     {
-      Lisp_Object dump_path;
-
-      dump_path = decode_env_path (0, PATH_DUMPLOADSEARCH);
-
       Vsource_directory = Fexpand_file_name (build_string ("../"),
-					     Fcar (dump_path));
+					     Fcar (Fcdr (dump_path)));
 
       if (! NILP (Fequal (dump_path, Vload_path)))
 	{
@@ -2288,10 +2288,13 @@
 	}
     }
   else
-    /* ../lisp refers to the build directory.
-       NORMAL refers to the lisp dir in the source directory.  */
-    Vload_path = Fcons (build_string ("../lisp"),
-				      decode_env_path (0, normal));
+    {
+      /* ../lisp refers to the build directory.
+	 NORMAL refers to the lisp dir in the source directory.  */
+      Vload_path = Fcons (build_string ("../lisp"),
+			  decode_env_path (0, normal));
+      dump_path = Vload_path;
+    }
 #endif
 
 #ifndef WINDOWSNT
@@ -2456,4 +2459,6 @@
 
   Qload_file_name = intern ("load-file-name");
   staticpro (&Qload_file_name);
+
+  staticpro (&dump_path);
 }