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

Allocate bignums in pointer-less memory.

Browse source 
* libguile/numbers.c (make_bignum): New function.
  (scm_i_mkbig, scm_i_long2big, scm_i_ulong2big, scm_i_clonebig,
  scm_i_dbl2big, scm_i_mpz2num): Use it.
This commit is contained in:
Ludovic Courtès 2010-09-27 11:10:01 +02:00
parent 99765ed172
commit d017fcdfcb
1 changed files with 19 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

25
libguile/numbers.c
View file

@ -152,12 +152,25 @@ scm_from_complex_double (complex double z)
static mpz_t z_negative_one; static mpz_t z_negative_one;
/* Return a new uninitialized bignum. */
static inline SCM
make_bignum (void)
{
scm_t_bits *p;
/* Allocate one word for the type tag and enough room for an `mpz_t'. */
p = scm_gc_malloc_pointerless (sizeof (scm_t_bits) + sizeof (mpz_t),
"bignum");
p[0] = scm_tc16_big;
return SCM_PACK (p);
}
SCM SCM
scm_i_mkbig () scm_i_mkbig ()
{ {
/* Return a newly created bignum. */ /* Return a newly created bignum. */
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); SCM z = make_bignum ();
mpz_init (SCM_I_BIG_MPZ (z)); mpz_init (SCM_I_BIG_MPZ (z));
return z; return z;
} }
@ -166,7 +179,7 @@ SCM
scm_i_long2big (long x) scm_i_long2big (long x)
{ {
/* Return a newly created bignum initialized to X. */ /* Return a newly created bignum initialized to X. */
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); SCM z = make_bignum ();
mpz_init_set_si (SCM_I_BIG_MPZ (z), x); mpz_init_set_si (SCM_I_BIG_MPZ (z), x);
return z; return z;
} }
@ -175,7 +188,7 @@ SCM
scm_i_ulong2big (unsigned long x) scm_i_ulong2big (unsigned long x)
{ {
/* Return a newly created bignum initialized to X. */ /* Return a newly created bignum initialized to X. */
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); SCM z = make_bignum ();
mpz_init_set_ui (SCM_I_BIG_MPZ (z), x); mpz_init_set_ui (SCM_I_BIG_MPZ (z), x);
return z; return z;
} }
@ -184,7 +197,7 @@ SCM
scm_i_clonebig (SCM src_big, int same_sign_p) scm_i_clonebig (SCM src_big, int same_sign_p)
{ {
/* Copy src_big's value, negate it if same_sign_p is false, and return. */ /* Copy src_big's value, negate it if same_sign_p is false, and return. */
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); SCM z = make_bignum ();
mpz_init_set (SCM_I_BIG_MPZ (z), SCM_I_BIG_MPZ (src_big)); mpz_init_set (SCM_I_BIG_MPZ (z), SCM_I_BIG_MPZ (src_big));
if (!same_sign_p) if (!same_sign_p)
mpz_neg (SCM_I_BIG_MPZ (z), SCM_I_BIG_MPZ (z)); mpz_neg (SCM_I_BIG_MPZ (z), SCM_I_BIG_MPZ (z));
@ -205,7 +218,7 @@ SCM
scm_i_dbl2big (double d) scm_i_dbl2big (double d)
{ {
/* results are only defined if d is an integer */ /* results are only defined if d is an integer */
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); SCM z = make_bignum ();
mpz_init_set_d (SCM_I_BIG_MPZ (z), d); mpz_init_set_d (SCM_I_BIG_MPZ (z), d);
return z; return z;
} }
@ -335,7 +348,7 @@ scm_i_mpz2num (mpz_t b)
} }
{ {
SCM z = scm_double_cell (scm_tc16_big, 0, 0, 0); SCM z = make_bignum ();
mpz_init_set (SCM_I_BIG_MPZ (z), b); mpz_init_set (SCM_I_BIG_MPZ (z), b);
return z; return z;
} }