pike.git / src / program.c

version» Context lines:

pike.git/src/program.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: program.c,v 1.454 2002/11/07 15:00:56 grubba Exp $ + || $Id: program.c,v 1.455 2002/11/07 17:03:27 marcus Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.454 2002/11/07 15:00:56 grubba Exp $"); + RCSID("$Id: program.c,v 1.455 2002/11/07 17:03:27 marcus Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:1120:       if (!inherit_num) {    /* These are only recognized when looking in the current program    * and not an inherited one. */       /* Handle this */    if (ident == this_string)    return mkefuncallnode ("this_object", mknewintnode (state_depth));       /* Handle this_program */ -  if (ident == this_program_string) { -  if (compilation_depth > state_depth) -  return mkexternalnode(state->previous->new_program, -  state->previous->parent_identifier); -  else { -  struct svalue s; -  s.type=T_PROGRAM; -  s.u.program=state->new_program; -  return mkconstantsvaluenode(&s); +  if (ident == this_program_string) +  return mkefuncallnode ("object_program", +  mkefuncallnode ("this_object", +  mknewintnode (state_depth)));    } -  } -  } +        if (colon_colon_ref) {    /* These are only recognized when prefixed with the :: operator. */       if (inherit_num < 0) inherit_num = 0;    if(ident == lfun_strings[LFUN_ARROW] ||    ident == lfun_strings[LFUN_INDEX]) {    return mknode(F_MAGIC_INDEX, mknewintnode(inherit_num),    mknewintnode(state_depth));    } else if(ident == lfun_strings[LFUN_ASSIGN_ARROW] ||