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.51 2008/03/30 01:24:10 mast Exp $ + || $Id: module.c,v 1.52 2008/04/14 10:14:40 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"
pike.git/src/module.c:376: Inside #if undefined(PRE_PIKE)
  #include "modules/modlist.h"   #ifndef PRE_PIKE   #include "post_modules/modlist.h"   #endif   };      void init_modules(void)   {    struct program *p = NULL;    volatile unsigned int e; -  struct lex save_lex; +     -  save_lex = lex; -  lex.current_line=1; -  lex.current_file=make_shared_string("-"); +  enter_compiler(NULL, 1);       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;
pike.git/src/module.c:421:    /* No identifier references -- Disabled module. */    }    }    UNSETJMP(recovery);    }    if (p) free_program(end_program());    push_text("_static_modules");    push_object(low_clone(p=end_program()));    f_add_constant(2);    free_program(p); -  free_string(lex.current_file); -  lex = save_lex; +  +  exit_compiler();   }      void exit_modules(void)   {    JMP_BUF recovery;    volatile int e;      #ifdef DO_PIKE_CLEANUP    size_t count;