From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 16 Nov 2005 18:39:15 +0000 (+0000)
Subject: (readevalloop): Add missing GCPROs.
X-Git-Tag: emacs-pretest-22.0.90~5840
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0a37f51211b54a8c47c5f00a8884f9f809872bc0;p=emacs.git

(readevalloop): Add missing GCPROs.
---

diff --git a/src/lread.c b/src/lread.c
index bac5ad4f161..d4fb550b867 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1316,7 +1316,7 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
   register int c;
   register Lisp_Object val;
   int count = SPECPDL_INDEX ();
-  struct gcpro gcpro1;
+  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
   struct buffer *b = 0;
   int continue_reading_p;
 
@@ -1325,14 +1325,14 @@ readevalloop (readcharfun, stream, sourcename, evalfun,
   else if (MARKERP (readcharfun))
     b = XMARKER (readcharfun)->buffer;
 
-  specbind (Qstandard_input, readcharfun);
+  specbind (Qstandard_input, readcharfun); /* GCPROs readcharfun.  */
   specbind (Qcurrent_load_list, Qnil);
   record_unwind_protect (readevalloop_1, load_convert_to_unibyte ? Qt : Qnil);
   load_convert_to_unibyte = !NILP (unibyte);
 
   readchar_backlog = -1;
 
-  GCPRO1 (sourcename);
+  GCPRO4 (sourcename, readfun, start, end);
 
   LOADHIST_ATTACH (sourcename);