changeset 66937:cb58edf068f2

(readevalloop): Add missing GCPROs.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 16 Nov 2005 18:39:15 +0000
parents 3d572e08dd1d
children bb91429003e2
files src/lread.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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);