pike.git/ src/ las.c

2004-12-18

2004-12-18 21:48:31 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 36a1139ec6ea436e7c80f8c4d4ef94a7e60f303f (12 lines) (+11/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Bugfix.

Rev: src/las.c:1.355

2:   || 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"
1478:      node *debug_mkthisnode(struct program *parent_prog, int inherit_num)   { +  struct program_state *state;    node *res;      #ifdef PIKE_DEBUG
1499:    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);   }