diff options
author | Han-Wen Nienhuys <hanwen@lilypond.org> | 2005-04-30 20:07:50 +0000 |
---|---|---|
committer | Han-Wen Nienhuys <hanwen@lilypond.org> | 2005-04-30 20:07:50 +0000 |
commit | 645dd3fc362a6b97d380c9836a6a1874fdb9a738 (patch) | |
tree | 7e950063316cfa6e60840dca23bcf12a84d42cde /libguile/fluids.c | |
parent | 6c8fbb949934849c808c55d1d32c447dde5a1a20 (diff) | |
download | guile-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.c | 6 |
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); } } |