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.137 2003/02/15 14:59:35 grubba Exp $ + || $Id: interpret_functions.h,v 1.138 2003/02/16 03:59:57 mast Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:401:    find_external_context(&loc, arg2);       DO_IF_DEBUG({    TRACE((5,"- Identifier=%d Offset=%d\n",    arg1,    loc.inherit->identifier_level));    });          ref_push_object(loc.o); -  Pike_sp->type=T_LVALUE; +  Pike_sp->type=T_OBJ_INDEX;    Pike_sp->u.integer=arg1 + loc.inherit->identifier_level;    Pike_sp++;   });      OPCODE1(F_MARK_AND_LOCAL, "mark & local", 0, {    *(Pike_mark_sp++) = Pike_sp;    push_svalue( Pike_fp->locals + arg1);    print_return_value();   });   
pike.git/src/interpret_functions.h:443:      OPCODE2(F_GLOBAL_2_LOCAL, "local = global", 0, {    INT32 tmp = arg1 + Pike_fp->context.identifier_level;    free_svalue(Pike_fp->locals + arg2);    low_object_index_no_free(Pike_fp->locals + arg2,    Pike_fp->current_object,    tmp);   });      OPCODE1(F_LOCAL_LVALUE, "& local", 0, { -  Pike_sp[0].type = T_LVALUE; +  Pike_sp[0].type = T_SVALUE_PTR;    Pike_sp[0].u.lval = Pike_fp->locals + arg1;    Pike_sp[1].type = T_VOID;    Pike_sp += 2;   });      OPCODE2(F_LEXICAL_LOCAL, "lexical local", 0, {    struct pike_frame *f=Pike_fp;    while(arg2--)    {    f=f->scope;
pike.git/src/interpret_functions.h:467:    print_return_value();   });      OPCODE2(F_LEXICAL_LOCAL_LVALUE, "&lexical local", 0, {    struct pike_frame *f=Pike_fp;    while(arg2--)    {    f=f->scope;    if(!f) Pike_error("Lexical scope error.\n");    } -  Pike_sp[0].type=T_LVALUE; +  Pike_sp[0].type=T_SVALUE_PTR;    Pike_sp[0].u.lval=f->locals+arg1;    Pike_sp[1].type=T_VOID;    Pike_sp+=2;   });      OPCODE1(F_ARRAY_LVALUE, "[ lvalues ]", 0, {    f_aggregate(arg1*2);    Pike_sp[-1].u.array->flags |= ARRAY_LVALUE;    Pike_sp[-1].u.array->type_field |= BIT_UNFINISHED | BIT_MIXED;    /* FIXME: Shouldn't a ref be added here? */
pike.git/src/interpret_functions.h:717:    f_add(2);    assign_lvalue(Pike_sp-3,Pike_sp-1);    pop_n_elems(3);    add_and_pop_done:    ; /* make gcc happy */   });      OPCODE1(F_GLOBAL_LVALUE, "& global", 0, {    ref_push_object(Pike_fp->current_object);    push_int(arg1 + Pike_fp->context.identifier_level); -  Pike_sp[-1].type = T_LVALUE; +  Pike_sp[-1].type = T_OBJ_INDEX;   });      OPCODE0(F_INC, "++x", 0, {    union anything *u=get_pointer_if_this_type(Pike_sp-2, PIKE_T_INT);    if(u    DO_IF_BIGNUM(    && !INT_TYPE_ADD_OVERFLOW(u->integer, 1)    )    )    {