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