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

@@ -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);
 }
 

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)