From cfe66b727617ad4fa0c8a86335dd803d8f555db1 Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Wed, 19 Apr 2000 03:28:21 +0000 Subject: * struct.c (scm_struct_free_light, scm_struct_free_standard, scm_struct_free_entity): Use `scm_must_free' instead of `free'. --- libguile/struct.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'libguile/struct.c') diff --git a/libguile/struct.c b/libguile/struct.c index 6e55635ac..b8ac3c85c 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -335,7 +335,7 @@ scm_struct_free_0 (scm_bits_t * vtable, scm_bits_t * data) scm_sizet 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; } @@ -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) * sizeof (scm_bits_t) + 7; - free ((void *) data[scm_struct_i_ptr]); + scm_must_free ((void *) data[scm_struct_i_ptr]); 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) * sizeof (scm_bits_t) + 7; - free ((void *) data[scm_struct_i_ptr]); + scm_must_free ((void *) data[scm_struct_i_ptr]); return n; } -- cgit v1.2.3