pike.git / src / main.c

version» Context lines:

pike.git/src/main.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: main.c,v 1.219 2004/12/30 13:40:19 grubba Exp $ + || $Id: main.c,v 1.220 2005/01/01 13:42:16 grubba Exp $   */      #include "global.h"   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"
pike.git/src/main.c:656:    pop_stack();    num=0;    }    UNSETJMP(back);       TRACE((stderr, "Exit %d...\n", num));       pike_do_exit(num);    return num; /* avoid warning */   } -  - void exit_main(void) - { - #ifdef DO_PIKE_CLEANUP -  size_t count; -  -  if (exit_with_cleanup) { -  /* Destruct all remaining objects while we have a proper execution -  * environment. The downside is that the leak report below will -  * always report destructed objects. We use the gc in a special mode -  * for this to get a reasonably sane destruct order. */ -  gc_destruct_everything = 1; -  count = do_gc (NULL, 1); -  while (count) { -  size_t new_count = do_gc (NULL, 1); -  if (new_count >= count) { -  fprintf (stderr, "Some destroy function is creating new objects " -  "during final cleanup - can't exit cleanly.\n"); -  break; -  } -  count = new_count; -  } -  gc_destruct_everything = 0; -  } -  -  /* Unload dynamic modules before static ones. */ -  exit_dynamic_load(); - #endif - } -  - void init_main(void) - { - } -  +