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.135 2003/02/15 14:11:48 grubba Exp $ + || $Id: interpret_functions.h,v 1.136 2003/02/15 14:14:28 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:429:    print_return_value();    push_svalue( Pike_fp->locals + arg2);    print_return_value();   });      OPCODE2(F_LOCAL_2_LOCAL, "local = local", 0, {    assign_svalue(Pike_fp->locals + arg1, Pike_fp->locals + arg2);   });      OPCODE2(F_LOCAL_2_GLOBAL, "global = local", 0, { -  INT32 tmp = arg1 + Pike_fp->context.identifier_level; -  struct identifier *i; -  -  if(!Pike_fp->current_object->prog) -  Pike_error("Cannot access global variables in destructed object.\n"); -  -  i = ID_FROM_INT(Pike_fp->current_object->prog, tmp); -  if(!IDENTIFIER_IS_VARIABLE(i->identifier_flags)) -  Pike_error("Cannot assign functions or constants.\n"); -  if(i->run_time_type == PIKE_T_MIXED) -  { -  assign_svalue((struct svalue *)GLOBAL_FROM_INT(tmp), +  object_low_set_index(Pike_fp->current_object, +  arg1 + Pike_fp->context.identifier_level,    Pike_fp->locals + arg2); -  }else{ -  assign_to_short_svalue((union anything *)GLOBAL_FROM_INT(tmp), -  i->run_time_type, -  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);   });