Re: [perl #34959] config/auto/gmp/gmp.in returns "1" instead of "0"

[Juergen Boemmels]

On Thursday 14 April 2005 08:36, Leopold Toetsch wrote:
> Lambeck <[EMAIL PROTECTED]> wrote:
> > Hi all,
> > Configure.pl failed to find the GNU Math Lib (GMP) on my system
> > eventhough it is installed properly (version 4.1.4) .
> > I compiled  config/auto/gmp/gmp.in by hand and it returned:
> > 499999500000 1 but expected was:
> > 499999500000 0
> >
> > Everything seems to be right, except that mpz_fits_slong_p(k) returned
> > "1" instead of "0". Could not find anything usefull to explain what it
> > means. I am on amd64 running Linux.
>           ^^^^^
>
> Yeah. The test is bogus for 64-bit systems. The tested number fits
> within a 64-bit long. Could you please patch gmp.in and gmp.pl to use
> some bigger numbers > 64 bit.

I changed the test to calculate a mersenne prime number. I have tested it
on amd 64 and it finds amd64.

Ok to commit?
boe

Index: config/auto/gmp/gmp.in
===================================================================
--- config/auto/gmp/gmp.in	(revision 7853)
+++ config/auto/gmp/gmp.in	(working copy)
@@ -7,21 +7,17 @@
 
 int main(int argc, char *argv[])
 {
-    mpz_t i, j, k;
+    mpz_t prime;
     char *s; int y;
 
-    mpz_init(i);
-    mpz_set_si(i, 999999);
-    mpz_init(j);
-    mpz_set_si(j, 1000000);
-    mpz_init(k);
-    mpz_mul(k, i, j);
-    mpz_set_si(i, 2);
-    mpz_div(k, k, i);
+    /* Calculate the 13th Mersenne prime 2^521 - 1 */
+    mpz_init(prime);
+    mpz_ui_pow_ui(prime, 2, 521);
+    mpz_sub_ui(prime, prime, 1);
 
-    y = mpz_fits_slong_p(k);
+    y = mpz_fits_slong_p(prime);
 
-    s = mpz_get_str(NULL, 10, k);
+    s = mpz_get_str(NULL, 10, prime);
     printf("%s %d\n", s, y);
     free(s);
     return 0;
Index: config/auto/gmp.pl
===================================================================
--- config/auto/gmp.pl	(revision 7853)
+++ config/auto/gmp.pl	(working copy)
@@ -55,7 +55,7 @@
     my $has_gmp = 0;
     if (! $@) {
 	my $test = cc_run();
-	if ($test eq "499999500000 0\n") {
+	if ($test eq "6864797660130609714981900799081393217269435300143305409394463459185543183397656052122559640661454554977296311391480858037121987999716643812574028291115057151 0\n") {
             $has_gmp = 1;
 	    print " (yes) " if $verbose;
             $Configure::Step::result = 'yes';