Branch: Tag:

2007-05-13

2007-05-13 15:43:07 by Martin Stjernholm <mast@lysator.liu.se>

Use gc_object_is_live.

Rev: src/module.c:1.43

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: module.c,v 1.42 2007/05/13 15:00:25 mast Exp $ + || $Id: module.c,v 1.43 2007/05/13 15:43:07 mast Exp $   */      #include "global.h"
364: Inside #if defined(DO_PIKE_CLEANUP) and #if defined(PIKE_DEBUG)
   if (!count) {    struct object *o;    for (o = first_object; o; o = o->next) -  if (o->prog && (FIND_LFUN (o->prog, LFUN_DESTROY) != -1 || -  o->prog->event_handler)) +  if (gc_object_is_live (o))    gc_fatal (o, 0, "Object missed in gc_destruct_everything mode.\n");    for (o = objects_to_destruct; o; o = o->next) -  if (o->prog && (FIND_LFUN (o->prog, LFUN_DESTROY) != -1 || -  o->prog->event_handler)) +  if (gc_object_is_live (o))    gc_fatal (o, 0, "Object missed in gc_destruct_everything mode"    " (is on objects_to_destruct list).\n");    }