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.162 2003/11/10 01:06:56 mast Exp $ + || $Id: interpret_functions.h,v 1.163 2003/12/03 14:39:19 grubba Exp $   */      /*    * Opcode definitions for the interpreter.    */      #include "global.h"      #undef CJUMP   #undef AUTO_BIGNUM_LOOP_TEST
pike.git/src/interpret_functions.h:325:    tmp2.type = PIKE_T_STRING;    tmp2.u.string = lfun_strings[arg1];    tmp2.subtype = 1;    index_no_free(&tmp, Pike_sp-1, &tmp2);    }    free_svalue(Pike_sp-1);    Pike_sp[-1] = tmp;    print_return_value();   });    - OPCODE0_JUMP(F_FLOAT, "push float", I_UPDATE_SP, { -  /* FIXME, this opcode uses 'PROG_COUNTER' which is not allowed.. */ -  PIKE_OPCODE_T *next_addr; -  JUMP_SET_TO_PC_AT_NEXT (next_addr); -  MEMCPY((void *)&Pike_sp->u.float_number, next_addr, sizeof(FLOAT_TYPE)); -  Pike_sp->type=PIKE_T_FLOAT; -  Pike_sp++; -  DO_JUMP_TO((PIKE_OPCODE_T *)(((FLOAT_TYPE *) next_addr) + 1)); - }); -  +    OPCODE1(F_LFUN, "local function", I_UPDATE_SP, {    ref_push_function (Pike_fp->current_object,    arg1+Pike_fp->context.identifier_level);    print_return_value();   });      OPCODE2(F_TRAMPOLINE, "trampoline", I_UPDATE_SP, {    struct object *o=low_clone(pike_trampoline_program);    struct pike_frame *f=Pike_fp;    DO_IF_DEBUG(INT32 arg2_ = arg2);