From 775f3d118c890e3a9e4ec68fd5d72521a8c5372c Mon Sep 17 00:00:00 2001
From: Fredrik Noring <noring@nocrew.org>
Date: Sat, 23 Oct 1999 02:43:44 +0200
Subject: [PATCH] Fixed warning.
Rev: src/interpreter.h:1.15
Rev: src/stralloc.c:1.69
---
src/interpreter.h | 3 ++-
src/stralloc.c | 7 +++++--
2 files changed, 7 insertions(+), 3 deletions(-)
diff --git a/src/interpreter.h b/src/interpreter.h
index a16966dfd4..36649e5ed0 100644
--- a/src/interpreter.h
+++ b/src/interpreter.h
@@ -969,7 +969,8 @@ static int eval_instruction(unsigned char *pc)
pop_stack();
break;
}
-
+
+ /* FIXME: Does this need bignum tests? */
LOOP(F_INC_LOOP, ++, <, f_add(2), is_lt);
LOOP(F_DEC_LOOP, --, >, o_subtract(), is_gt);
LOOP(F_INC_NEQ_LOOP, ++, !=, f_add(2), !is_eq);
diff --git a/src/stralloc.c b/src/stralloc.c
index 50798353e8..e91967a729 100644
--- a/src/stralloc.c
+++ b/src/stralloc.c
@@ -25,7 +25,7 @@
#define HUGE HUGE_VAL
#endif /*!HUGE*/
-RCSID("$Id: stralloc.c,v 1.68 1999/10/22 16:50:55 noring Exp $");
+RCSID("$Id: stralloc.c,v 1.69 1999/10/23 00:43:44 noring Exp $");
#define BEGIN_HASH_SIZE 997
#define MAX_AVG_LINK_LENGTH 3
@@ -1881,14 +1881,17 @@ int string_to_svalue_inumber(struct svalue *r, char *str, char **ptr, int base,
int convert_stack_top_string_to_inumber(int base)
{
struct svalue r;
+ int i;
if(sp[-1].type != T_STRING)
error("Cannot convert stack top to integer number.\n");
- string_to_svalue_inumber(&r, sp[-1].u.string->str, 0, base, 0);
+ i = string_to_svalue_inumber(&r, sp[-1].u.string->str, 0, base, 0);
free_string(sp[-1].u.string);
sp[-1] = r;
+
+ return i;
}
/* Convert PCHARP to a double. If ENDPTR is not NULL, a pointer to the
--
GitLab