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

Remove unneeded SMOB mark/free procedures.

Browse source 
* 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.
This commit is contained in:
Ludovic Courtès 2009-08-18 00:31:32 +02:00
parent 1ac8a47f01
commit 3b882d69fb
2 changed files with 0 additions and 66 deletions
Download patch file Download diff file Expand all files Collapse all files

20
libguile/bytevectors.c
View file

@ -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);