From: Dave Love <fx@gnu.org>
Date: Thu, 17 Aug 2000 14:11:00 +0000 (+0000)
Subject: Prototype readevalloop, load_unwind,
X-Git-Tag: emacs-pretest-21.0.90~2206
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=232ccf275feae9a686ded89b64bea6b89116a5bd;p=emacs.git

Prototype readevalloop, load_unwind,
load_descriptor_unwind.
(unreadpure): Give it an arg.
---

diff --git a/src/lread.c b/src/lread.c
index 3a1bc00c03f..7e6b6a17949 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -530,9 +530,11 @@ DEFUN ("get-file-char", Fget_file_char, Sget_file_char, 0, 0, 0,
   return val;
 }
 
-static void readevalloop ();
-static Lisp_Object load_unwind ();
-static Lisp_Object load_descriptor_unwind ();
+static void readevalloop P_ ((Lisp_Object, FILE*, Lisp_Object, 
+			      Lisp_Object (*) (), int,
+			      Lisp_Object, Lisp_Object));
+static Lisp_Object load_unwind P_ ((Lisp_Object));
+static Lisp_Object load_descriptor_unwind P_ ((Lisp_Object));
 
 /* Non-zero means load dangerous compiled Lisp files.  */
 
@@ -1088,7 +1090,8 @@ build_load_history (stream, source)
 }
 
 Lisp_Object
-unreadpure ()	/* Used as unwind-protect function in readevalloop */
+unreadpure (junk) /* Used as unwind-protect function in readevalloop */
+     Lisp_Object junk;
 {
   read_pure = 0;
   return Qnil;