Branch: Tag:

1998-04-01

1998-04-01 00:47:49 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

optimized, improved and bugfixed

Rev: bin/mkpeep.pike:1.7
Rev: src/cpp.c:1.22
Rev: src/interpret.c:1.73
Rev: src/language.yacc:1.68
Rev: src/lex.c:1.47
Rev: src/peep.c:1.21
Rev: src/peep.in:1.14

4:   ||| 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"
1173:    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))    {