pike.git/ src/ module.c

2003-03-26

2003-03-26 18:52:04 by Martin Nilsson <mani@lysator.liu.se>

• 00538d7e797169ae22e9268c40647e4202277ddf (11 lines) (+8/-3) ^{[ Show | Annotate ]}
  Branch: 7.9

Takes less space. Still ugly.

Rev: src/module.c:1.22

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: module.c,v 1.21 2003/02/05 13:05:37 grubba Exp $ + || $Id: module.c,v 1.22 2003/03/26 18:52:04 nilsson Exp $   */      #include "global.h"
25:   #include "post_modules/modlist_headers.h"   #endif    - RCSID("$Id: module.c,v 1.21 2003/02/05 13:05:37 grubba Exp $"); + RCSID("$Id: module.c,v 1.22 2003/03/26 18:52:04 nilsson Exp $");      /* Define this to trace the initialization and cleanup of static modules. */   /* #define TRACE_MODULE */
51:   #ifndef IN_TPIKE   #include "post_modules/modlist.h"   #endif -  ,{ "Builtin2", init_main, exit_main } +    };      void init_modules(void)
88:    free_program(p);    free_string(lex.current_file);    lex = save_lex; +  +  init_main();   }      void exit_modules(void)   {    JMP_BUF recovery;    int e; -  +  +  exit_main(); +     for(e=NELEM(module_list)-1;e>=0;e--)    {    if(SETJMP(recovery))