diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-11-27 23:18:16 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-11-27 23:18:16 +0000 |
commit | 1fc8902f02cd68cb0560701e9a46c765c8892c71 (patch) | |
tree | 4bbeb9495afc10b156872d72ca7bb6e60dae1646 /libguile/inline.h | |
parent | ff0e175c1866311f9f8f03c721f0058b028a27c6 (diff) | |
download | guile-1fc8902f02cd68cb0560701e9a46c765c8892c71.tar.gz |
* gc.h (SCM_GC_CELL_WORD, SCM_GC_CELL_OBJECT,
SCM_GC_SET_CELL_WORD, SCM_GC_SET_CELL_OBJECT): New macros.
(SCM_GC_CELL_TYPE, SCM_CELL_WORD, SCM_CELL_OBJECT,
SCM_SET_CELL_WORD, SCM_SET_CELL_OBJECT, SCM_FREE_CELL_CDR,
SCM_GC_SET_CELL_OBJECT): Express in terms of SCM_GC_CELL_*
macros.
(SCM_FREE_CELL_P): Express in terms of SCM_GC_CELL_TYPE.
* inline.h (scm_alloc_cell, scm_alloc_double_cell): Use
SCM_GC_CELL_* macros when accessing free cells.
Diffstat (limited to 'libguile/inline.h')
-rw-r--r-- | libguile/inline.h | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/inline.h b/libguile/inline.h index 926623bf0..9d3b6fca1 100644 --- a/libguile/inline.h +++ b/libguile/inline.h @@ -84,8 +84,8 @@ scm_alloc_cell (scm_t_bits car, scm_t_bits cdr) cooperating threads, but it might be important when we get true preemptive threads. */ - SCM_SET_CELL_WORD_1 (z, cdr); - SCM_SET_CELL_WORD_0 (z, car); + SCM_GC_SET_CELL_WORD (z, 1, cdr); + SCM_GC_SET_CELL_WORD (z, 0, car); #ifdef USE_THREADS #ifndef USE_COOP_THREADS @@ -132,10 +132,10 @@ scm_alloc_double_cell (scm_t_bits car, scm_t_bits cbr, cooperating threads, but it might be important when we get true preemptive threads. */ - SCM_SET_CELL_WORD_1 (z, cbr); - SCM_SET_CELL_WORD_2 (z, ccr); - SCM_SET_CELL_WORD_3 (z, cdr); - SCM_SET_CELL_WORD_0 (z, car); + SCM_GC_SET_CELL_WORD (z, 1, cbr); + SCM_GC_SET_CELL_WORD (z, 2, ccr); + SCM_GC_SET_CELL_WORD (z, 3, cdr); + SCM_GC_SET_CELL_WORD (z, 0, car); #ifdef USE_THREADS #ifndef USE_COOP_THREADS |