From 86d399d4aea046d83a5f9a87cfbc1e67f7fef67c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 10 Jan 2000 20:01:20 -0800
Subject: [PATCH] bugfix
Rev: src/modules/Gmp/mpz_glue.c:1.72
---
src/modules/Gmp/mpz_glue.c | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/modules/Gmp/mpz_glue.c b/src/modules/Gmp/mpz_glue.c
index b3fd40b078..a3bf73ac0c 100644
--- a/src/modules/Gmp/mpz_glue.c
+++ b/src/modules/Gmp/mpz_glue.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: mpz_glue.c,v 1.71 2000/01/10 00:41:34 hubbe Exp $");
+RCSID("$Id: mpz_glue.c,v 1.72 2000/01/11 04:01:20 hubbe Exp $");
#include "gmp_machine.h"
#if defined(HAVE_GMP2_GMP_H) && defined(HAVE_LIBGMP2)
@@ -1264,7 +1264,7 @@ static void gmp_pow(INT32 args)
if ( (sp[-2].type != T_INT) || (sp[-2].u.integer < 0)
|| (sp[-1].type != T_INT) || (sp[-1].u.integer < 0))
error("Gmp.pow: Negative arguments");
- res = fast_clone_object(THIS_PROGRAM, 0);
+ res = fast_clone_object(mpzmod_program, 0);
mpz_ui_pow_ui(OBTOMPZ(res), sp[-2].u.integer, sp[-1].u.integer);
pop_n_elems(args);
PUSH_REDUCED(res);
@@ -1279,7 +1279,7 @@ static void gmp_fac(INT32 args)
error("Gmp.fac: Non int argument.\n");
if (sp[-1].u.integer < 0)
error("Gmp.mpz->pow: Negative exponent.\n");
- res = fast_clone_object(THIS_PROGRAM, 0);
+ res = fast_clone_object(mpzmod_program, 0);
mpz_fac_ui(OBTOMPZ(res), sp[-1].u.integer);
pop_n_elems(args);
PUSH_REDUCED(res);
--
GitLab