summaryrefslogtreecommitdiff
path: root/libguile/fluids.c
diff options
context:
space:
mode:
authorHan-Wen Nienhuys <hanwen@lilypond.org>2005-04-30 20:07:50 +0000
committerHan-Wen Nienhuys <hanwen@lilypond.org>2005-04-30 20:07:50 +0000
commit645dd3fc362a6b97d380c9836a6a1874fdb9a738 (patch)
tree7e950063316cfa6e60840dca23bcf12a84d42cde /libguile/fluids.c
parent6c8fbb949934849c808c55d1d32c447dde5a1a20 (diff)
downloadguile-645dd3fc362a6b97d380c9836a6a1874fdb9a738.tar.gz
(DYNAMIC_STATE_NEXT_LOC): new macro for use with
SCM_DEBUG_CELL_ACCESSES (FLUID_NEXT_LOC): idem.
Diffstat (limited to 'libguile/fluids.c')
-rw-r--r--libguile/fluids.c6
1 files changed, 4 insertions, 2 deletions
diff --git a/libguile/fluids.c b/libguile/fluids.c
index bee2bda6d..c55b5fd34 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -65,6 +65,7 @@ static scm_t_bits tc16_fluid;
#define IS_FLUID(x) SCM_SMOB_PREDICATE(tc16_fluid, (x))
#define FLUID_NUM(x) ((size_t)SCM_SMOB_DATA(x))
#define FLUID_NEXT(x) SCM_SMOB_OBJECT_2(x)
+#define FLUID_NEXT_LOC(x) SCM_SMOB_OBJECT_2_LOC(x)
#define SET_FLUID_NEXT(x,y) SCM_SET_SMOB_OBJECT_2((x), (y))
static scm_t_bits tc16_dynamic_state;
@@ -73,6 +74,7 @@ static scm_t_bits tc16_dynamic_state;
#define DYNAMIC_STATE_FLUIDS(x) SCM_SMOB_OBJECT(x)
#define SET_DYNAMIC_STATE_FLUIDS(x, y) SCM_SET_SMOB_OBJECT((x), (y))
#define DYNAMIC_STATE_NEXT(x) SCM_SMOB_OBJECT_2(x)
+#define DYNAMIC_STATE_NEXT_LOC(x) SCM_SMOB_OBJECT_2_LOC(x)
#define SET_DYNAMIC_STATE_NEXT(x, y) SCM_SET_SMOB_OBJECT_2((x), (y))
/* Weak lists of all dynamic states and all fluids.
@@ -145,7 +147,7 @@ scan_dynamic_states_and_fluids (void *dummy1 SCM_UNUSED,
*fluidp = FLUID_NEXT (*fluidp);
}
else
- fluidp = &FLUID_NEXT (*fluidp);
+ fluidp = FLUID_NEXT_LOC (*fluidp);
}
/* Scan all dynamic states and remove the unmarked ones. The live
@@ -166,7 +168,7 @@ scan_dynamic_states_and_fluids (void *dummy1 SCM_UNUSED,
if (allocated_fluids[i] == 0)
SCM_SIMPLE_VECTOR_SET (fluids, i, SCM_BOOL_F);
- statep = &DYNAMIC_STATE_NEXT (*statep);
+ statep = DYNAMIC_STATE_NEXT_LOC (*statep);
}
}