mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

(SCM_I_BIG_MPZ): Use SCM_CELL_OBJECT_LOC instead of taking the address

Browse source 
of SCM_CELL_WORD_1, the latter being no longer an lvalue.
This commit is contained in:
Marius Vollmer 2004-05-06 16:42:07 +00:00
parent f7e69e2094
commit fba8fdc0d3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/numbers.h
View file

@ -144,7 +144,7 @@
#define SCM_COMPLEX_IMAG(x) (SCM_COMPLEX_MEM (x)->imag) #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. */ /* 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_BIGP(x) (!SCM_IMP (x) && SCM_TYP16 (x) == scm_tc16_big)
#define SCM_NUMBERP(x) (SCM_INUMP(x) || SCM_NUMP(x)) #define SCM_NUMBERP(x) (SCM_INUMP(x) || SCM_NUMP(x))