355 |
/* Garbage collect if we have consed enough since the last time. |
/* Garbage collect if we have consed enough since the last time. |
356 |
We do this at every branch, to avoid loops that never GC. */ |
We do this at every branch, to avoid loops that never GC. */ |
357 |
|
|
358 |
#define MAYBE_GC() \ |
#define MAYBE_GC() \ |
359 |
if (consing_since_gc > gc_cons_combined_threshold) \ |
if (consing_since_gc > gc_cons_threshold \ |
360 |
{ \ |
&& consing_since_gc > gc_relative_threshold) \ |
361 |
BEFORE_POTENTIAL_GC (); \ |
{ \ |
362 |
Fgarbage_collect (); \ |
BEFORE_POTENTIAL_GC (); \ |
363 |
AFTER_POTENTIAL_GC (); \ |
Fgarbage_collect (); \ |
364 |
} \ |
AFTER_POTENTIAL_GC (); \ |
365 |
|
} \ |
366 |
else |
else |
367 |
|
|
368 |
/* Check for jumping out of range. */ |
/* Check for jumping out of range. */ |