From ab27db8d5de187c3dede7daac67d7eb26815c12e Mon Sep 17 00:00:00 2001
From: Martin Stjernholm <mast@lysator.liu.se>
Date: Wed, 17 Jan 2001 15:01:28 +0100
Subject: [PATCH] Amendment: Mask fake objects also in the cycle check pass.

Rev: src/object.c:1.157
---
 src/object.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/object.c b/src/object.c
index b23f8090ff..19800bf106 100644
--- a/src/object.c
+++ b/src/object.c
@@ -5,7 +5,7 @@
 \*/
 /**/
 #include "global.h"
-RCSID("$Id: object.c,v 1.156 2001/01/17 10:13:52 hubbe Exp $");
+RCSID("$Id: object.c,v 1.157 2001/01/17 14:01:28 mast Exp $");
 #include "object.h"
 #include "dynamic_buffer.h"
 #include "interpret.h"
@@ -1298,6 +1298,8 @@ PMOD_EXPORT void gc_mark_object_as_referenced(struct object *o)
 
 PMOD_EXPORT void real_gc_cycle_check_object(struct object *o, int weak)
 {
+  if(o->next == o) return; /* Fake object used by compiler */
+
   GC_CYCLE_ENTER_OBJECT(o, weak) {
     int e;
     struct program *p = o->prog;
-- 
GitLab