comparison src/alloc.c @ 11018:2d9bdf1ba3d1

(mark_kboards): Renamed from mark_perdisplays.

11017:f7c4ece024d5

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.  */

	case Lisp_Misc_Intfwd:
	case Lisp_Misc_Boolfwd:
	case Lisp_Misc_Objfwd:
	case Lisp_Misc_Buffer_Objfwd:
	case Lisp_Misc_Display_Objfwd:
	  /* Don't bother with Lisp_Buffer_Objfwd,
	     since all markable slots in current buffer marked anyway.  */
	  /* Don't need to do Lisp_Objfwd, since the places they point
	     are protected with staticpro.  */
	  break;

      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->prefix_factor);
      mark_object (&perd->prefix_value);
      mark_object (&perd->kbd_queue);
      mark_object (&perd->Vlast_kbd_macro);
    }
}

/* Sweep: find all structures not marked, and free them. */

11018:2d9bdf1ba3d1

int stack_copy_size;

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

static void mark_object (), mark_buffer (), mark_kboards ();
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_kboards ();

  gc_sweep ();

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

	case Lisp_Misc_Intfwd:
	case Lisp_Misc_Boolfwd:
	case Lisp_Misc_Objfwd:
	case Lisp_Misc_Buffer_Objfwd:
	case Lisp_Misc_Kboard_Objfwd:
	  /* Don't bother with Lisp_Buffer_Objfwd,
	     since all markable slots in current buffer marked anyway.  */
	  /* Don't need to do Lisp_Objfwd, since the places they point
	     are protected with staticpro.  */
	  break;

      mark_buffer (base_buffer);
    }
}


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

static void
mark_kboards ()
{
  KBOARD *kb;
  for (kb = all_kboards; kb; kb = kb->next_kboard)
    {
      mark_object (&kb->prefix_factor);
      mark_object (&kb->prefix_value);
      mark_object (&kb->kbd_queue);
      mark_object (&kb->Vlast_kbd_macro);
    }
}

/* Sweep: find all structures not marked, and free them. */