comparison src/alloc.c @ 104582:7d47cb148b29

(mark_char_table): New function. (mark_object): Use mark_char_table for a char-table.

104581:03bf18369e45

     The distinction is used e.g. by Lisp_Process which places extra
     non-Lisp_Object fields at the end of the structure.  */
  for (i = 0; i < size; i++) /* and then mark its elements */
    mark_object (ptr->contents[i]);
  return 1;
}

void
mark_object (arg)
     Lisp_Object arg;

		mark_object (h->key_and_value);
	      else
		VECTOR_MARK (XVECTOR (h->key_and_value));
	    }
	}
      else
	mark_vectorlike (XVECTOR (obj));
      break;

    case Lisp_Symbol:

104582:7d47cb148b29

     The distinction is used e.g. by Lisp_Process which places extra
     non-Lisp_Object fields at the end of the structure.  */
  for (i = 0; i < size; i++) /* and then mark its elements */
    mark_object (ptr->contents[i]);
  return 1;
}

/* Like mark_vectorlike but optimized for char-tables (and
   sub-char-tables) assuming that the contents are mostly integers or
   symbols.  */

static void
mark_char_table (ptr)
     struct Lisp_Vector *ptr;
{
  register EMACS_INT size = ptr->size & PSEUDOVECTOR_SIZE_MASK;
  register int i;

  VECTOR_MARK (ptr);
  for (i = 0; i < size; i++)
    {
      Lisp_Object val = ptr->contents[i];

      if (INTEGERP (val) || SYMBOLP (val) && XSYMBOL (val)->gcmarkbit)
	continue;
      if (SUB_CHAR_TABLE_P (val))
	{
	  if (! VECTOR_MARKED_P (XVECTOR (val)))
	    mark_char_table (XVECTOR (val));
	}
      else
	mark_object (val);
    }
}

void
mark_object (arg)
     Lisp_Object arg;

		mark_object (h->key_and_value);
	      else
		VECTOR_MARK (XVECTOR (h->key_and_value));
	    }
	}
      else if (CHAR_TABLE_P (obj))
	{
	  if (! VECTOR_MARKED_P (XVECTOR (obj)))
	    mark_char_table (XVECTOR (obj));
	}
      else
	mark_vectorlike (XVECTOR (obj));
      break;

    case Lisp_Symbol: