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.54 2008/06/23 16:39:04 mast Exp $ + || $Id: module.c,v 1.55 2008/06/29 17:56:36 nilsson 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:351:    cleanup_shared_string_table();       free_dynamic_load();    first_mapping=0;    free_all_mapping_blocks();    first_object=0;    free_all_object_blocks();    first_program=0;    free_all_program_blocks();    exit_multiset(); - #endif + #endif /* DO_PIKE_CLEANUP */   }      typedef void (*modfun)(void);      struct static_module   {    char *name;    modfun init;    modfun exit;   };
pike.git/src/module.c:456: Inside #if defined(DO_PIKE_CLEANUP) and #if defined(PIKE_DEBUG)
   if (!count) {    struct object *o;    for (o = first_object; o; o = o->next)    if (gc_object_is_live (o))    gc_fatal (o, 0, "Object missed in gc_destruct_everything mode.\n");    for (o = objects_to_destruct; o; o = o->next)    if (gc_object_is_live (o))    gc_fatal (o, 0, "Object missed in gc_destruct_everything mode"    " (is on objects_to_destruct list).\n");    } - #endif + #endif /* PIKE_DEBUG */    gc_destruct_everything = 0;    exit_cleanup_in_progress = 1; /* Warn about object creation from now on. */    }       /* Unload dynamic modules before static ones. */    exit_dynamic_load(); - #endif + #endif /* DO_PIKE_CLEANUP */       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);    }   }