mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 23:50:19 +02:00
Code Activity

* srfi-4.h, srfi-4.c (scm_frame_uniform_vector_release): New.

Browse source 
* unif.c (scm_bit_set_star_x, scm_bit_count_star_x): Use it to get
more efficient access to the u32vector.
This commit is contained in:
Marius Vollmer 2004-11-02 20:15:32 +00:00
parent 034486df89
commit d44ff083ea
3 changed files with 35 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

7
libguile/srfi-4.c
View file

@ -569,6 +569,13 @@ scm_uniform_vector_release (SCM uvec)
*/
}
void
scm_frame_uniform_vector_release (SCM uvec)
{
scm_frame_unwind_handler_with_scm (scm_uniform_vector_release, uvec,
SCM_F_WIND_EXPLICITLY);
}
size_t
scm_uniform_vector_element_size (SCM uvec)
{