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

* init.c (check_config): remove SCM_BIGDIG conditionals.

Browse source 
(scm_init_guile_1): test to make sure mpz_t fits in a double_cell.
This commit is contained in:
Rob Browning 2003-04-04 21:48:45 +00:00
parent 660e30c566
commit 4ef36fb822
1 changed files with 7 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

16
libguile/init.c
View file

@ -223,15 +223,6 @@ check_config (void)
if (HEAP_SEG_SIZE != j)
fixconfig ("reduce", "size of HEAP_SEG_SIZE", 0);
#ifdef SCM_BIGDIG
if (2 * SCM_BITSPERDIG / SCM_CHAR_BIT > sizeof (long))
fixconfig (remsg, "SCM_BIGDIG", 0);
#ifndef SCM_DIGSTOOBIG
if (SCM_DIGSPERLONG * sizeof (SCM_BIGDIG) > sizeof (long))
fixconfig (addmsg, "SCM_DIGSTOOBIG", 0);
#endif
#endif
#if SCM_STACK_GROWS_UP
if (((SCM_STACKITEM *) & j - stack_start_ptr) < 0)
fixconfig (remsg, "SCM_STACK_GROWS_UP", 1);
@ -448,6 +439,13 @@ scm_init_guile_1 (SCM_STACKITEM *base)
abort ();
}
if (sizeof (mpz_t) > (3 * sizeof (scm_t_bits)))
{
fprintf (stderr,
"GMP's mpz_t must fit into a double_cell,"
"but doesn't seem to here.\n");
}
scm_block_gc = 1;
scm_storage_prehistory ();