pike.git/ src/ program.c

2005-12-31

2005-12-31 03:36:44 by Martin Nilsson <mani@lysator.liu.se>

• 2c660c841e9f654473ce39aa3a93f4ba3d6c4626 (11 lines) (+10/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

Facet init and exit needs more work. Disable them for now.

Rev: src/facetgroup.cmod:1.6
Rev: src/language.yacc:1.361
Rev: src/module.c:1.36
Rev: src/program.c:1.598
Rev: src/program.h:1.221

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.597 2005/11/06 21:42:54 grubba Exp $ + || $Id: program.c,v 1.598 2005/12/31 03:35:58 nilsson Exp $   */      #include "global.h"
2148:    int id=0;    struct svalue tmp;    + #ifdef WITH_FACETS    if(Pike_compiler->compiler_pass == 1 && p) {    p->facet_class = 0;    p->facet_index = -1;    p->facet_group = NULL;    } -  + #endif      #if 0   #ifdef SHARED_NODES
2507:       DOUBLEUNLINK(first_program, p);    + #ifdef WITH_FACETS    if(p->facet_group)    {    free_object(p->facet_group);    } -  + #endif      #if defined(PIKE_USE_MACHINE_CODE) && defined(VALGRIND_DISCARD_TRANSLATIONS)    if(p->program) {
3746:   }   #endif    + #ifdef WITH_FACETS   void check_for_facet_inherit(struct program *p)   {    /* If the inherit statement comes before the facet keyword in the
3794:    }    }   } + #endif         /*
3830:    return;    }    + #ifdef WITH_FACETS    /* Check if inherit is a facet inherit. */    check_for_facet_inherit(p); -  + #endif       if (p == placeholder_program) {    yyerror("Trying to inherit placeholder program (resolver problem).");