diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-16 18:39:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2005-11-16 18:39:15 +0000 |
| commit | 0a37f51211b54a8c47c5f00a8884f9f809872bc0 (patch) | |
| tree | 1cffce3f543a3c958f0758eca72d644a8bcee746 /src/lread.c | |
| parent | c01f0ed30392fb924078c0bb01319493a813a641 (diff) | |
| download | emacs-0a37f51211b54a8c47c5f00a8884f9f809872bc0.tar.gz emacs-0a37f51211b54a8c47c5f00a8884f9f809872bc0.tar.bz2 emacs-0a37f51211b54a8c47c5f00a8884f9f809872bc0.zip | |
(readevalloop): Add missing GCPROs.
Diffstat (limited to 'src/lread.c')
| -rw-r--r-- | src/lread.c | 6 |
1 files changed, 3 insertions, 3 deletions
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); |