comparison src/bytecode.c @ 90201:fbb2bea03df9

Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-69 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 474-484) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 88-91) - Merge from emacs--cvs-trunk--0 - Update FSF's address in GPL notices - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 14 Jul 2005 08:02:00 +0000
parents f9a65d7ebd29 64b32564144f
children 890cc78a5a24
comparison
equal deleted inserted replaced
90200:f9a65d7ebd29 90201:fbb2bea03df9
353 #define AFTER_POTENTIAL_GC() stack.top = NULL 353 #define AFTER_POTENTIAL_GC() stack.top = NULL
354 354
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_combined_threshold) \
360 { \ 360 { \
361 BEFORE_POTENTIAL_GC (); \ 361 BEFORE_POTENTIAL_GC (); \
362 Fgarbage_collect (); \ 362 Fgarbage_collect (); \
363 AFTER_POTENTIAL_GC (); \ 363 AFTER_POTENTIAL_GC (); \
364 } \ 364 } \
365 else 365 else
366 366
367 /* Check for jumping out of range. */ 367 /* Check for jumping out of range. */
368 368
369 #ifdef BYTE_CODE_SAFE 369 #ifdef BYTE_CODE_SAFE