Branch: Tag:

1997-03-14

1997-03-14 04:39:20 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

modified check_all_args(), should be much more flexible now

Rev: src/ChangeLog:1.88
Rev: src/interpret.c:1.36
Rev: src/language.yacc:1.32
Rev: src/lex.c:1.19
Rev: src/mapping.c:1.15
Rev: src/module_support.c:1.4
Rev: src/module_support.h:1.4
Rev: src/modules/Yp/yp.c:1.4
Rev: src/modules/files/file.c:1.30
Rev: src/modules/system/system.c:1.14
Rev: src/operators.c:1.12
Rev: src/peep.in:1.7
Rev: src/pike_types.c:1.19
Rev: src/svalue.h:1.7

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.35 1997/03/12 12:15:27 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.36 1997/03/14 04:37:14 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
954:    break;    }    +  CASE(F_RETURN_1); +  pop_n_elems(sp-fp->locals); +  push_int(1); +  goto do_return; +     CASE(F_RETURN_0);    pop_n_elems(sp-fp->locals);    push_int(0);
1055:    CASE(F_DIVIDE); o_divide(); break;    CASE(F_MOD); o_mod(); break;    +  CASE(F_ADD_INT); push_int(GET_ARG()); f_add(2); break; +  CASE(F_ADD_NEG_INT); push_int(-GET_ARG()); f_add(2); break; +     CASE(F_PUSH_ARRAY);    if(sp[-1].type!=T_ARRAY) error("Bad argument to @\n");    sp--;
1137:    pop_stack();    break;    +  CASE(F_MARK_APPLY); +  strict_apply_svalue(fp->context.prog->constants + GET_ARG(), 0); +  break; +  +  CASE(F_MARK_APPLY_POP); +  strict_apply_svalue(fp->context.prog->constants + GET_ARG(), 0); +  pop_stack(); +  break; +     CASE(F_APPLY);    strict_apply_svalue(fp->context.prog->constants + GET_ARG(), sp - *--mark_sp );    break;