From 543c04b7cc2b3a8fb74ca24e6fc17d8b04616e73 Mon Sep 17 00:00:00 2001
From: "Mirar (Pontus Hagland)" <pike@sort.mirar.org>
Date: Mon, 27 Jan 2003 11:16:58 +0100
Subject: [PATCH] reverting the bignum autoload: solution does not work out
Rev: src/bignum.c:1.31
---
src/bignum.c | 27 ++++++++-------------------
1 file changed, 8 insertions(+), 19 deletions(-)
diff --git a/src/bignum.c b/src/bignum.c
index bc890d6d7f..8f43a4a8f3 100644
--- a/src/bignum.c
+++ b/src/bignum.c
@@ -2,7 +2,7 @@
|| This file is part of Pike. For copyright information see COPYRIGHT.
|| Pike is distributed under GPL, LGPL and MPL. See the file COPYING
|| for more information.
-|| $Id: bignum.c,v 1.30 2003/01/27 08:16:53 mirar Exp $
+|| $Id: bignum.c,v 1.31 2003/01/27 10:16:58 mirar Exp $
*/
#include "global.h"
@@ -47,24 +47,10 @@ PMOD_EXPORT void convert_stack_top_to_bignum(void)
apply_svalue(&auto_bignum_program, 1);
if(sp[-1].type != T_OBJECT)
- {
- if (auto_bignum_program.type!=T_PROGRAM)
- {
- /* for some reason, Gmp isn't loaded */
- push_text("Gmp");
- push_int(0);
- SAFE_APPLY_MASTER("resolv",2);
- pop_stack();
-
- if (auto_bignum_program.type!=T_PROGRAM)
- Pike_error("Gmp.mpz conversion failed (failed to load Gmp?).\n");
-
- apply_svalue(&auto_bignum_program, 1);
- }
-
- if(sp[-1].type != T_OBJECT)
+ if (auto_bignum_program.type!=T_INT)
+ Pike_error("Gmp.mpz conversion failed (Gmp.bignum not loaded).\n");
+ else
Pike_error("Gmp.mpz conversion failed (unknown error).\n");
- }
}
PMOD_EXPORT void convert_stack_top_with_base_to_bignum(void)
@@ -72,7 +58,10 @@ PMOD_EXPORT void convert_stack_top_with_base_to_bignum(void)
apply_svalue(&auto_bignum_program, 2);
if(sp[-1].type != T_OBJECT)
- Pike_error("Gmp.mpz conversion failed.\n");
+ if (auto_bignum_program.type!=T_INT)
+ Pike_error("Gmp.mpz conversion failed (Gmp.bignum not loaded).\n");
+ else
+ Pike_error("Gmp.mpz conversion failed (unknown error).\n");
}
int is_bignum_object(struct object *o)
--
GitLab