mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-08 05:00:17 +02:00
Before, they were always shifted by 7. Now the flags are just above 0x7f and just the element type is shifted, but by 16. * libguile/bytevectors.h (SCM_BYTEVECTOR_FLAGS): Rework to not shift. (SCM_SET_BYTEVECTOR_FLAGS): Remove. (SCM_MUTABLE_BYTEVECTOR_P): Don't shift the immutable flag. (SCM_BYTEVECTOR_ELEMENT_TYPE): Shift right by 16. * libguile/bytevectors.c (SCM_BYTEVECTOR_SET_FLAG): Remove unused helper. (make_bytevector_tag): New helper. (make_bytevector): Use new helper. (make_bytevector_from_buffer): Add flags and parent args, and use new helper. (scm_c_take_gc_bytevector): (scm_c_take_typed_bytevector): (scm_bytevector_slice): Update callers. * module/system/vm/assembler.scm (link-data): Don't shift the flag by 7; instead shift the element type by 16. |
||
---|---|---|
.. | ||
ice-9 | ||
language | ||
oop | ||
rnrs | ||
scheme | ||
scripts | ||
srfi | ||
sxml | ||
system | ||
texinfo | ||
web | ||
Makefile.am | ||
rnrs.scm | ||
statprof.scm | ||
texinfo.scm |