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.86 2000/04/06 20:53:30 grubba Exp $"); + RCSID("$Id: main.c,v 1.87 2000/04/06 21:00:20 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:669: Inside #if defined(DO_PIKE_CLEANUP) and #if defined(PIKE_DEBUG) && defined(DEBUG_MALLOC)
   }          count_memory_in_programs(&num, &size);    if(num)    fprintf(stderr,"Programs left: %d (%d bytes)\n",num,size);       {    struct program *p;    for(p=first_program;p;p=p->next) -  { +     describe_something(p, T_PROGRAM, 1);    } -  } +           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, 1); +  } +     cleanup_shared_string_table();    }   #else       zap_all_arrays();    zap_all_mappings();       cleanup_shared_string_table();   #endif