comparison src/alloc.c @ 55634:d3542bbadad7

(mark_object): Ignore Lisp_Misc_Free objects. Such objects may be freed markers which still exist on an undo list.

55633:e01abd0ad603

  /* Put on free list.  */
  ablock->x.next_free = free_ablock;
  free_ablock = ablock;
  /* Update busy count.  */
  ABLOCKS_BUSY (abase) = (struct ablocks *) (-2 + (long) ABLOCKS_BUSY (abase));
  
  if (2 > (long) ABLOCKS_BUSY (abase))
    { /* All the blocks are free.  */
      int i = 0, aligned = (long) ABLOCKS_BUSY (abase);
      struct ablock **tem = &free_ablock;
      struct ablock *atop = &abase->blocks[aligned ? ABLOCKS_SIZE : ABLOCKS_SIZE - 1];

	  }
      }
      break;

    case Lisp_Misc:
      CHECK_ALLOCATED_AND_LIVE (live_misc_p);
      if (XMARKER (obj)->gcmarkbit)
	break;
      XMARKER (obj)->gcmarkbit = 1;
      switch (XMISCTYPE (obj))

55634:d3542bbadad7

  /* Put on free list.  */
  ablock->x.next_free = free_ablock;
  free_ablock = ablock;
  /* Update busy count.  */
  ABLOCKS_BUSY (abase) = (struct ablocks *) (-2 + (long) ABLOCKS_BUSY (abase));

  if (2 > (long) ABLOCKS_BUSY (abase))
    { /* All the blocks are free.  */
      int i = 0, aligned = (long) ABLOCKS_BUSY (abase);
      struct ablock **tem = &free_ablock;
      struct ablock *atop = &abase->blocks[aligned ? ABLOCKS_SIZE : ABLOCKS_SIZE - 1];

	  }
      }
      break;

    case Lisp_Misc:
      if (XMISCTYPE (obj) == Lisp_Misc_Free)
	{
	  /* This is (probably) a freed marker which may still exist on
	     a buffer undo list, so accept it here.  */
	  /* If we reuse the marker, and it still exists on the undo
	     list, and we do undo, behaviour is unpredictable --
	     but at least we don't crash here.  KFS 2004-05-17 */
	  break;
	}
      CHECK_ALLOCATED_AND_LIVE (live_misc_p);
      if (XMARKER (obj)->gcmarkbit)
	break;
      XMARKER (obj)->gcmarkbit = 1;
      switch (XMISCTYPE (obj))