pike.git/ src/ interpret_functions.h

2001-08-16

2001-08-16 00:45:43 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• bfe27360bd06fe730481b3bebb7c521c33998791 (18 lines) (+12/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

removed a couple of unused opcodes

Rev: src/interpret_functions.h:1.87
Rev: src/peep.in:1.59

1:   /* -  * $Id: interpret_functions.h,v 1.86 2001/08/15 09:26:33 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.87 2001/08/16 00:45:43 hubbe Exp $    *    * Opcode definitions for the interpreter.    */
1747:    DO_DUMB_RETURN; \    } \   }); \ +  +  + #define MKAPPLY2(OP,OPCODE,NAME,TYPE, ARG2, ARG3) \    \ -  + MKAPPLY(OP,OPCODE,NAME,TYPE, ARG2, ARG3) \ +  \   OP(PIKE_CONCAT(F_MARK_,OPCODE),"mark, " NAME, { \    if(low_mega_apply(TYPE,0, \    ARG2, ARG3)) \
1785:   })       - MKAPPLY(OPCODE1,CALL_LFUN,"call lfun",APPLY_LOW, + MKAPPLY2(OPCODE1,CALL_LFUN,"call lfun",APPLY_LOW,    Pike_fp->current_object,    (void *)(arg1+Pike_fp->context.identifier_level));    - MKAPPLY(OPCODE1,APPLY,"apply",APPLY_SVALUE_STRICT, + MKAPPLY2(OPCODE1,APPLY,"apply",APPLY_SVALUE_STRICT,    &((Pike_fp->context.prog->constants + arg1)->sval),0);      MKAPPLY(OPCODE0,CALL_FUNCTION,"call function",APPLY_STACK, 0,0);