pike.git/ src/ interpret_functions.h

2001-07-02

2001-07-02 07:02:45 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 081147473a8028aefce9449a255cb0c8e8897d4b (30 lines) (+29/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

more optimizations,

Rev: src/builtin_functions.c:1.389
Rev: src/docode.c:1.125
Rev: src/interpret_functions.h:1.67
Rev: src/peep.in:1.57

1:   /* -  * $Id: interpret_functions.h,v 1.66 2001/07/02 04:09:48 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.67 2001/07/02 07:02:45 hubbe Exp $    *    * Opcode definitions for the interpreter.    */
125:      /* The not so basic 'push value' instructions */    + OPCODE1_TAIL(F_MARK_AND_GLOBAL,"mark & global") +  *(Pike_mark_sp++)=Pike_sp; +    OPCODE1(F_GLOBAL,"global")    low_object_index_no_free(Pike_sp,    Pike_fp->current_object,
1894:    pc--;   }   BREAK; +  + OPCODE0(F_THIS_OBJECT,"this_object") + { +  if(Pike_fp) +  { +  ref_push_object(Pike_fp->current_object); +  }else{ +  push_int(0); +  } + } + BREAK; +  + OPCODE0(F_ZERO_TYPE,"zero_type") + { +  if(Pike_sp[-1].type != T_INT) +  { +  pop_stack(); +  push_int(0); +  }else{ +  Pike_sp[-1].u.integer=Pike_sp[-1].subtype; +  Pike_sp[-1].subtype=NUMBER_NUMBER; +  } + } + BREAK;