diff options
author | Andy Wingo <wingo@pobox.com> | 2012-01-31 22:58:24 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2012-01-31 22:58:24 +0100 |
commit | 0aed71aa51e89e714de2392c2a5f44694dca77ea (patch) | |
tree | 9c99918b70d24d7cd344fcc22c34e2b7cff1e517 /libguile/numbers.h | |
parent | 3bf3d735ac743eda1f42627d165dfd86f1178126 (diff) | |
download | guile-0aed71aa51e89e714de2392c2a5f44694dca77ea.tar.gz |
Revert "add SCM_HEAP_OBJECT_BASE"
This reverts commit 47ed8656db8800f3ad20a40eb2c4e9ef3dc891e3.
Conflicts:
libguile/foreign.c
Diffstat (limited to 'libguile/numbers.h')
-rw-r--r-- | libguile/numbers.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/numbers.h b/libguile/numbers.h index b7bcfe48c..cef2b863b 100644 --- a/libguile/numbers.h +++ b/libguile/numbers.h @@ -128,9 +128,9 @@ typedef scm_t_int32 scm_t_wchar; #define SCM_REALP(x) (SCM_HAS_TYP16 (x, scm_tc16_real)) #define SCM_COMPLEXP(x) (SCM_HAS_TYP16 (x, scm_tc16_complex)) -#define SCM_REAL_VALUE(x) (((scm_t_double *) SCM_HEAP_OBJECT_BASE (x))->real) -#define SCM_COMPLEX_REAL(x) (((scm_t_complex *) SCM_HEAP_OBJECT_BASE (x))->real) -#define SCM_COMPLEX_IMAG(x) (((scm_t_complex *) SCM_HEAP_OBJECT_BASE (x))->imag) +#define SCM_REAL_VALUE(x) (((scm_t_double *) SCM2PTR (x))->real) +#define SCM_COMPLEX_REAL(x) (((scm_t_complex *) SCM2PTR (x))->real) +#define SCM_COMPLEX_IMAG(x) (((scm_t_complex *) SCM2PTR (x))->imag) /* Each bignum is just an mpz_t stored in a double cell starting at word 1. */ #define SCM_I_BIG_MPZ(x) (*((mpz_t *) (SCM_CELL_OBJECT_LOC((x),1)))) |