pike.git/ src/ interpret_functions.h

2001-07-06

2001-07-06 14:07:55 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• a092ba693c255882f31a98e1792b52d5547a29c1 (160 lines) (+80/-80) ^{[ Show | Annotate ]}
  Branch: 7.9

Cleaned up interpret_functions.h some more.

Rev: src/interpret_functions.h:1.68
Rev: src/lex.c:1.92
Rev: src/opcodes.h:1.18

1:   /* -  * $Id: interpret_functions.h,v 1.67 2001/07/02 07:02:45 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.68 2001/07/06 14:07:55 grubba Exp $    *    * Opcode definitions for the interpreter.    */
898:    }   BREAK;    -  CASE(F_BRANCH_IF_NOT_LOCAL); -  instr=GET_ARG(); -  if(!IS_ZERO(Pike_fp->locals + instr)) + OPCODE1_JUMP(F_BRANCH_IF_NOT_LOCAL, "branch if !local") +  if(!IS_ZERO(Pike_fp->locals + arg1))    {    SKIPJUMP();    }else{    DOJUMP();    } -  break; + BREAK;       CJUMP(F_BRANCH_WHEN_EQ, is_eq);    CJUMP(F_BRANCH_WHEN_NE,!is_eq);
915:    CJUMP(F_BRANCH_WHEN_GT, is_gt);    CJUMP(F_BRANCH_WHEN_GE,!is_lt);    -  CASE(F_BRANCH_AND_POP_WHEN_ZERO); + OPCODE0_JUMP(F_BRANCH_AND_POP_WHEN_ZERO, "branch & pop if zero")    if(!IS_ZERO(Pike_sp-1))    {    SKIPJUMP();
923:    DOJUMP();    pop_stack();    } -  break; + BREAK;    -  CASE(F_BRANCH_AND_POP_WHEN_NON_ZERO); + OPCODE0_JUMP(F_BRANCH_AND_POP_WHEN_NON_ZERO, "branch & pop if !zero")    if(IS_ZERO(Pike_sp-1))    {    SKIPJUMP();
933:    DOJUMP();    pop_stack();    } -  break; + BREAK;    -  CASE(F_LAND); + OPCODE0_JUMP(F_LAND, "&&")    if(!IS_ZERO(Pike_sp-1))    {    SKIPJUMP();
943:    }else{    DOJUMP();    } -  break; + BREAK;    -  CASE(F_LOR); + OPCODE0_JUMP(F_LOR, "||")    if(IS_ZERO(Pike_sp-1))    {    SKIPJUMP();
953:    }else{    DOJUMP();    } -  break; + BREAK;    -  CASE(F_EQ_OR); + OPCODE0_JUMP(F_EQ_OR, "==||")    if(!is_eq(Pike_sp-2,Pike_sp-1))    {    pop_n_elems(2);
965:    push_int(1);    DOJUMP();    } -  break; + BREAK;    -  CASE(F_EQ_AND); + OPCODE0_JUMP(F_EQ_AND, "==&&")    if(is_eq(Pike_sp-2,Pike_sp-1))    {    pop_n_elems(2);
977:    push_int(0);    DOJUMP();    } -  break; + BREAK;    -  CASE(F_CATCH); + OPCODE0_JUMP(F_CATCH, "catch")    switch (o_catch(pc+sizeof(INT32))) {    case 1:    /* There was a return inside the evaluated code */
990:    default:    pc+=GET_JUMP();    } -  break; + BREAK;      OPCODE0(F_ESCAPE_CATCH, "escape catch")   {