summaryrefslogtreecommitdiff
path: root/libguile/objcodes.c
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2009-03-22 15:46:46 +0100
committerLudovic Courtès <ludo@gnu.org>2009-03-22 16:00:10 +0100
commit3d94d862f898929876aaa8ed2937347fa3ce7ec1 (patch)
tree639018315fb0c222f8ab67dcffc634602706ea79 /libguile/objcodes.c
parentd9e59f894e1b41958203ddda7f21f4817cfcfe37 (diff)
downloadguile-3d94d862f898929876aaa8ed2937347fa3ce7ec1.tar.gz
Remove unneeded VM SMOB mark/free procedures.
* libguile/vm.c (vm_mark_stack, vm_cont_mark, vm_cont_free, vm_mark, vm_free): Remove. (scm_bootstrap_vm): Remove corresponding `scm_set_smob_mark ()' and `scm_set_smob_free ()' calls. * libguile/frames.c (vm_frame_mark, vm_frame_free): Remove. (scm_bootstrap_frames): Remove `scm_set_smob_mark ()' and `scm_set_smob_free ()' calls. * libguile/objcodes.c (objcode_mark): Remove. (scm_bootstrap_objcodes): Remove call to `scm_set_smob_mark ()'. * libguile/programs.c (program_mark): Remove. (scm_bootstrap_programs): Remove call to `scm_set_smob_mark ()'.
Diffstat (limited to 'libguile/objcodes.c')
-rw-r--r--libguile/objcodes.c7
1 files changed, 0 insertions, 7 deletions
diff --git a/libguile/objcodes.c b/libguile/objcodes.c
index 3e30b2d60..231d2f4b1 100644
--- a/libguile/objcodes.c
+++ b/libguile/objcodes.c
@@ -136,12 +136,6 @@ scm_c_make_objcode_slice (SCM parent, scm_t_uint8 *ptr)
}
#undef FUNC_NAME
-static SCM
-objcode_mark (SCM obj)
-{
- return SCM_SMOB_OBJECT_2 (obj);
-}
-
/*
* Scheme interface
@@ -265,7 +259,6 @@ void
scm_bootstrap_objcodes (void)
{
scm_tc16_objcode = scm_make_smob_type ("objcode", 0);
- scm_set_smob_mark (scm_tc16_objcode, objcode_mark);
}
/* Before, we used __BYTE_ORDER, but that is not defined on all