Mercurial > emacs
changeset 64613:9e774d6510f1
(Feval, Ffuncall): Test gc_cons_threshold and
gc_relative_threshold, one by one.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 23 Jul 2005 19:09:09 +0000 |
| parents | 6926a2764ae6 |
| children | 482ea9d640ec |
| files | src/eval.c |
| diffstat | 1 files changed, 4 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/src/eval.c Sat Jul 23 19:08:32 2005 +0000 +++ b/src/eval.c Sat Jul 23 19:09:09 2005 +0000 @@ -2094,7 +2094,8 @@ return form; QUIT; - if (consing_since_gc > gc_cons_combined_threshold) + if (consing_since_gc > gc_cons_threshold + && consing_since_gc > gc_relative_threshold) { GCPRO1 (form); Fgarbage_collect (); @@ -2794,7 +2795,8 @@ register int i; QUIT; - if (consing_since_gc > gc_cons_combined_threshold) + if (consing_since_gc > gc_cons_threshold + && consing_since_gc > gc_relative_threshold) Fgarbage_collect (); if (++lisp_eval_depth > max_lisp_eval_depth)