pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.19 2000/05/01 02:11:25 hubbe Exp $ +  * $Id: interpret_functions.h,v 1.20 2000/05/01 03:33:45 hubbe Exp $    *    * Opcode definitions for the interpreter.    */      OPCODE0(F_UNDEFINED,"push UNDEFINED")    push_int(0);    Pike_sp[-1].subtype=NUMBER_UNDEFINED;   BREAK;      OPCODE0(F_CONST0, "push 0")
pike.git/src/interpret_functions.h:1123:    COMPARISMENT(F_NE,!is_eq(Pike_sp-2,Pike_sp-1));    COMPARISMENT(F_GT, is_gt(Pike_sp-2,Pike_sp-1));    COMPARISMENT(F_GE,!is_lt(Pike_sp-2,Pike_sp-1));    COMPARISMENT(F_LT, is_lt(Pike_sp-2,Pike_sp-1));    COMPARISMENT(F_LE,!is_gt(Pike_sp-2,Pike_sp-1));      OPCODE0(F_ADD, "+")    f_add(2);   BREAK;    + OPCODE0(F_ADD_INTS, "int+int") +  if(sp[-1].type == T_INT && sp[-2].type == T_INT + #ifdef AUTO_BIGNUM +  && (!INT_TYPE_ADD_OVERFLOW(sp[-1].u.integer, sp[-2].u.integer)) + #endif +  ) +  { +  sp[-2].u.integer+=sp[-1].u.integer; +  sp--; +  }else{ +  f_add(2); +  } + BREAK; +  + OPCODE0(F_ADD_FLOATS, "float+float") +  if(sp[-1].type == T_FLOAT && sp[-2].type == T_FLOAT) +  { +  sp[-2].u.float_number+=sp[-1].u.float_number; +  sp--; +  }else{ +  f_add(2); +  } + BREAK; +    OPCODE0(F_SUBTRACT, "-")    o_subtract();   BREAK;      OPCODE0(F_AND, "&")    o_and();   BREAK;      OPCODE0(F_OR, "|")    o_or();