mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(uvec_fast_ref): Avoid a compiler warning by returning

Browse source 
SCM_BOOL_F if no type matches.
This commit is contained in:
Marius Vollmer 2004-11-02 22:46:26 +00:00
parent a95ba079dc
commit 28d4aef1f0
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/srfi-4.c
View file

@ -282,6 +282,8 @@ uvec_fast_ref (int type, void *base, size_t c_idx)
else if (type == SCM_UVEC_C64) else if (type == SCM_UVEC_C64)
return scm_c_make_rectangular (((double*)base)[2*c_idx], return scm_c_make_rectangular (((double*)base)[2*c_idx],
((double*)base)[2*c_idx+1]); ((double*)base)[2*c_idx+1]);
else
return SCM_BOOL_F;
} }
static SCM_C_INLINE void static SCM_C_INLINE void