diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-19 03:28:21 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2000-04-19 03:28:21 +0000 |
commit | cfe66b727617ad4fa0c8a86335dd803d8f555db1 (patch) | |
tree | 820ad672f34b641584f5be2a37edc31337c2d058 /libguile/struct.c | |
parent | 495ffc6ec5095b834e5b00f250c7befe05b6c636 (diff) | |
download | guile-cfe66b727617ad4fa0c8a86335dd803d8f555db1.tar.gz |
* struct.c (scm_struct_free_light, scm_struct_free_standard,
scm_struct_free_entity): Use `scm_must_free' instead of `free'.
Diffstat (limited to 'libguile/struct.c')
-rw-r--r-- | libguile/struct.c | 6 |
1 files changed, 3 insertions, 3 deletions
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; } |