mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-24 13:30:21 +02:00
Code Activity

(bitvector_set): Use h->writable_elements not h->elements.

Browse source
This commit is contained in:
Kevin Ryde 2006-02-27 16:34:12 +00:00
parent dbc82ba387
commit b0ef6db3d0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -380,9 +380,9 @@ bitvector_set (scm_t_array_handle *h, ssize_t pos, SCM val)
pos += scm_array_handle_bit_elements_offset (h); pos += scm_array_handle_bit_elements_offset (h);
mask = 1l << (pos % 32); mask = 1l << (pos % 32);
if (scm_to_bool (val)) if (scm_to_bool (val))
((scm_t_uint32 *)h->elements)[pos/32] |= mask; ((scm_t_uint32 *)h->writable_elements)[pos/32] |= mask;
else else
((scm_t_uint32 *)h->elements)[pos/32] &= ~mask; ((scm_t_uint32 *)h->writable_elements)[pos/32] &= ~mask;
} }
static void static void