summaryrefslogtreecommitdiff
path: root/libguile/inline.h
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-11-27 23:18:16 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-11-27 23:18:16 +0000
commit1fc8902f02cd68cb0560701e9a46c765c8892c71 (patch)
tree4bbeb9495afc10b156872d72ca7bb6e60dae1646 /libguile/inline.h
parentff0e175c1866311f9f8f03c721f0058b028a27c6 (diff)
downloadguile-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.h12
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