diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2013-10-14 00:12:49 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2013-10-14 00:12:49 -0700 |
| commit | 1c0a74936b61e1f7e662089126a0765e25bf2c29 (patch) | |
| tree | 8d57ee533b81b8aeb0bade9f327e385d91418c98 /src/print.c | |
| parent | 1eda1d8d34c864df5b89464e51f0cbb8e46c5afd (diff) | |
| download | emacs-1c0a74936b61e1f7e662089126a0765e25bf2c29.tar.gz | |
* lisp.h (bool_vector_size): New function.
All uses of XBOOL_VECTOR (x)->size changed to bool_vector_size (x).
* data.c (bool_vector_spare_mask, bool_vector_binop_driver)
(Fbool_vector_not, Fbool_vector_count_matches_at):
Remove uses of 'eassume' that should no longer be needed,
because they are subsumed by the 'eassume' in bool_vector_size.
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/print.c b/src/print.c index 4ad34534da3..04552be906f 100644 --- a/src/print.c +++ b/src/print.c @@ -1704,15 +1704,14 @@ print_object (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag) int len; unsigned char c; struct gcpro gcpro1; - ptrdiff_t size_in_chars - = ((XBOOL_VECTOR (obj)->size + BOOL_VECTOR_BITS_PER_CHAR - 1) - / BOOL_VECTOR_BITS_PER_CHAR); - + EMACS_INT size = bool_vector_size (obj); + ptrdiff_t size_in_chars = ((size + BOOL_VECTOR_BITS_PER_CHAR - 1) + / BOOL_VECTOR_BITS_PER_CHAR); GCPRO1 (obj); PRINTCHAR ('#'); PRINTCHAR ('&'); - len = sprintf (buf, "%"pI"d", XBOOL_VECTOR (obj)->size); + len = sprintf (buf, "%"pI"d", size); strout (buf, len, len, printcharfun); PRINTCHAR ('\"'); |