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.29 2004/09/18 23:00:52 nilsson Exp $ + || $Id: module.c,v 1.30 2004/10/16 07:27:29 agehall 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:42:      static const struct static_module module_list[] = {    { "Builtin", low_init_main, low_exit_main }   #include "modules/modlist.h"   #include "post_modules/modlist.h"   };      void init_modules(void)   {    struct program *p = NULL; -  unsigned int e; +  volatile unsigned int e;    struct lex save_lex;       save_lex = lex;    lex.current_line=1;    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++)
pike.git/src/module.c:97:    free_program(p);    free_string(lex.current_file);    lex = save_lex;       init_main();   }      void exit_modules(void)   {    JMP_BUF recovery; -  int e; +  volatile int e;       exit_main();       for(e=NELEM(module_list)-1;e>=0;e--)    {    if(SETJMP(recovery))    call_handle_error();    else {    TRACE((stderr, "Exiting static module #%d: \"%s\"...\n",    e, module_list[e].name));    module_list[e].exit();    }    UNSETJMP(recovery);    }   }