pike.git/ src/ program.c

2008-07-14

2008-07-14 11:49:10 by Henrik Grubbström (Grubba) <grubba@grubba.org>

• 23a14a0892365bbaebc4a3ae16b1afaf0a643e01 (32 lines) (+30/-2) ^{[ Show | Annotate ]}
  Branch: 7.9

Mark private symbols as local.

Rev: src/program.c:1.735

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.734 2008/07/13 19:06:23 grubba Exp $ + || $Id: program.c,v 1.735 2008/07/14 11:49:10 grubba Exp $   */      #include "global.h"
4643:    dummy.total_time=0;   #endif    +  if (flags & ID_PRIVATE) flags |= ID_INLINE; +     ref.id_flags=flags;    ref.identifier_offset=Pike_compiler->new_program->num_identifiers;    ref.inherit_offset=0;
4772:       if (run_time_type == PIKE_T_FREE) dummy.func.offset = -1;    +  if (flags & ID_PRIVATE) flags |= ID_INLINE; +     ref.id_flags=flags;    ref.identifier_offset=Pike_compiler->new_program->num_identifiers;    ref.inherit_offset=0;
5191:    }   #endif    +  if (flags & ID_PRIVATE) flags |= ID_INLINE; +     ref.id_flags=flags;    ref.identifier_offset=Pike_compiler->new_program->num_identifiers;    ref.inherit_offset=0;
5677:    debug_add_to_identifiers(fun);    }    +  if (flags & ID_PRIVATE) flags |= ID_INLINE; +     ref.inherit_offset = 0;    ref.id_flags = flags;    if ((overridden = override_identifier (&ref, name)) >= 0) {
5751:       debug_add_to_identifiers(fun);    +  if (flags & ID_PRIVATE) flags |= ID_INLINE; +     ref.id_flags = flags;    ref.identifier_offset = i;    ref.inherit_offset = 0;
5795: Inside #if 0
   return j;    }    } -  ref.id_flags = ID_PARENT_REF|ID_PROTECTED|ID_PRIVATE|ID_HIDDEN; +  ref.id_flags = ID_PARENT_REF|ID_PROTECTED|ID_PRIVATE|ID_HIDDEN|ID_INLINE;    ref.identifier_offset = i;    ref.inherit_offset = 0;    add_to_identifier_references(ref);
7719:      static void run_init2(struct compilation *c)   { + #if 0 +  int i; +  struct program *p; +  struct reference *refs; + #endif /* 0 */    debug_malloc_touch(c);    Pike_compiler->compiler = c;   
7739:       if(c->major>=0)    change_compiler_compatibility(c->major, c->minor); +  + #if 0 +  /* Make all inherited private symbols that weren't overloaded +  * in the first pass local. +  */ +  p = c->new_program; +  i = p->num_identifier_references; +  refs = p->identifier_references; +  while (i--) { +  if (refs[i].id_flags & ID_PRIVATE) refs[i].id_flags |= ID_INLINE;    } -  + #endif /* 0 */ + }      static void run_exit(struct compilation *c)   {