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/lisp.h | |
| 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/lisp.h')
| -rw-r--r-- | src/lisp.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/lisp.h b/src/lisp.h index e4a2caa1083..d25904be379 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -1184,6 +1184,14 @@ struct Lisp_Bool_Vector unsigned char data[FLEXIBLE_ARRAY_MEMBER]; }; +INLINE EMACS_INT +bool_vector_size (Lisp_Object a) +{ + EMACS_INT size = XBOOL_VECTOR (a)->size; + eassume (0 <= size); + return size; +} + /* Some handy constants for calculating sizes and offsets, mostly of vectorlike objects. */ |