From 4735b6a136cdc035502de9d0bd976ac481fa1e92 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 19 Feb 1998 13:38:45 -0800
Subject: [PATCH] bugfix in gc
Rev: src/object.c:1.41
---
src/object.c | 10 ++--------
1 file changed, 2 insertions(+), 8 deletions(-)
diff --git a/src/object.c b/src/object.c
index 8bd8654231..71e33cfdc3 100644
--- a/src/object.c
+++ b/src/object.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: object.c,v 1.40 1998/02/19 03:22:30 hubbe Exp $");
+RCSID("$Id: object.c,v 1.41 1998/02/19 21:38:45 hubbe Exp $");
#include "object.h"
#include "dynamic_buffer.h"
#include "interpret.h"
@@ -922,9 +922,6 @@ void gc_mark_object_as_referenced(struct object *o)
if(frame.context.prog->gc_marked)
frame.context.prog->gc_marked(o);
- if(frame.context.parent)
- gc_mark_object_as_referenced(frame.context.parent);
-
for(d=0;d<(int)frame.context.prog->num_identifiers;d++)
{
if(!IDENTIFIER_IS_VARIABLE(frame.context.prog->identifiers[d].identifier_flags))
@@ -959,7 +956,7 @@ void gc_check_all_objects(void)
{
#ifdef DEBUG
if(o->parent)
- if(gc_check(o->parent)==-2)
+ if(debug_gc_check(o->parent,T_OBJECT,o)==-2)
fprintf(stderr,"(in object at %lx -> parent)\n",(long)o);
#else
if(o->parent)
@@ -974,9 +971,6 @@ void gc_check_all_objects(void)
struct inherit in=o->prog->inherits[e];
char *base=o->storage + in.storage_offset;
- if(in.parent)
- gc_check(in.parent);
-
for(d=0;d<in.prog->num_identifiers;d++)
{
struct identifier *i=in.prog->identifiers+d;
--
GitLab