diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-08-18 00:31:32 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-08-18 00:31:32 +0200 |
commit | 3b882d69fb4d4be9e46767d57c22c5f0e33a9be4 (patch) | |
tree | b3d7a73e01f88cf2e0ddaa9bc4583a96d9bb7ac6 /libguile/bytevectors.c | |
parent | 1ac8a47f0187d2a96bc4571cb10cbf45b0edc9d4 (diff) | |
download | guile-3b882d69fb4d4be9e46767d57c22c5f0e33a9be4.tar.gz |
Remove unneeded SMOB mark/free procedures.
* libguile/bytevectors.c (free_bytevector): Remove.
(scm_bootstrap_bytevectors): Update accordingly.
* libguile/r6rs-ports.c (bip_mark, cbp_mark, bop_free, bop_proc_mark):
Remove.
(initialize_bytevector_input_ports,
initialize_custom_binary_input_ports,
initialize_bytevector_output_ports,
initialize_custom_binary_output_ports): Update accordingly.
Diffstat (limited to 'libguile/bytevectors.c')
-rw-r--r-- | libguile/bytevectors.c | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c index ee7004590..e8c65bf33 100644 --- a/libguile/bytevectors.c +++ b/libguile/bytevectors.c @@ -370,25 +370,6 @@ bytevector_equal_p (SCM bv1, SCM bv2) return scm_bytevector_eq_p (bv1, bv2); } -static size_t -free_bytevector (SCM bv) -{ - - if (!SCM_BYTEVECTOR_INLINE_P (bv)) - { - unsigned c_len; - signed char *c_bv; - - c_bv = SCM_BYTEVECTOR_CONTENTS (bv); - c_len = SCM_BYTEVECTOR_LENGTH (bv); - - scm_gc_free (c_bv, c_len, SCM_GC_BYTEVECTOR); - } - - return 0; -} - - /* General operations. */ @@ -2086,7 +2067,6 @@ scm_bootstrap_bytevectors (void) generalized-vector API may want to access bytevectors even though `(rnrs bytevector)' hasn't been loaded. */ scm_tc16_bytevector = scm_make_smob_type ("bytevector", 0); - scm_set_smob_free (scm_tc16_bytevector, free_bytevector); scm_set_smob_print (scm_tc16_bytevector, print_bytevector); scm_set_smob_equalp (scm_tc16_bytevector, bytevector_equal_p); |