From f075fd3120b46a1a2b6f227dfcaba0bffe7a681f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 8 Nov 1999 10:11:55 -0800
Subject: [PATCH] bugfix in --
Rev: src/interpreter.h:1.17
---
src/interpreter.h | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/src/interpreter.h b/src/interpreter.h
index bc75da036a..f856c8ecec 100644
--- a/src/interpreter.h
+++ b/src/interpreter.h
@@ -655,9 +655,12 @@ static int eval_instruction(unsigned char *pc)
CASE(F_DEC_AND_POP);
{
union anything *u=get_pointer_if_this_type(sp-2, T_INT);
- if(u)
+ if(u
+#ifdef AUTO_BIGNUM
+ && !INT_TYPE_SUB_OVERFLOW(u->integer, 1)
+#endif
+)
{
- /* FIXME: Bignum. */
instr=-- u->integer;
pop_n_elems(2);
}else{
@@ -985,7 +988,7 @@ static int eval_instruction(unsigned char *pc)
break;
}
- /* FIXME: Does this need bignum tests? */
+ /* FIXME: Does this need bignum tests? /Fixed - Hubbe */
LOOP(F_INC_LOOP, 1, <, is_lt);
LOOP(F_DEC_LOOP, -1, >, is_gt);
LOOP(F_INC_NEQ_LOOP, 1, !=, !is_eq);
--
GitLab