/[emacs]/emacs/src/fns.c
ViewVC logotype

Diff of /emacs/src/fns.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.349 by teirllm, Sun Nov 23 03:12:45 2003 UTC revision 1.350 by schwab, Tue Nov 25 12:21:46 2003 UTC
# Line 2192  internal_equal (o1, o2, depth) Line 2192  internal_equal (o1, o2, depth)
2192    
2193      case Lisp_Vectorlike:      case Lisp_Vectorlike:
2194        {        {
2195          register int i, size;          register int i;
2196          size = XVECTOR (o1)->size;          EMACS_INT size = XVECTOR (o1)->size;
2197          /* Pseudovectors have the type encoded in the size field, so this test          /* Pseudovectors have the type encoded in the size field, so this test
2198             actually checks that the objects have the same type as well as the             actually checks that the objects have the same type as well as the
2199             same size.  */             same size.  */
# Line 2315  ARRAY is a vector, string, char-table, o Line 2315  ARRAY is a vector, string, char-table, o
2315          = (XBOOL_VECTOR (array)->size + BITS_PER_CHAR - 1) / BITS_PER_CHAR;          = (XBOOL_VECTOR (array)->size + BITS_PER_CHAR - 1) / BITS_PER_CHAR;
2316    
2317        charval = (! NILP (item) ? -1 : 0);        charval = (! NILP (item) ? -1 : 0);
2318        for (index = 0; index < size_in_chars; index++)        for (index = 0; index < size_in_chars - 1; index++)
2319          p[index] = charval;          p[index] = charval;
2320          if (index < size_in_chars)
2321            {
2322              /* Mask out bits beyond the vector size.  */
2323              if (XBOOL_VECTOR (array)->size % BITS_PER_CHAR)
2324                charval &= (1 << (XBOOL_VECTOR (array)->size % BITS_PER_CHAR)) - 1;
2325              p[index] = charval;
2326            }
2327      }      }
2328    else    else
2329      {      {

Legend:
Removed from v.1.349  
changed lines
  Added in v.1.350

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26