aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c21
1 files changed, 11 insertions, 10 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index 73b8f60a1a8..e5a3e7b2a7c 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -1,6 +1,6 @@
1/* Execution of byte code produced by bytecomp.el. 1/* Execution of byte code produced by bytecomp.el.
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004 2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 2000, 2001, 2002, 2003, 2004,
3 Free Software Foundation, Inc. 3 2005 Free Software Foundation, Inc.
4 4
5This file is part of GNU Emacs. 5This file is part of GNU Emacs.
6 6
@@ -355,13 +355,14 @@ unmark_byte_stack ()
355/* Garbage collect if we have consed enough since the last time. 355/* Garbage collect if we have consed enough since the last time.
356 We do this at every branch, to avoid loops that never GC. */ 356 We do this at every branch, to avoid loops that never GC. */
357 357
358#define MAYBE_GC() \ 358#define MAYBE_GC() \
359 if (consing_since_gc > gc_cons_threshold) \ 359 if (consing_since_gc > gc_cons_threshold \
360 { \ 360 && consing_since_gc > gc_relative_threshold) \
361 BEFORE_POTENTIAL_GC (); \ 361 { \
362 Fgarbage_collect (); \ 362 BEFORE_POTENTIAL_GC (); \
363 AFTER_POTENTIAL_GC (); \ 363 Fgarbage_collect (); \
364 } \ 364 AFTER_POTENTIAL_GC (); \
365 } \
365 else 366 else
366 367
367/* Check for jumping out of range. */ 368/* Check for jumping out of range. */
@@ -388,7 +389,7 @@ unmark_byte_stack ()
388 Vquit_flag = Qnil; \ 389 Vquit_flag = Qnil; \
389 BEFORE_POTENTIAL_GC (); \ 390 BEFORE_POTENTIAL_GC (); \
390 if (EQ (Vthrow_on_input, flag)) \ 391 if (EQ (Vthrow_on_input, flag)) \
391 Fthrow (Vthrow_on_input, Qnil); \ 392 Fthrow (Vthrow_on_input, Qt); \
392 Fsignal (Qquit, Qnil); \ 393 Fsignal (Qquit, Qnil); \
393 AFTER_POTENTIAL_GC (); \ 394 AFTER_POTENTIAL_GC (); \
394 } \ 395 } \