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.42 2007/05/13 15:00:25 mast Exp $ + || $Id: module.c,v 1.43 2007/05/13 15:43:07 mast 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:357: Inside #if defined(DO_PIKE_CLEANUP)
   fprintf (stderr, "Some destroy function is creating new objects "    "during final cleanup - can't exit cleanly.\n");    break;    }    count = new_count;    }   #ifdef PIKE_DEBUG    if (!count) {    struct object *o;    for (o = first_object; o; o = o->next) -  if (o->prog && (FIND_LFUN (o->prog, LFUN_DESTROY) != -1 || -  o->prog->event_handler)) +  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 (o->prog && (FIND_LFUN (o->prog, LFUN_DESTROY) != -1 || -  o->prog->event_handler)) +  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    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();