diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 14 |
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. */ |