diff --git a/src/interpreter.h b/src/interpreter.h index a16966dfd407d47d817534c193e541f15d02e3d5..36649e5ed03be71cc769542cd2c3a5793732a529 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 50798353e8bc7a6294f70c3c286112e97e0b96d0..e91967a72903f1cfa6d0ce99be1b7a07df4e8aec 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