# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1069762906 0
# Node ID e929f6d1593b02f5ce18a49cdde5f35f1414b734
# Parent  1025f21ef0c9c7fbfc249ef734580857644b99dc
(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.

diff -r 1025f21ef0c9 -r e929f6d1593b src/fns.c
--- a/src/fns.c	Tue Nov 25 09:48:15 2003 +0000
+++ b/src/fns.c	Tue Nov 25 12:21:46 2003 +0000
@@ -2192,8 +2192,8 @@
 
     case Lisp_Vectorlike:
       {
-	register int i, size;
-	size = XVECTOR (o1)->size;
+	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.  */
@@ -2315,8 +2315,15 @@
 	= (XBOOL_VECTOR (array)->size + BITS_PER_CHAR - 1) / BITS_PER_CHAR;
 
       charval = (! NILP (item) ? -1 : 0);
-      for (index = 0; index < size_in_chars; index++)
+      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
     {