From fba8fdc0d35e47ebb53f8ad50091e9c7b32fa761 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Thu, 6 May 2004 16:42:07 +0000 Subject: [PATCH] (SCM_I_BIG_MPZ): Use SCM_CELL_OBJECT_LOC instead of taking the address of SCM_CELL_WORD_1, the latter being no longer an lvalue. --- libguile/numbers.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libguile/numbers.h b/libguile/numbers.h index bf33c473a..7889e0d61 100644 --- a/libguile/numbers.h +++ b/libguile/numbers.h @@ -144,7 +144,7 @@ #define SCM_COMPLEX_IMAG(x) (SCM_COMPLEX_MEM (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_WORD_1(x))))) +#define SCM_I_BIG_MPZ(x) (*((mpz_t *) (SCM_CELL_OBJECT_LOC((x),1)))) #define SCM_BIGP(x) (!SCM_IMP (x) && SCM_TYP16 (x) == scm_tc16_big) #define SCM_NUMBERP(x) (SCM_INUMP(x) || SCM_NUMP(x))