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.177 2004/11/27 22:48:10 mast Exp $ + || $Id: interpret_functions.h,v 1.178 2004/12/04 14:07:20 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:361:    push_function(o, pike_trampoline_program->lfuns[LFUN_CALL]);    print_return_value();   });      /* The not so basic 'push value' instructions */      OPCODE1_TAIL(F_MARK_AND_GLOBAL, "mark & global", I_UPDATE_SP|I_UPDATE_M_SP, {    *(Pike_mark_sp++)=Pike_sp;       OPCODE1(F_GLOBAL, "global", I_UPDATE_SP, { -  low_object_index_no_free(Pike_sp, -  Pike_fp->current_object, -  arg1 + Pike_fp->context.identifier_level); +  low_index_current_object_no_free(Pike_sp, arg1);    Pike_sp++;    print_return_value();    });   });      OPCODE2_TAIL(F_MARK_AND_EXTERNAL, "mark & external", I_UPDATE_SP|I_UPDATE_M_SP, {    *(Pike_mark_sp++)=Pike_sp;       OPCODE2(F_EXTERNAL,"external", I_UPDATE_SP, {    LOCAL_VAR(struct external_variable_context loc);
pike.git/src/interpret_functions.h:455:    assign_svalue(Pike_fp->locals + arg1, Pike_fp->locals + arg2);   });      OPCODE2(F_LOCAL_2_GLOBAL, "global = local", 0, {    object_low_set_index(Pike_fp->current_object,    arg1 + Pike_fp->context.identifier_level,    Pike_fp->locals + arg2);   });      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); +  low_index_current_object_no_free(Pike_fp->locals + arg2, arg1);   });      OPCODE1(F_LOCAL_LVALUE, "& local", I_UPDATE_SP, {    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", I_UPDATE_SP, {
pike.git/src/interpret_functions.h:1687:    s = Pike_fp->locals + arg1;    if(s->type == PIKE_T_STRING) s->subtype=0;    index_no_free(&tmp,Pike_sp-1,s);    free_svalue(Pike_sp-1);    move_svalue (Pike_sp - 1, &tmp);   });      OPCODE2(F_GLOBAL_LOCAL_INDEX, "global[local]", I_UPDATE_SP, {    LOCAL_VAR(struct svalue *s);    LOCAL_VAR(struct svalue tmp); -  low_object_index_no_free(Pike_sp, -  Pike_fp->current_object, -  arg1 + Pike_fp->context.identifier_level); +  low_index_current_object_no_free(Pike_sp, arg1);    Pike_sp++;    s=Pike_fp->locals+arg2;    if(s->type == PIKE_T_STRING) s->subtype=0;    index_no_free(&tmp,Pike_sp-1,s);    free_svalue(Pike_sp-1);    move_svalue (Pike_sp - 1, &tmp);   });      OPCODE2(F_LOCAL_ARROW, "local->x", I_UPDATE_SP, {    LOCAL_VAR(struct svalue tmp);