pike.git / src / las.c

version» Context lines:

pike.git/src/las.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: las.c,v 1.354 2004/12/18 18:06:45 grubba Exp $ + || $Id: las.c,v 1.355 2004/12/18 21:48:31 grubba Exp $   */      #include "global.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"
pike.git/src/las.c:1471: Inside #if 0
   }   #endif   #endif       return res;   #endif /* 0 */   }      node *debug_mkthisnode(struct program *parent_prog, int inherit_num)   { +  struct program_state *state;    node *res;      #ifdef PIKE_DEBUG    if ((inherit_num < 0) || (inherit_num > 65535)) {    Pike_fatal("This is bad: %p, %d\n", parent_prog, inherit_num);    }   #endif /* PIKE_DEBUG */       res = mkemptynode();    res->token = F_THIS;
pike.git/src/las.c:1492:    push_object_type(1, parent_prog->inherits[inherit_num].prog->id);    res->type = pop_unfinished_type();    res->tree_info = res->node_info = OPT_NOT_CONST;      #ifdef __CHECKER__    _CDR(res) = 0;   #endif    res->u.integer.a = parent_prog->id;    res->u.integer.b = inherit_num;    +  /* Bzot-i-zot */ +  state = Pike_compiler; +  while(parent_prog != state->new_program) +  { +  state->new_program->flags |= PROGRAM_USES_PARENT | PROGRAM_NEEDS_PARENT; +  state=state->previous; +  } +     return freeze_node(res);   }      node *debug_mkcastnode(struct pike_type *type, node *n)   {    node *res;       if(!n) return 0;      #ifdef PIKE_DEBUG