pike.git / src / module.c

version» Context lines:

pike.git/src/module.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: module.c,v 1.26 2004/04/14 19:08:35 grubba Exp $ + || $Id: module.c,v 1.27 2004/04/15 13:20:19 grubba Exp $   */      #include "global.h"   #include "module.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "builtin_functions.h"   #include "main.h"   #include "svalue.h"   #include "interpret.h"   #include "stralloc.h"   #include "object.h"   #include "mapping.h"   #include "program_id.h"   #include "lex.h"      #include "modules/modlist_headers.h"   #include "post_modules/modlist_headers.h"    - RCSID("$Id: module.c,v 1.26 2004/04/14 19:08:35 grubba Exp $"); + RCSID("$Id: module.c,v 1.27 2004/04/15 13:20:19 grubba Exp $");      /* Define this to trace the initialization and cleanup of static modules. */   /* #define TRACE_MODULE */      #if defined(TRACE_MAIN) || defined(TRACE_MODULE)   #define TRACE(X) fprintf X   #else /* !TRACE_MAIN */   #define TRACE(X)   #endif /* TRACE_MAIN */   
pike.git/src/module.c:70:    }    if(SETJMP(recovery)) {    /* FIXME: We could loop here until we find p. */    free_program(end_program());    p = NULL;    call_handle_error();    } else {    TRACE((stderr, "Initializing static module #%d: \"%s\"...\n",    e, module_list[e].name));    module_list[e].init(); -  if (Pike_compiler->new_program->num_identifier_references) { +  if ( + #if 0 +  Pike_compiler->new_program->num_identifier_references + #else /* !0 */ +  1 + #endif /* 0 */ +  ) {    debug_end_class(module_list[e].name,strlen(module_list[e].name),0);    p = NULL;    } else {    /* No identifier references -- Disabled module. */    }    }    UNSETJMP(recovery);    }    if (p) free_program(end_program());    push_text("_static_modules");