summaryrefslogtreecommitdiff
path: root/libguile/arrays.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-09-25 13:45:16 +0200
committerLudovic Courtès <ludo@gnu.org>2009-09-28 23:32:34 +0200
commit8cf0dd6104c58f68e0f0ecdf0ab28a033754acf1 (patch)
tree7a47d3e264690a1761dbbe7118b8853798de3cb5 /libguile/arrays.c
parent3051344be566178999dd8679744e9c3ae9921de4 (diff)
downloadguile-8cf0dd6104c58f68e0f0ecdf0ab28a033754acf1.tar.gz
Remove unneeded SMOB/port mark/free procedures.
* libguile/arrays.c (array_mark, array_free): Remove. (scm_init_arrays): Adjust accordingly. * libguile/bitvectors.c (bitvector_free): Remove. (scm_c_make_bitvector): Use `scm_gc_malloc_pointerless ()'. (scm_init_bitvectors): Adjust accordingly. * libguile/strports.c (scm_make_stptob): Remove `scm_set_port_mark ()' call. * libguile/vports.c (scm_make_sfptob): Likewise.
Diffstat (limited to 'libguile/arrays.c')
-rw-r--r--libguile/arrays.c18
1 files changed, 0 insertions, 18 deletions
diff --git a/libguile/arrays.c b/libguile/arrays.c
index 62ce83e3b..b9386ea10 100644
--- a/libguile/arrays.c
+++ b/libguile/arrays.c
@@ -1095,22 +1095,6 @@ scm_i_read_array (SCM port, int c)
static SCM
-array_mark (SCM ptr)
-{
- return SCM_I_ARRAY_V (ptr);
-}
-
-static size_t
-array_free (SCM ptr)
-{
- scm_gc_free (SCM_I_ARRAY_MEM (ptr),
- (sizeof (scm_i_t_array)
- + SCM_I_ARRAY_NDIM (ptr) * sizeof (scm_t_array_dim)),
- "array");
- return 0;
-}
-
-static SCM
array_handle_ref (scm_t_array_handle *h, size_t pos)
{
return scm_c_generalized_vector_ref (SCM_I_ARRAY_V (h->array), pos);
@@ -1146,8 +1130,6 @@ void
scm_init_arrays ()
{
scm_i_tc16_array = scm_make_smob_type ("array", 0);
- scm_set_smob_mark (scm_i_tc16_array, array_mark);
- scm_set_smob_free (scm_i_tc16_array, array_free);
scm_set_smob_print (scm_i_tc16_array, scm_i_print_array);
scm_set_smob_equalp (scm_i_tc16_array, scm_array_equal_p);