[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: improve autoconfigury for minigmp
From: |
Mike Gran |
Subject: |
[Guile-commits] 02/02: improve autoconfigury for minigmp |
Date: |
Tue, 2 Mar 2021 09:18:58 -0500 (EST) |
mike121 pushed a commit to branch master
in repository guile.
commit 54adbd6f0f173c5c2633c316670793322f08d44d
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Mon Mar 1 22:57:30 2021 -0800
improve autoconfigury for minigmp
* configure.ac: add SCM_I_GSC_ENABLE_MINI_GMP var and rename
GUILE_MINI_GMP to ENABLE_MINI_GMP
* libguile/bytevectors (GUILE_MINI_GMP): rename to ENABLE_MINI_GMP
* libguile/gen-scmconfig.c: renamed GUILE_MINI_GMP to ENABLE_MINI_GMP.
rename GUILE_MINI_GMP to SCM_ENABLE_MINI_GMP
* libguile/gen-scmconfig.h: add SCM_I_GSC_ENABLE_MINI_GMP
* libguile/init.c [GUILE_MINI_GMP]: prefer ENABLE_MINI_GMP
* libguile/numbers.c [GUILE_MINI_GMP]: prefer ENABLE_MINI_GMP
* libguile/numbers.h: include scmconfig.h
rename GUILE_MINI_GMP to SCM_ENABLE_MINI_GMP
* libguile/random.c [GUILE_MINI_GMP]: prefer ENABLE_MINI_GMP
* libguile/socket.c [GUILE_MINI_GMP]: prefer ENABLE_MINI_GMP
* libguile.h [GUILE_MINI_GMP]: prefer SCM_ENABLE_MINI_GMP
---
configure.ac | 13 +++++++++----
libguile.h | 2 +-
libguile/bytevectors.c | 2 +-
libguile/gen-scmconfig.c | 8 +++++---
libguile/gen-scmconfig.h.in | 2 +-
libguile/init.c | 2 +-
libguile/numbers.c | 2 +-
libguile/numbers.h | 3 ++-
libguile/random.c | 2 +-
libguile/socket.c | 2 +-
10 files changed, 23 insertions(+), 15 deletions(-)
diff --git a/configure.ac b/configure.ac
index 9be807f..559f0ed 100644
--- a/configure.ac
+++ b/configure.ac
@@ -651,19 +651,24 @@ PKG_CHECK_MODULES([GMP],[gmp],
[],
[$enable_mini_gmp=yes])
+SCM_I_GSC_ENABLE_MINI_GMP=0
AC_ARG_ENABLE(mini-gmp,
- [ --enable-mini-gmp use mini-gmp instead of the full GMP library])
-if test "$enable_mini_gmp" = yes; then
- AC_DEFINE([GUILE_MINI_GMP], 1,
+ [AS_HELP_STRING([--enable-mini-gmp],
+ [use mini-gmp instead of the full GMP library])])
+
+if test "$enable_mini_gmp" = yes || test "$enable_mini_gmp" = y; then
+ SCM_I_GSC_ENABLE_MINI_GMP=1
+ AC_DEFINE([ENABLE_MINI_GMP], 1,
[Define this if you want to use mini-gmp.])
else
LIBS="$GMP_LIBS $LIBS"
CFLAGS="$GMP_CFLAGS $CFLAGS"
fi
+AC_SUBST([SCM_I_GSC_ENABLE_MINI_GMP])
AM_CONDITIONAL([USE_MINI_GMP], [test "x$enable_mini_gmp" = "xyes"])
AC_CHECK_DECLS([mpz_inits], [], [],
- [[#if GUILE_MINI_GMP
+ [[#if ENABLE_MINI_GMP
#include "libguile/mini-gmp.h"
#else
#include <gmp.h>
diff --git a/libguile.h b/libguile.h
index 70c4bed..14ea1d1 100644
--- a/libguile.h
+++ b/libguile.h
@@ -29,7 +29,7 @@ extern "C" {
#ifdef __cplusplus
}
#endif
-#if GUILE_MINI_GMP
+#if SCM_ENABLE_MINI_GMP
#include "libguile/mini-gmp.h"
#else
#include <gmp.h>
diff --git a/libguile/bytevectors.c b/libguile/bytevectors.c
index b5c6bbe..2671eee 100644
--- a/libguile/bytevectors.c
+++ b/libguile/bytevectors.c
@@ -35,7 +35,7 @@
#include <alloca.h>
#include <assert.h>
-#if GUILE_MINI_GMP
+#if ENABLE_MINI_GMP
#include "mini-gmp.h"
#else
#include <gmp.h>
diff --git a/libguile/gen-scmconfig.c b/libguile/gen-scmconfig.c
index af6d0fe..667789e 100644
--- a/libguile/gen-scmconfig.c
+++ b/libguile/gen-scmconfig.c
@@ -377,10 +377,12 @@ main (int argc, char *argv[])
pf ("/* Define to 1 if there is an auxiliary stack, as in ia64. */\n");
pf ("#define SCM_HAVE_AUXILIARY_STACK %d\n", SCM_I_GSC_HAVE_AUXILIARY_STACK);
-#ifdef GUILE_MINI_GMP
- pf ("#define GUILE_MINI_GMP 1\n");
+ pf ("\n");
+ pf ("/* Define to 1 to use mini GMP. */\n");
+#ifdef ENABLE_MINI_GMP
+ pf ("#define SCM_ENABLE_MINI_GMP 1\n");
#else
- pf ("#undef GUILE_MINI_GMP\n");
+ pf ("#undef SCM_ENABLE_MINI_GMP\n");
#endif
printf ("#endif\n");
diff --git a/libguile/gen-scmconfig.h.in b/libguile/gen-scmconfig.h.in
index 6e5ebdb..5b688b3 100644
--- a/libguile/gen-scmconfig.h.in
+++ b/libguile/gen-scmconfig.h.in
@@ -20,7 +20,7 @@
#define SCM_I_GSC_ICONVEH_QUESTION_MARK @SCM_I_GSC_ICONVEH_QUESTION_MARK@
#define SCM_I_GSC_ICONVEH_ESCAPE_SEQUENCE @SCM_I_GSC_ICONVEH_ESCAPE_SEQUENCE@
#define SCM_I_GSC_HAVE_AUXILIARY_STACK @SCM_I_GSC_HAVE_AUXILIARY_STACK@
-
+#define SCM_I_GSC_ENABLE_MINI_GMP @SCM_I_GSC_ENABLE_MINI_GMP@
/*
Local Variables:
mode: c
diff --git a/libguile/init.c b/libguile/init.c
index 708c0e7..68077d1 100644
--- a/libguile/init.c
+++ b/libguile/init.c
@@ -31,7 +31,7 @@
#include <sys/stat.h>
#include <unistd.h>
-#if GUILE_MINI_GMP
+#if ENABLE_MINI_GMP
#include "mini-gmp.h"
#else
#include <gmp.h>
diff --git a/libguile/numbers.c b/libguile/numbers.c
index a2a5ca3..670c9ec 100644
--- a/libguile/numbers.c
+++ b/libguile/numbers.c
@@ -399,7 +399,7 @@ scm_i_big2dbl_2exp (SCM b, long *expon_p)
{
long expon;
double signif;
-#if GUILE_MINI_GMP
+#if ENABLE_MINI_GMP
int iexpon;
signif = mpz_get_d (SCM_I_BIG_MPZ (b));
signif = frexp (signif, &iexpon);
diff --git a/libguile/numbers.h b/libguile/numbers.h
index 6937f9d..58010cd 100644
--- a/libguile/numbers.h
+++ b/libguile/numbers.h
@@ -22,10 +22,11 @@
+#include "libguile/scmconfig.h"
#include "libguile/error.h"
#include "libguile/gc.h"
#include "libguile/print.h"
-#if GUILE_MINI_GMP
+#if SCM_ENABLE_MINI_GMP
#include "libguile/mini-gmp.h"
#else
#include <gmp.h>
diff --git a/libguile/random.c b/libguile/random.c
index 7a588d3..b955c2c 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -36,7 +36,7 @@
#include "generalized-vectors.h"
#include "gsubr.h"
#include "list.h"
-#if GUILE_MINI_GMP
+#if ENABLE_MINI_GMP
#include "mini-gmp.h"
#else
#include <gmp.h>
diff --git a/libguile/socket.c b/libguile/socket.c
index a481c61..1bd56a0 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -44,7 +44,7 @@
#include <netdb.h>
#include <arpa/inet.h>
-#if GUILE_MINI_GMP
+#if ENABLE_MINI_GMP
#include "mini-gmp.h"
#else
#include <gmp.h>