pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.253 2001/06/07 21:47:11 hubbe Exp $"); + RCSID("$Id: las.c,v 1.254 2001/06/23 21:52:09 hubbe Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:946:    case F_MAGIC_SET_INDEX:    res->node_info |= OPT_ASSIGNMENT;    /* FALL_THROUGH */    case F_MAGIC_INDEX:    {    int e;    struct program_state *state = Pike_compiler;    res->node_info |= OPT_EXTERNAL_DEPEND;    for(e=0;e<b->u.sval.u.integer;e++)    { -  state->new_program->flags |= PROGRAM_USES_PARENT; +  state->new_program->flags |= PROGRAM_USES_PARENT | PROGRAM_NEEDS_PARENT;    state=state->previous;    }       break;    }       case F_UNDEFINED:    res->node_info |= OPT_EXTERNAL_DEPEND | OPT_SIDE_EFFECT;    break;   
pike.git/src/las.c:1303: Inside #if defined(__CHECKER__)
  #ifdef __CHECKER__    _CDR(res) = 0;   #endif    res->u.integer.a = parent_prog->id;    res->u.integer.b = i;       /* Bzot-i-zot */    state = Pike_compiler;    while(parent_prog != state->new_program)    { -  state->new_program->flags |= PROGRAM_USES_PARENT; +  state->new_program->flags |= PROGRAM_USES_PARENT | PROGRAM_NEEDS_PARENT;    state=state->previous;    }       res=freeze_node(res);      #ifdef PIKE_DEBUG    /* FIXME: This test crashes on valid code because the type of the    * identifier can change in pass 2 -Hubbe    */    if(d_flag && id->type != res->type)
pike.git/src/las.c:1893: Inside #if undefined(PARENT_INFO)
   struct object *o;    for(o=Pike_compiler->fake_object;o!=s->u.object;o=o->parent)    {    n=mkefuncallnode("function_object",    mkefuncallnode("object_program",n));    }   #else    struct program_state *state=Pike_compiler;;    for(;state->fake_object!=s->u.object;state=state->previous)    { -  state->new_program->flags |= PROGRAM_USES_PARENT; +  state->new_program->flags |= PROGRAM_USES_PARENT | PROGRAM_NEEDS_PARENT;    n=mkefuncallnode("function_object",    mkefuncallnode("object_program",n));    }   #endif    return n;    }    break;       case T_FUNCTION:    {