diff options
author | Ludovic Courtès <ludo@gnu.org> | 2009-08-25 23:57:49 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2009-08-25 23:57:49 +0200 |
commit | f86f3b5b113b4cb383c531150b13bef9b2789221 (patch) | |
tree | ca34f2a0945a07dacc90ab3be7f87fdebcad818e /libguile/gc.h | |
parent | 78747ac6fbdcbca423ecaed65a5d6da9c3262b58 (diff) | |
download | guile-f86f3b5b113b4cb383c531150b13bef9b2789221.tar.gz |
Remove the `scm_tc_free_cell' SMOB type.
* libguile/deprecated.h (SCM_FREEP, SCM_NFREEP): Changed to constants.
* libguile/gc.c (scm_i_tag_name): Remove reference to
`scm_tc_free_cell'.
* libguile/gc.h (SCM_FREE_CELL_CDR, SCM_SET_FREE_CELL_CDR): Remove.
* libguile/smob.c (free_print): Remove.
(scm_smob_prehistory): Don't create the "free" SMOB type.
* libguile/struct.c (struct_finalizer_trampoline): Use a bare
`scm_tc3_struct' tag for finalized structs instead of
`scm_tc_free_cell'.
* libguile/tags.h (scm_tc_free_cell): Remove.
Diffstat (limited to 'libguile/gc.h')
-rw-r--r-- | libguile/gc.h | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/libguile/gc.h b/libguile/gc.h index e886bec4b..63b7c4eed 100644 --- a/libguile/gc.h +++ b/libguile/gc.h @@ -116,15 +116,6 @@ typedef struct scm_t_cell #define SCM_CELL_TYPE(x) SCM_CELL_WORD_0 (x) #define SCM_SET_CELL_TYPE(x, t) SCM_SET_CELL_WORD_0 ((x), (t)) -/* Freelists consist of linked cells where the type entry holds the value - * scm_tc_free_cell and the second entry holds a pointer to the next cell of - * the freelist. Due to this structure, freelist cells are not cons cells - * and thus may not be accessed using SCM_CAR and SCM_CDR. */ - -#define SCM_FREE_CELL_CDR(x) \ - (SCM_GC_CELL_OBJECT ((x), 1)) -#define SCM_SET_FREE_CELL_CDR(x, v) \ - (SCM_GC_SET_CELL_OBJECT ((x), 1, (v))) #if (SCM_DEBUG_CELL_ACCESSES == 1) /* Set this to != 0 if every cell that is accessed shall be checked: |