From 8f8cc04d928e0d2ad07a4eb3efa97124dff526f2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Fri, 1 Nov 1996 17:56:35 -0800
Subject: [PATCH] powm fixed
Rev: src/modules/gmpmod/mpz_glue.c:1.4
Rev: src/modules/gmpmod/testsuite.in:1.2
---
src/modules/gmpmod/mpz_glue.c | 2 +-
src/modules/gmpmod/testsuite.in | 1 +
2 files changed, 2 insertions(+), 1 deletion(-)
diff --git a/src/modules/gmpmod/mpz_glue.c b/src/modules/gmpmod/mpz_glue.c
index c3eca5f260..c73f1c644a 100644
--- a/src/modules/gmpmod/mpz_glue.c
+++ b/src/modules/gmpmod/mpz_glue.c
@@ -359,7 +359,7 @@ static void mpzmod_powm(INT32 args)
error("Too few arguments to mpzmod->powm()\n");
tmp=get_tmp();
- mpz_powm(tmp, tmp, get_mpz(sp-args), get_mpz(sp+1-args));
+ mpz_powm(tmp, THIS, get_mpz(sp-args), get_mpz(sp+1-args));
return_temporary(args);
}
diff --git a/src/modules/gmpmod/testsuite.in b/src/modules/gmpmod/testsuite.in
index 0cca2dbfa8..18143ee027 100644
--- a/src/modules/gmpmod/testsuite.in
+++ b/src/modules/gmpmod/testsuite.in
@@ -25,6 +25,7 @@ cond( [[ master()->programs["/precompiled/mpz"] ]],
test_eq((int)clone(MPZ,17),17)
test_false(clone(MPZ,0))
test_true(clone(MPZ,1))
+ test_eq(clone(MPZ,17)->powm(2,4711),290)
define([[mpz_test_cmp]],[[
test_cmp(clone(MPZ,$1), $2)
--
GitLab