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.24 2004/04/14 19:02:03 grubba Exp $ + || $Id: module.c,v 1.25 2004/04/14 19:07:31 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.24 2004/04/14 19:02:03 grubba Exp $"); + RCSID("$Id: module.c,v 1.25 2004/04/14 19:07:31 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:59:    lex.current_file=make_shared_string("-");       start_new_program();    Pike_compiler->new_program->id=PROG___BUILTIN_ID;       for(e=0;e<NELEM(module_list);e++)    {    JMP_BUF recovery;    if (!p) {    start_new_program(); -  p = Pike_compiler->new_program; +  p = Pike_compiler.new_program;    }    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();