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

* struct.c, struct.h (scm_struct_free_0, scm_struct_free_light,

Browse source 
scm_struct_free_standard, scm_struct_free_entity): Declared to
return scm_sizet instead of size_t.
This commit is contained in:
Mikael Djurfeldt 1999-08-30 02:14:47 +00:00
parent 681b900590
commit 97056309c3
2 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/struct.c
View file

@ -331,20 +331,20 @@ scm_alloc_struct (int n_words, int n_extra, char *who)
return p;
}
size_t
scm_sizet
scm_struct_free_0 (SCM *vtable, SCM *data)
{
return 0;
}
size_t
scm_sizet
scm_struct_free_light (SCM *vtable, SCM *data)
{
free (data);
return vtable[scm_struct_i_size] & ~SCM_STRUCTF_MASK;
}
size_t
scm_sizet
scm_struct_free_standard (SCM *vtable, SCM *data)
{
size_t n = ((data[scm_struct_i_n_words] + scm_struct_n_extra_words)
@ -353,7 +353,7 @@ scm_struct_free_standard (SCM *vtable, SCM *data)
return n;
}
size_t
scm_sizet
scm_struct_free_entity (SCM *vtable, SCM *data)
{
size_t n = ((data[scm_struct_i_n_words] + scm_struct_entity_n_extra_words)