pike.git / src / interpret_functions.h

version» Context lines:

pike.git/src/interpret_functions.h:1:   /* -  * $Id: interpret_functions.h,v 1.101 2002/05/10 22:28:28 mast Exp $ +  * $Id: interpret_functions.h,v 1.102 2002/05/10 23:44:05 nilsson Exp $    *    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST   #undef LOOP   #undef COMPARISON
pike.git/src/interpret_functions.h:232:    Pike_sp->type=PIKE_T_STRING;    Pike_sp->subtype=1; /* Magic */    Pike_sp++;    print_return_value();   });      OPCODE1(F_LOOKUP_LFUN, "->lfun", 0, {    struct svalue tmp;    struct object *o;    -  if ((sp[-1].type == T_OBJECT) && ((o = Pike_sp[-1].u.object)->prog) && +  if ((Pike_sp[-1].type == T_OBJECT) && ((o = Pike_sp[-1].u.object)->prog) &&    (FIND_LFUN(o->prog, LFUN_ARROW) == -1)) {    int id = FIND_LFUN(o->prog, arg1);    if ((id != -1) &&    (!(o->prog->identifier_references[id].id_flags &    (ID_STATIC|ID_PRIVATE|ID_HIDDEN)))) {    low_object_index_no_free(&tmp, o, id);    } else {    /* Not found. */    tmp.type = T_INT;    tmp.subtype = 1;
pike.git/src/interpret_functions.h:1254:    * l1:    * sync_mark    * code    * pop_sync_mark    * l2:    * loop(l1)    */   OPCODE0_JUMP(F_LOOP, "loop", 0, { /* loopcnt */    /* Use >= and 1 to be able to reuse the 1 for the subtraction. */    push_int(1); -  if (!is_lt(sp-2, sp-1)) { +  if (!is_lt(Pike_sp-2, Pike_sp-1)) {    o_subtract();    DOJUMP();    } else {    pop_2_elems();    SKIPJUMP();    }   });      OPCODE0_JUMP(F_FOREACH, "foreach", 0, { /* array, lvalue, X, i */    if(Pike_sp[-4].type != PIKE_T_ARRAY)