diff options
author | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:12:39 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2001-11-25 15:12:39 +0000 |
commit | 760eb0ce254149d30eca2bb2e83f2aa1dec22e83 (patch) | |
tree | 9e95a45d0c2cd00c854b7651c4cd40c4d2b5fb34 /libguile | |
parent | 6c4493a045445db8cc63d95ce58f9807bf325e3b (diff) | |
download | guile-760eb0ce254149d30eca2bb2e83f2aa1dec22e83.tar.gz |
(SCM_MAKE_BIGNUM_TAG): New.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/numbers.h | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/libguile/numbers.h b/libguile/numbers.h index ddd716e9a..1866a8f37 100644 --- a/libguile/numbers.h +++ b/libguile/numbers.h @@ -175,11 +175,12 @@ #define SCM_BDIGITS(x) ((SCM_BIGDIG *) (SCM_CELL_WORD_1 (x))) #define SCM_SET_BIGNUM_BASE(n, b) (SCM_SET_CELL_WORD_1 ((n), (b))) #define SCM_NUMDIGS(x) ((size_t) (SCM_CELL_WORD_0 (x) >> SCM_BIGSIZEFIELD)) +#define SCM_MAKE_BIGNUM_TAG(v, sign) \ + (scm_tc16_big \ + | ((sign) ? SCM_BIGSIGNFLAG : 0) \ + | (((v) + 0L) << SCM_BIGSIZEFIELD)) #define SCM_SETNUMDIGS(x, v, sign) \ - SCM_SET_CELL_WORD_0 (x, \ - scm_tc16_big \ - | ((sign) ? SCM_BIGSIGNFLAG : 0) \ - | (((v) + 0L) << SCM_BIGSIZEFIELD)) + SCM_SET_CELL_WORD_0 (x, SCM_MAKE_BIGNUM_TAG (v, sign)) |