From 0a1d083eb4b601fe5173b4cbb7fc6d42240ade18 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Niels=20M=C3=B6ller?= <nisse@lysator.liu.se>
Date: Tue, 12 Nov 1996 21:20:17 +0100
Subject: [PATCH] Fixed the powm bug

Rev: src/modules/gmpmod/mpz_glue.c:1.5
---
 src/modules/gmpmod/mpz_glue.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/modules/gmpmod/mpz_glue.c b/src/modules/gmpmod/mpz_glue.c
index c73f1c644a..f8cfbfda6f 100644
--- a/src/modules/gmpmod/mpz_glue.c
+++ b/src/modules/gmpmod/mpz_glue.c
@@ -434,7 +434,7 @@ void init_gmpmod_programs(void)
   add_function("gcd",mpzmod_gcd,"function(object|string|int|float...:object)",0);
   add_function("sqrt",mpzmod_gcd,"function(:object)",0);
   add_function("`~",mpzmod_gcd,"function(:object)",0);
-  add_function("powm",mpzmod_gcd,"function(object|string|int|float,object|string|int|float:object)",0);
+  add_function("powm",mpzmod_powm,"function(object|string|int|float,object|string|int|float:object)",0);
 
   set_init_callback(init_mpz_glue);
   set_exit_callback(exit_mpz_glue);
-- 
GitLab