pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /*   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: interpret_functions.h,v 1.114 2002/11/10 20:19:18 grubba Exp $ + || $Id: interpret_functions.h,v 1.115 2002/11/11 16:12:52 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:1407:    Pike_sp[-1].u.integer =- Pike_sp[-1].u.integer;    }    else if(Pike_sp[-1].type == PIKE_T_FLOAT)    {    Pike_sp[-1].u.float_number =- Pike_sp[-1].u.float_number;    }else{    o_negate();    }   });    - OPCODE0(F_COMPL, "~", 0, { -  o_compl(); - }); + OPCODE0_ALIAS(F_COMPL, "~", 0, o_compl);      OPCODE0(F_NOT, "!", 0, {    switch(Pike_sp[-1].type)    {    case PIKE_T_INT:    Pike_sp[-1].u.integer =! Pike_sp[-1].u.integer;    break;       case PIKE_T_FUNCTION:    case PIKE_T_OBJECT:
pike.git/src/interpret_functions.h:1437:    }    break;       default:    free_svalue(Pike_sp-1);    Pike_sp[-1].type=PIKE_T_INT;    Pike_sp[-1].u.integer=0;    }   });    - OPCODE0(F_LSH, "<<", 0, { -  o_lsh(); - }); + OPCODE0_ALIAS(F_LSH, "<<", 0, o_lsh); + OPCODE0_ALIAS(F_RSH, ">>", 0, o_rsh);    - OPCODE0(F_RSH, ">>", 0, { -  o_rsh(); - }); -  +    #define COMPARISON(ID,DESC,EXPR) \    OPCODE0(ID, DESC, 0, { \    INT32 val = EXPR; \    pop_2_elems(); \    push_int(val); \    })      COMPARISON(F_EQ, "==", is_eq(Pike_sp-2,Pike_sp-1));   COMPARISON(F_NE, "!=", !is_eq(Pike_sp-2,Pike_sp-1));   COMPARISON(F_GT, ">", is_gt(Pike_sp-2,Pike_sp-1));