improve autoconfigury for minigmp
authorMichael Gran <spk121@yahoo.com>
Tue, 2 Mar 2021 06:57:30 +0000 (22:57 -0800)
committerMichael Gran <spk121@yahoo.com>
Tue, 2 Mar 2021 14:18:32 +0000 (06:18 -0800)
* 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
libguile.h
libguile/bytevectors.c
libguile/gen-scmconfig.c
libguile/gen-scmconfig.h.in
libguile/init.c
libguile/numbers.c
libguile/numbers.h
libguile/random.c
libguile/socket.c

index 9be807ff14fe71d35c083d033e7758557cc8600d..559f0ed50f28d8823d8bf88d246d014d1df1ea05 100644 (file)
@@ -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>
index 70c4bed88708e9b15aae1d449e099d4b1f2dde6a..14ea1d1101f869705d2e500f9b677e47e911007b 100644 (file)
@@ -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>
index b5c6bbe0f01c53c3aa2bc27a104561d7e17e9314..2671eeeeaa4a4ed821c30e48c28a7f83dd8e1d9c 100644 (file)
@@ -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>
index af6d0fe92575c6d94221bc5fe8e0ff083a4ba2b1..667789e3bfe3d69fd845385739e218d2c8de7b1e 100644 (file)
@@ -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");
index 6e5ebdb8441ffd3c04dd71de7c1bea3824243cc4..5b688b338e358f8d7637d467a406496dc04ca084 100644 (file)
@@ -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
index 708c0e736f6c2f3bef3016fc55ae73a3429ef9af..68077d1d54fc87efa525ce6c7e366e1abd239b57 100644 (file)
@@ -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>
index a2a5ca3b13295a57b8b60450d7bb34847bad8030..670c9ec694dcb11183d55b82a967bb8a75eac97a 100644 (file)
@@ -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);
index 6937f9d2fb1dd7a30d2e32480de8aeb13be7ed55..58010cdf55b03b3fcafa7819a1e51153eada92fc 100644 (file)
 
 \f
 
+#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>
index 7a588d3e4e65a40828b2fe950c2cf30b294d2250..b955c2c4560eb9ae0365f584a59a73c96cf88773 100644 (file)
@@ -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>
index a481c615739186e77e8779e7c288a70c29bf4740..1bd56a0c72f909bc0618815e3fedf628362497d3 100644 (file)
@@ -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>