From 337fe62c67ac7817a93fc1aa541728b545aa3b70 Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Fri, 29 Sep 2000 17:48:04 +0200
Subject: [PATCH] Hide fake objects completely for the gc. Probably fixes [bug
 90].

Rev: src/object.c:1.149
---
 src/object.c | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/src/object.c b/src/object.c
index 91d78a11d7..262c9876d8 100644
--- a/src/object.c
+++ b/src/object.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: object.c,v 1.148 2000/09/14 19:58:43 mast Exp $");
+RCSID("$Id: object.c,v 1.149 2000/09/29 15:48:04 mast Exp $");
 #include "object.h"
 #include "dynamic_buffer.h"
 #include "interpret.h"
@@ -739,11 +739,9 @@ PMOD_EXPORT void schedule_really_free_object(struct object *o)
       fprintf(stderr, "|   Freeing storage for %p.\n", o);
 #endif
 
-    if (o->next == o)
-      /* It's a fake object which isn't counted by the gc, so
-       * counteract the num_objects-- done by GC_FREE. */
-      num_objects++;
-    GC_FREE(o);
+    if (o->next != o)
+      /* As far as the gc is concerned, the fake objects doesn't exist. */
+      GC_FREE(o);
 
     FREE_PROT(o);
 
-- 
GitLab