comparison src/alloc.c @ 11892:6be0b7a0ac44

(Fgarbage_collect): Clear consing_since_gc first thing.
author Karl Heuer <kwzh@gnu.org>
date Wed, 24 May 1995 01:39:24 +0000
parents 53ccd2d608ee
children cdc859dd813b
comparison
equal deleted inserted replaced
11891:937c7fced6ee 11892:6be0b7a0ac44
1349 register Lisp_Object tem; 1349 register Lisp_Object tem;
1350 char *omessage = echo_area_glyphs; 1350 char *omessage = echo_area_glyphs;
1351 int omessage_length = echo_area_glyphs_length; 1351 int omessage_length = echo_area_glyphs_length;
1352 char stack_top_variable; 1352 char stack_top_variable;
1353 register int i; 1353 register int i;
1354
1355 /* In case user calls debug_print during GC,
1356 don't let that cause a recursive GC. */
1357 consing_since_gc = 0;
1354 1358
1355 /* Save a copy of the contents of the stack, for debugging. */ 1359 /* Save a copy of the contents of the stack, for debugging. */
1356 #if MAX_SAVE_STACK > 0 1360 #if MAX_SAVE_STACK > 0
1357 if (NILP (Vpurify_flag)) 1361 if (NILP (Vpurify_flag))
1358 { 1362 {