From 8db8da90ddaa285754c57f33883bc82f37957cdc Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Mon, 13 May 1996 22:45:37 +0200
Subject: [PATCH] bugfix

Rev: src/svalue.c:1.10
---
 src/svalue.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/svalue.c b/src/svalue.c
index 3c75166201..0cc24edc8c 100644
--- a/src/svalue.c
+++ b/src/svalue.c
@@ -654,6 +654,8 @@ TYPE_FIELD gc_check_svalues(struct svalue *s, int num)
 	gc_check(s->u.object);
       }else{
 	free_svalue(s);
+	s->type=T_INT;
+	s->u.integer=0;
       }
       break;
 
@@ -680,6 +682,7 @@ void gc_check_short_svalue(union anything *u, TYPE_T type)
       gc_check(u->object);
     }else{
       free_short_svalue(u,T_OBJECT);
+      u->object=0;
     }
     break;
 
@@ -713,6 +716,8 @@ void gc_mark_svalues(struct svalue *s, int num)
 	gc_mark_object_as_referenced(s->u.object);
       }else{
 	free_svalue(s);
+	s->type=T_INT;
+	s->u.integer=0;
       }
       break;
     }
@@ -735,6 +740,7 @@ void gc_mark_short_svalue(union anything *u, TYPE_T type)
       gc_mark_object_as_referenced(u->object);
     }else{
       free_short_svalue(u,T_OBJECT);
+      u->object=0;
     }
     break;
   }
-- 
GitLab