aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c14
1 files changed, 5 insertions, 9 deletions
diff --git a/src/bytecode.c b/src/bytecode.c
index acdf809971f..dca1e552dd0 100644
--- a/src/bytecode.c
+++ b/src/bytecode.c
@@ -423,15 +423,11 @@ unmark_byte_stack (void)
423/* Garbage collect if we have consed enough since the last time. 423/* Garbage collect if we have consed enough since the last time.
424 We do this at every branch, to avoid loops that never GC. */ 424 We do this at every branch, to avoid loops that never GC. */
425 425
426#define MAYBE_GC() \ 426#define MAYBE_GC() \
427 do { \ 427 do { \
428 if (consing_since_gc > gc_cons_threshold \ 428 BEFORE_POTENTIAL_GC (); \
429 && consing_since_gc > gc_relative_threshold) \ 429 maybe_gc (); \
430 { \ 430 AFTER_POTENTIAL_GC (); \
431 BEFORE_POTENTIAL_GC (); \
432 Fgarbage_collect (); \
433 AFTER_POTENTIAL_GC (); \
434 } \
435 } while (0) 431 } while (0)
436 432
437/* Check for jumping out of range. */ 433/* Check for jumping out of range. */