comparison src/alloc.c @ 10649:52cdd8cc8d3e

(mark_perdisplays): New function. (Fgarbage_collect): Call it.

10648:0871d1c3cb26

int stack_copy_size;

/* Non-zero means ignore malloc warnings.  Set during initialization.  */
int ignore_warnings;

static void mark_object (), mark_buffer ();
static void clear_marks (), gc_sweep ();
static void compact_strings ();

/* Versions of malloc and realloc that print warnings as memory gets full.  */

	  {
	    mark_object (&backlist->args[i]);
	    XMARK (backlist->args[i]);
	  }
    }  

  gc_sweep ();

  /* Clear the mark bits that we set in certain root slots.  */

  /* If this is an indirect buffer, mark its base buffer.  */
  if (buffer->base_buffer && !XMARKBIT (buffer->base_buffer->name))
    {
      XSETBUFFER (base_buffer, buffer->base_buffer); 
      mark_buffer (base_buffer);
    }
}

/* Sweep: find all structures not marked, and free them. */

10649:52cdd8cc8d3e

int stack_copy_size;

/* Non-zero means ignore malloc warnings.  Set during initialization.  */
int ignore_warnings;

static void mark_object (), mark_buffer (), mark_perdisplays ();
static void clear_marks (), gc_sweep ();
static void compact_strings ();

/* Versions of malloc and realloc that print warnings as memory gets full.  */

	  {
	    mark_object (&backlist->args[i]);
	    XMARK (backlist->args[i]);
	  }
    }  
  mark_perdisplays ();

  gc_sweep ();

  /* Clear the mark bits that we set in certain root slots.  */

  /* If this is an indirect buffer, mark its base buffer.  */
  if (buffer->base_buffer && !XMARKBIT (buffer->base_buffer->name))
    {
      XSETBUFFER (base_buffer, buffer->base_buffer); 
      mark_buffer (base_buffer);
    }
}


/* Mark the pointers in the perdisplay objects.  */

static void
mark_perdisplays ()
{
  PERDISPLAY *perd;
  for (perd = all_perdisplays; perd; perd = perd->next_perdisplay)
    {
      mark_object (&perd->Vprefix_arg);
      mark_object (&perd->Vcurrent_prefix_arg);
      mark_object (&perd->kbd_buffer_frame_or_window);
    }
}

/* Sweep: find all structures not marked, and free them. */