mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 15:10:34 +02:00
Code Activity

* ramap.c (s_scm_array_fill_x): Cast `ve' properly in case

Browse source 
`scm_tc7_uvect'.
This commit is contained in:
Mikael Djurfeldt 2000-06-12 21:26:52 +00:00
parent b038d983a1
commit e1c7d601ad
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/ramap.c
View file

@ -543,7 +543,7 @@ scm_array_fill_int (SCM ra, SCM fill, SCM ignore)
case scm_tc7_uvect: case scm_tc7_uvect:
{ /* scope */ { /* scope */
unsigned long f = SCM_NUM2ULONG (2,fill); unsigned long f = SCM_NUM2ULONG (2,fill);
unsigned long *ve = (long *) SCM_VELTS (ra); unsigned long *ve = (unsigned long *) SCM_VELTS (ra);
for (i = base; n--; i += inc) for (i = base; n--; i += inc)
ve[i] = f; ve[i] = f;