From 5c4fc164611959ba7634dd9949adf67ce4a7852e Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Sun, 13 May 2007 17:43:07 +0200
Subject: [PATCH] Use gc_object_is_live.
Rev: src/module.c:1.43
---
src/module.c | 8 +++-----
1 file changed, 3 insertions(+), 5 deletions(-)
diff --git a/src/module.c b/src/module.c
index 89beea6f3c..8581a2bf6f 100644
--- a/src/module.c
+++ b/src/module.c
@@ -2,7 +2,7 @@
|| 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,12 +364,10 @@ void exit_modules(void)
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");
}
--
GitLab