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

* struct.c (scm_struct_free_light, scm_struct_free_standard,

Browse source 
scm_struct_free_entity): Use `scm_must_free' instead of	`free'.
This commit is contained in:
Mikael Djurfeldt 2000-04-19 03:28:21 +00:00
parent 495ffc6ec5
commit cfe66b7276
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/struct.c
View file

@ -335,7 +335,7 @@ scm_struct_free_0 (scm_bits_t * vtable, scm_bits_t * data)
scm_sizet scm_sizet
scm_struct_free_light (scm_bits_t * vtable, scm_bits_t * data) scm_struct_free_light (scm_bits_t * vtable, scm_bits_t * data)
{ {
free (data); scm_must_free (data);
return vtable [scm_struct_i_size] & ~SCM_STRUCTF_MASK; return vtable [scm_struct_i_size] & ~SCM_STRUCTF_MASK;
} }
@ -344,7 +344,7 @@ scm_struct_free_standard (scm_bits_t * vtable, scm_bits_t * data)
{ {
size_t n = (data[scm_struct_i_n_words] + scm_struct_n_extra_words) size_t n = (data[scm_struct_i_n_words] + scm_struct_n_extra_words)
* sizeof (scm_bits_t) + 7; * sizeof (scm_bits_t) + 7;
free ((void *) data[scm_struct_i_ptr]); scm_must_free ((void *) data[scm_struct_i_ptr]);
return n; return n;
} }
@ -353,7 +353,7 @@ scm_struct_free_entity (scm_bits_t * vtable, scm_bits_t * data)
{ {
size_t n = (data[scm_struct_i_n_words] + scm_struct_entity_n_extra_words) size_t n = (data[scm_struct_i_n_words] + scm_struct_entity_n_extra_words)
* sizeof (scm_bits_t) + 7; * sizeof (scm_bits_t) + 7;
free ((void *) data[scm_struct_i_ptr]); scm_must_free ((void *) data[scm_struct_i_ptr]);
return n; return n;
} }