diff --git a/src/interpret.c b/src/interpret.c index 96cae1370edb49e1fcbb06c8db5b1835a189d7b5..9e54bbbcdaf2ec169271a1113df43a9411217191 100644 --- a/src/interpret.c +++ b/src/interpret.c @@ -4,7 +4,7 @@ ||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h" -RCSID("$Id: interpret.c,v 1.23 1997/01/30 03:51:32 hubbe Exp $"); +RCSID("$Id: interpret.c,v 1.24 1997/02/27 08:03:39 hubbe Exp $"); #include "interpret.h" #include "object.h" #include "program.h" @@ -1314,9 +1314,9 @@ void apply_low(struct object *o, int fun, int args) #ifdef DEBUG if(num_locals < num_args) fatal("Wrong number of arguments or locals in function def.\n"); +#endif fp->num_locals=num_locals; fp->num_args=num_args; -#endif eval_instruction(pc); #ifdef DEBUG if(sp<evaluator_stack) diff --git a/src/interpret.h b/src/interpret.h index 7092f6e233f17f02f6b4aee53e218f206d58e5a7..9760b27888b00adebfc442df44f8c74297bd3edc 100644 --- a/src/interpret.h +++ b/src/interpret.h @@ -22,10 +22,8 @@ struct frame struct inherit context; char *current_storage; INT32 fun; -#ifdef DEBUG INT16 num_locals; INT16 num_args; -#endif }; #ifdef DEBUG