2010-04-11
2010-04-11 17:24:47 by Martin Stjernholm <mast@lysator.liu.se>
-
33e024996cd7d9c1409d5fa0e1971a091e95a53f
(16 lines)
(+14/-2)
[
Show
| Annotate
]
Branch: 7.9
Extended low_describe_something to identify fake objects.
Rev: src/gc.c:1.341
2:
|| 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: gc.c,v 1.340 2009/12/13 23:22:34 mast Exp $
+ || $Id: gc.c,v 1.341 2010/04/11 17:24:47 mast Exp $
*/
#include "global.h"
1152: Inside #if defined(PIKE_DEBUG)
fprintf(stderr,"%*s**The object is on objects_to_destruct.\n",indent,"");
}
+ {
+ struct program_state *ps;
+ for (ps = Pike_compiler; ps; ps = ps->previous)
+ if (ps->fake_object == (struct object *) a) {
+ fprintf (stderr, "%*s**The object is a fake for new program %p "
+ "in compiler program state %p.\n",
+ indent, "", ps->new_program, ps);
+ break;
+ }
+ }
+
if(!p)
{
p=id_to_program(((struct object *)a)->program_id);
1691: Inside #if undefined(GC_MARK_DEBUG)
#ifndef GC_MARK_DEBUG
struct pike_queue gc_mark_queue;
- #else /* !GC_MARK_DEBUG */
+ #else /* GC_MARK_DEBUG */
/* Cut'n'paste from queue.c. */