From 8c921d5c8df4a6621619b85d3b94e7c6d5f5bde7 Mon Sep 17 00:00:00 2001 From: Dirk Herrmann Date: Mon, 4 Dec 2000 16:31:03 +0000 Subject: [PATCH] * Eliminate hard-coded value of scm_tc7_smob. --- libguile/ChangeLog | 5 +++++ libguile/tags.h | 13 +++++-------- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/libguile/ChangeLog b/libguile/ChangeLog index bad410348..9290e1b66 100644 --- a/libguile/ChangeLog +++ b/libguile/ChangeLog @@ -1,3 +1,8 @@ +2000-12-04 Dirk Herrmann + + * tags.h (scm_tc_free_cell, scm_tc16_big, scm_tc16_real, + scm_tc16_complex): Eliminate hard-coded value of scm_tc7_smob. + 2000-12-01 Dirk Herrmann * list.[ch] (scm_c_memq): Added as a fast C level alternative for diff --git a/libguile/tags.h b/libguile/tags.h index a3f7ccb0a..d07f2aaa1 100644 --- a/libguile/tags.h +++ b/libguile/tags.h @@ -395,16 +395,13 @@ typedef long scm_bits_t; /* scm_tc_free_cell is also the 0th smob type. We place this * in free cells to tell the conservative marker not to trace it. */ -#define scm_tc_free_cell 0x007f +#define scm_tc_free_cell (scm_tc7_smob + 0 * 256L) -/* Smob type 1 (note the dependency on the predicate SCM_NUMP) +/* Smob type 1 to 3 (note the dependency on the predicate SCM_NUMP) */ -#define scm_tc16_big 0x017f - -/* Smob types 2 and 3: - */ -#define scm_tc16_real 0x027f -#define scm_tc16_complex 0x037f +#define scm_tc16_big (scm_tc7_smob + 1 * 256L) +#define scm_tc16_real (scm_tc7_smob + 2 * 256L) +#define scm_tc16_complex (scm_tc7_smob + 3 * 256L) /* {Immediate Values}