pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c: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.c,v 1.389 2008/03/09 17:36:34 grubba Exp $ + || $Id: interpret.c,v 1.390 2008/03/14 08:49:51 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "pike_error.h"
pike.git/src/interpret.c:2332:    /* This is needed for opcodes that use INHERIT_FROM_*    * (eg F_EXTERN) to work.    */    if (use_dummy_reference) {    struct identifier dummy;    struct reference dummy_ref = {    0, 0, ID_HIDDEN,    };    copy_shared_string(dummy.name, empty_pike_string);    copy_pike_type(dummy.type, function_type_string); +  dummy.run_time_type = PIKE_T_FUNCTION;    dummy.identifier_flags = IDENTIFIER_PIKE_FUNCTION|IDENTIFIER_HAS_BODY;    dummy.func.offset = offset;    dummy.opt_flags = 0;    dummy_ref.identifier_offset = Pike_compiler->new_program->num_identifiers;    add_to_identifiers(dummy);    add_to_identifier_references(dummy_ref);    }       /* FIXME: Is this up-to-date with mega_apply? */    new_frame->next = Pike_fp;