pike.git/ src/ program.c

2004-03-13

2004-03-13 14:45:06 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• cd2be33cfe4637efbeff81d602d6686ef1e0ce11 (12 lines) (+6/-6) ^{[ Show | Annotate ]}
  Branch: 7.9

Renamed flag counter Pike_compiler->check_final to Pike_compiler->flags.
Moved the global flag force_resolve to Pike_compiler->flags.
Defined flags COMPILATION_{CHECK_FINAL,FORCE_RESOLVE}.
The above fixes various bugs introduced by yesterdays changes.

Rev: src/compilation.h:1.31
Rev: src/language.yacc:1.328
Rev: src/las.c:1.344
Rev: src/program.c:1.557
Rev: src/program.h:1.200

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: program.c,v 1.556 2004/03/10 18:08:12 grubba Exp $ + || $Id: program.c,v 1.557 2004/03/13 14:45:06 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.556 2004/03/10 18:08:12 grubba Exp $"); + RCSID("$Id: program.c,v 1.557 2004/03/13 14:45:06 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1946:    p->lfuns[i] = low_find_lfun(p, i);    }    -  if(Pike_compiler->check_final) +  if(Pike_compiler->flags & COMPILATION_CHECK_FINAL)    {    for(i=0;i<(int)p->num_identifier_references;i++)    {
3812:       if (fun.id_flags & ID_NOMASK)    { -  Pike_compiler->check_final++; +  Pike_compiler->flags |= COMPILATION_CHECK_FINAL;    }       if(fun.id_flags & ID_PRIVATE) fun.id_flags|=ID_HIDDEN;
5923:   #endif      struct Supporter *current_supporter=0; - int force_resolve = 0; +          #ifdef PIKE_DEBUG
6133:    return 0;    }    verify_supporters(); -  if (force_resolve) +  if (Pike_compiler->flags & COMPILATION_FORCE_RESOLVE)    return 0;    for(cc=current_supporter;cc;cc=cc->previous)    {