mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Avoid non-constant struct initializers

Browse source 
* libguile/foreign-object.c (scm_make_foreign_object_2):
  (scm_make_foreign_object_3): Avoid non-constant struct initializers.
This commit is contained in:
Andy Wingo 2014-04-28 11:01:44 +02:00
parent ea4c2460e0
commit 682a55d59b
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
libguile/foreign-object.c
View file

@ -78,7 +78,10 @@ scm_make_foreign_object_1 (SCM type, scm_t_bits val0)
SCM
scm_make_foreign_object_2 (SCM type, scm_t_bits val0, scm_t_bits val1)
{
scm_t_bits vals[2] = { val0, val1 };
scm_t_bits vals[2];
vals[0] = val0;
vals[1] = val1;
return scm_make_foreign_object_n (type, 2, vals);
}
@ -87,7 +90,11 @@ SCM
scm_make_foreign_object_3 (SCM type, scm_t_bits val0, scm_t_bits val1,
scm_t_bits val2)
{
scm_t_bits vals[3] = { val0, val1, val2 };
scm_t_bits vals[3];
vals[0] = val0;
vals[1] = val1;
vals[2] = val2;
return scm_make_foreign_object_n (type, 3, vals);
}