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.181 2004/12/18 22:20:04 grubba Exp $ + || $Id: interpret_functions.h,v 1.182 2004/12/18 22:24:15 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:1138:    LOCAL_VAR(struct object *o);    if(Pike_sp[-1].type == T_OBJECT &&    (o = Pike_sp[-1].u.object)->prog)    {    int fun = FIND_LFUN(o->prog->inherits[Pike_sp[-1].subtype].prog,    LFUN__IS_TYPE);    if(fun != -1)    {   /* fprintf(stderr,"******OBJECT OVERLOAD IN TYPEP***** %s\n",get_name_of_type(arg1)); */    push_text(get_name_of_type(arg1)); -  apply_low(o, fun + p->inherits[Pike_sp[-2].subtype].identifier_level, 1); +  apply_low(o, fun + +  o->prog->inherits[Pike_sp[-2].subtype].identifier_level, 1);    arg1=UNSAFE_IS_ZERO(Pike_sp-1) ? T_FLOAT : T_OBJECT ;    pop_stack();    }    }    if(Pike_sp[-1].type == arg1)    {    /* write_to_stderr("foreach\n", 8); */    DONT_BRANCH();    }else{    DO_BRANCH();