pike.git / src / main.c

version» Context lines:

pike.git/src/main.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: main.c,v 1.68 1999/04/08 22:27:07 hubbe Exp $"); + RCSID("$Id: main.c,v 1.69 1999/04/08 23:54:29 hubbe Exp $");   #include "fdlib.h"   #include "backend.h"   #include "module.h"   #include "object.h"   #include "language.h"   #include "lex.h"   #include "pike_types.h"   #include "builtin_functions.h"   #include "array.h"   #include "stralloc.h"
pike.git/src/main.c:533:    cleanup_program();    cleanup_compiler();    cleanup_error();    cleanup_backend();       do_gc();    exit_pike_security();    free_svalue(& throw_value);    throw_value.type=T_INT;    -  exit_destroy_called_mark_hash(); +    #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)    if(verbose_debug_exit)    {    INT32 num,size,recount=0;    fprintf(stderr,"Exited normally, counting bytes.\n");       count_memory_in_arrays(&num, &size);    if(num)    {    recount++;
pike.git/src/main.c:603: Inside #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
      cleanup_shared_string_table();    }   #else       zap_all_arrays();    zap_all_mappings();       cleanup_shared_string_table();   #endif -  cleanup_callbacks(); +     really_clean_up_interpret(); -  + #ifdef DO_PIKE_CLEANUP +  cleanup_callbacks(); +  free_all_callable_blocks(); +  exit_destroy_called_mark_hash(); + #endif   }