# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1132166355 0
# Node ID cb58edf068f2125c46a04979e9bba16eb4bbcfaf
# Parent  3d572e08dd1dfa269f7cdd78c1341fa92e5794f0
(readevalloop): Add missing GCPROs.

diff -r 3d572e08dd1d -r cb58edf068f2 src/lread.c
--- a/src/lread.c	Wed Nov 16 18:39:00 2005 +0000
+++ b/src/lread.c	Wed Nov 16 18:39:15 2005 +0000
@@ -1316,7 +1316,7 @@
   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 @@
   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);