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.   \*/   /**/   #include "global.h" - RCSID("$Id: main.c,v 1.148 2002/05/31 22:41:24 nilsson Exp $"); + RCSID("$Id: main.c,v 1.149 2002/06/25 14:26:41 grubba 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:908: Inside #if defined(DO_PIKE_CLEANUP) and #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
   count_memory_in_objects(&num, &size);    if(num)    fprintf(stderr,"Objects left: %d (%d bytes)\n",num,size);       {    struct object *o;    for(o=first_object;o;o=o->next)    describe_something(o, T_OBJECT, 0,2,0, NULL);    }    - #ifdef USE_PIKE_TYPE +     count_memory_in_pike_types(&num, &size);    if (num)    fprintf(stderr, "Types left: %d (%d bytes)\n", num, size);    describe_all_types(); - #endif /* USE_PIKE_TYPE */ +     }   #else       zap_all_arrays();    zap_all_mappings();       destruct_objects_to_destruct_cb();   #endif       really_clean_up_interpret();