comparison src/alloc.c @ 10009:82f3daf76995

(Fpurecopy): Use type test macros. (mark_object): Use the new pseudovector convention.

10008:b83150a8020d

	      ptr->size ++;
	  }
      }
      break;

    case Lisp_Vector:
    case Lisp_Window:
    case Lisp_Process:
    case Lisp_Window_Configuration:
      {
	register struct Lisp_Vector *ptr = XVECTOR (obj);
	register EMACS_INT size = ptr->size;
	/* The reason we use ptr1 is to avoid an apparent hardware bug
	   that happens occasionally on the FSF's HP 300s.

	   perhaps in the moveml instruction.
	   Yes, this is a crock, but we have to do it.  */
	struct Lisp_Vector *volatile ptr1 = ptr;
	register int i;

	if (size & ARRAY_MARK_FLAG) break;   /* Already marked */
	ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
	for (i = 0; i < size; i++)     /* and then mark its elements */
	  mark_object (&ptr1->contents[i]);
      }
      break;

    case Lisp_Compiled:

10009:82f3daf76995

	      ptr->size ++;
	  }
      }
      break;

    case Lisp_Vectorlike:
    case Lisp_Window:
    case Lisp_Process:
      {
	register struct Lisp_Vector *ptr = XVECTOR (obj);
	register EMACS_INT size = ptr->size;
	/* The reason we use ptr1 is to avoid an apparent hardware bug
	   that happens occasionally on the FSF's HP 300s.

	   perhaps in the moveml instruction.
	   Yes, this is a crock, but we have to do it.  */
	struct Lisp_Vector *volatile ptr1 = ptr;
	register int i;

	if (size & ARRAY_MARK_FLAG) break; /* Already marked */
	ptr->size |= ARRAY_MARK_FLAG; /* Else mark it */
	if (size & PSEUDOVECTOR_FLAG)
	  size &= PSEUDOVECTOR_SIZE_MASK;
	for (i = 0; i < size; i++) /* and then mark its elements */
	  mark_object (&ptr1->contents[i]);
      }
      break;

    case Lisp_Compiled: