comparison src/alloc.c @ 25762:515645780a5a

(Fgarbage_collect): Remove unused variable. (compact_strings): Add parentheses around assignments in conditional context. (toplevel): Put declaration of unused function clear_marks in #if 0 like its definition.

25761:605bd4f82d45

int ignore_warnings;

Lisp_Object Qgc_cons_threshold, Qchar_table_extra_slots;

static void mark_buffer (), mark_kboards ();
static void clear_marks (), gc_sweep ();
static void compact_strings ();
static void mark_glyph_matrix P_ ((struct glyph_matrix *));
static void mark_face_cache P_ ((struct face_cache *));

#ifdef HAVE_WINDOW_SYSTEM
static void mark_image P_ ((struct image *));
static void mark_image_cache P_ ((struct frame *));
#endif /* HAVE_WINDOW_SYSTEM */

  register struct gcpro *tail;
  register struct specbinding *bind;
  struct catchtag *catch;
  struct handler *handler;
  register struct backtrace *backlist;
  register Lisp_Object tem;
  char stack_top_variable;
  register int i;
  int message_p;

  /* In case user calls debug_print during GC,

  /* Free any empty string blocks further back in the chain.
     This loop will never free first_string_block, but it is very
     unlikely that that one will become empty, so why bother checking?  */

  from_sb = first_string_block;
  while (to_sb = from_sb->next)
    {
      if (to_sb->pos == 0)
	{
	  if (from_sb->next = to_sb->next)
	    from_sb->next->prev = from_sb;
	  lisp_free (to_sb);
	  n_string_blocks--;
	}
      else

25762:515645780a5a

int ignore_warnings;

Lisp_Object Qgc_cons_threshold, Qchar_table_extra_slots;

static void mark_buffer (), mark_kboards ();
static void gc_sweep ();
static void compact_strings ();
static void mark_glyph_matrix P_ ((struct glyph_matrix *));
static void mark_face_cache P_ ((struct face_cache *));
#if 0
static void clear_marks ();
#endif

#ifdef HAVE_WINDOW_SYSTEM
static void mark_image P_ ((struct image *));
static void mark_image_cache P_ ((struct frame *));
#endif /* HAVE_WINDOW_SYSTEM */

  register struct gcpro *tail;
  register struct specbinding *bind;
  struct catchtag *catch;
  struct handler *handler;
  register struct backtrace *backlist;
  char stack_top_variable;
  register int i;
  int message_p;

  /* In case user calls debug_print during GC,

  /* Free any empty string blocks further back in the chain.
     This loop will never free first_string_block, but it is very
     unlikely that that one will become empty, so why bother checking?  */

  from_sb = first_string_block;
  while ((to_sb = from_sb->next) != 0)
    {
      if (to_sb->pos == 0)
	{
	  if ((from_sb->next = to_sb->next) != 0)
	    from_sb->next->prev = from_sb;
	  lisp_free (to_sb);
	  n_string_blocks--;
	}
      else