pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.72 1998/03/31 21:52:17 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.73 1998/04/01 00:47:46 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:1166:    }    break;       CJUMP(F_BRANCH_WHEN_EQ, is_eq);    CJUMP(F_BRANCH_WHEN_NE,!is_eq);    CJUMP(F_BRANCH_WHEN_LT, is_lt);    CJUMP(F_BRANCH_WHEN_LE,!is_gt);    CJUMP(F_BRANCH_WHEN_GT, is_gt);    CJUMP(F_BRANCH_WHEN_GE,!is_lt);    +  CASE(F_BRANCH_AND_POP_WHEN_ZERO); +  if(!IS_ZERO(sp-1)) +  { +  pc+=sizeof(INT32); +  }else{ +  DOJUMP(); +  pop_stack(); +  } +  break; +  +  CASE(F_BRANCH_AND_POP_WHEN_NON_ZERO); +  if(!IS_ZERO(sp-1)) +  { +  pc+=sizeof(INT32); +  }else{ +  DOJUMP(); +  pop_stack(); +  } +  break; +     CASE(F_LAND);    if(!IS_ZERO(sp-1))    {    pc+=sizeof(INT32);    pop_stack();    }else{    DOJUMP();    }    break;