comparison src/alloc.c @ 83113:1a68e4b22355

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-241 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-242 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-243 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-244 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-245 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-246 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-247 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-248 src/lisp.h (CYCLE_CHECK): Macro moved from xfaces.c * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-249 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-250 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-251 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-252 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-253 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-254 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-255 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-153

83112:30dd490f06f2

  int real_init, i;
  int length_in_chars, length_in_elts, bits_per_value;

  CHECK_NATNUM (length);

  bits_per_value = sizeof (EMACS_INT) * BITS_PER_CHAR;

  length_in_elts = (XFASTINT (length) + bits_per_value - 1) / bits_per_value;
  length_in_chars = ((XFASTINT (length) + BITS_PER_CHAR - 1) / BITS_PER_CHAR);

  /* We must allocate one more elements than LENGTH_IN_ELTS for the
     slot `size' of the struct Lisp_Bool_Vector.  */
  val = Fmake_vector (make_number (length_in_elts + 1), Qnil);
  p = XBOOL_VECTOR (val);

  real_init = (NILP (init) ? 0 : -1);
  for (i = 0; i < length_in_chars ; i++)
    p->data[i] = real_init;

  /* Clear the extraneous bits in the last byte.  */
  if (XINT (length) != length_in_chars * BITS_PER_CHAR)
    XBOOL_VECTOR (val)->data[length_in_chars - 1]
      &= (1 << (XINT (length) % BITS_PER_CHAR)) - 1;

  return val;
}

83113:1a68e4b22355

  int real_init, i;
  int length_in_chars, length_in_elts, bits_per_value;

  CHECK_NATNUM (length);

  bits_per_value = sizeof (EMACS_INT) * BOOL_VECTOR_BITS_PER_CHAR;

  length_in_elts = (XFASTINT (length) + bits_per_value - 1) / bits_per_value;
  length_in_chars = ((XFASTINT (length) + BOOL_VECTOR_BITS_PER_CHAR - 1)
		     / BOOL_VECTOR_BITS_PER_CHAR);

  /* We must allocate one more elements than LENGTH_IN_ELTS for the
     slot `size' of the struct Lisp_Bool_Vector.  */
  val = Fmake_vector (make_number (length_in_elts + 1), Qnil);
  p = XBOOL_VECTOR (val);

  real_init = (NILP (init) ? 0 : -1);
  for (i = 0; i < length_in_chars ; i++)
    p->data[i] = real_init;

  /* Clear the extraneous bits in the last byte.  */
  if (XINT (length) != length_in_chars * BOOL_VECTOR_BITS_PER_CHAR)
    XBOOL_VECTOR (val)->data[length_in_chars - 1]
      &= (1 << (XINT (length) % BOOL_VECTOR_BITS_PER_CHAR)) - 1;

  return val;
}