comparison src/fns.c @ 53159:e929f6d1593b

(internal_equal) <case Lisp_Vectorlike>: Declare size as EMACS_INT to not lose bits. (Ffillarray): Don't set bits beyond the size of a bool vector.

53158:1025f21ef0c9

	}
      break;

    case Lisp_Vectorlike:
      {
	register int i, size;
	size = XVECTOR (o1)->size;
	/* Pseudovectors have the type encoded in the size field, so this test
	   actually checks that the objects have the same type as well as the
	   same size.  */
	if (XVECTOR (o2)->size != size)
	  return 0;

      register unsigned char *p = XBOOL_VECTOR (array)->data;
      int size_in_chars
	= (XBOOL_VECTOR (array)->size + BITS_PER_CHAR - 1) / BITS_PER_CHAR;

      charval = (! NILP (item) ? -1 : 0);
      for (index = 0; index < size_in_chars; index++)
	p[index] = charval;
    }
  else
    {
      array = wrong_type_argument (Qarrayp, array);
      goto retry;

53159:e929f6d1593b

	}
      break;

    case Lisp_Vectorlike:
      {
	register int i;
	EMACS_INT size = XVECTOR (o1)->size;
	/* Pseudovectors have the type encoded in the size field, so this test
	   actually checks that the objects have the same type as well as the
	   same size.  */
	if (XVECTOR (o2)->size != size)
	  return 0;

      register unsigned char *p = XBOOL_VECTOR (array)->data;
      int size_in_chars
	= (XBOOL_VECTOR (array)->size + BITS_PER_CHAR - 1) / BITS_PER_CHAR;

      charval = (! NILP (item) ? -1 : 0);
      for (index = 0; index < size_in_chars - 1; index++)
	p[index] = charval;
      if (index < size_in_chars)
	{
	  /* Mask out bits beyond the vector size.  */
	  if (XBOOL_VECTOR (array)->size % BITS_PER_CHAR)
	    charval &= (1 << (XBOOL_VECTOR (array)->size % BITS_PER_CHAR)) - 1;
	  p[index] = charval;
	}
    }
  else
    {
      array = wrong_type_argument (Qarrayp, array);
      goto retry;