From 47ed8656db8800f3ad20a40eb2c4e9ef3dc891e3 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 24 Oct 2011 18:22:35 +0200 Subject: add SCM_HEAP_OBJECT_BASE * libguile/tags.h (SCM_HEAP_OBJECT_BASE): New macro. Given a SCM, returns a pointer to the start of its memory area on the heap. * libguile/bytevectors.c: * libguile/fluids.c: * libguile/foreign.c: * libguile/gc.h: * libguile/guardians.c: * libguile/numbers.h: * libguile/ports.c: * libguile/smob.c: * libguile/struct.c: * libguile/weak-set.c: * libguile/weak-table.c: * libguile/weak-vector.c: Use it. --- libguile/weak-vector.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/weak-vector.c') diff --git a/libguile/weak-vector.c b/libguile/weak-vector.c index 23bc386d4..f829d3617 100644 --- a/libguile/weak-vector.c +++ b/libguile/weak-vector.c @@ -177,7 +177,7 @@ scm_c_weak_vector_set_x (SCM wv, size_t k, SCM x) if (SCM_HEAP_OBJECT_P (x)) SCM_I_REGISTER_DISAPPEARING_LINK ((GC_PTR) &elts[k], - (GC_PTR) SCM2PTR (x)); + (GC_PTR) SCM_HEAP_OBJECT_BASE (x)); } -- cgit v1.2.3