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.175 2003/04/28 00:32:43 mast Exp $ + || $Id: main.c,v 1.176 2003/06/05 21:50:16 mast Exp $   */      #include "global.h" - RCSID("$Id: main.c,v 1.175 2003/04/28 00:32:43 mast Exp $"); + RCSID("$Id: main.c,v 1.176 2003/06/05 21:50:16 mast 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:929: Inside #if defined(DO_PIKE_CLEANUP)
   else if (m->refs != x->refs) { \    fprintf (stderr, NAME " got %d unaccounted references:\n", \    x->refs - m->refs); \    describe_something (x, T_TYPE, 2, 2, 0, NULL); \    } \    } \    if (num) \    fprintf (stderr, NAME "s left: %"PRINTSIZET"d\n", num); \    } while (0)    -  REPORT_LINKED_LIST_LEAKS (array, &empty_array, &empty_array, T_ARRAY, "Array"); +  REPORT_LINKED_LIST_LEAKS (array, empty_array.next, &weak_empty_array, T_ARRAY, "Array");    REPORT_LINKED_LIST_LEAKS (multiset, first_multiset, NULL, T_MULTISET, "Multiset");    REPORT_LINKED_LIST_LEAKS (mapping, first_mapping, NULL, T_MAPPING, "Mapping");    REPORT_LINKED_LIST_LEAKS (program, first_program, NULL, T_PROGRAM, "Program");    REPORT_LINKED_LIST_LEAKS (object, first_object, NULL, T_OBJECT, "Object");      #undef REPORT_LINKED_LIST_LEAKS       /* Just remove the extra external refs reported above and do    * another gc so that we don't report the blocks again in the low    * level dmalloc reports. */
pike.git/src/main.c:951:   #define ZAP_LINKED_LIST_LEAKS(TYPE, START, END) do { \    struct TYPE *x; \    for (x = START; x != END; x = x->next) { \    struct marker *m = find_marker (x); \    if (m) \    while (x->refs > m->refs) \    PIKE_CONCAT(free_, TYPE) (x); \    } \    } while (0)    -  ZAP_LINKED_LIST_LEAKS (array, weak_shrink_empty_array.next, &empty_array); +  ZAP_LINKED_LIST_LEAKS (array, empty_array.next, &weak_empty_array);    ZAP_LINKED_LIST_LEAKS (multiset, first_multiset, NULL);    ZAP_LINKED_LIST_LEAKS (mapping, first_mapping, NULL);    ZAP_LINKED_LIST_LEAKS (program, first_program, NULL);    ZAP_LINKED_LIST_LEAKS (object, first_object, NULL);      #undef ZAP_LINKED_LIST_LEAKS       /* If we stumble on the real refs whose refcounts we've zapped    * above we should try to handle it gracefully. */    gc_external_refs_zapped = 1;