Skip to content
Snippets Groups Projects
Commit 8db8da90 authored by Fredrik Hübinette (Hubbe)'s avatar Fredrik Hübinette (Hubbe)
Browse files

bugfix

Rev: src/svalue.c:1.10
parent 96f750f5
Branches
Tags
No related merge requests found
...@@ -654,6 +654,8 @@ TYPE_FIELD gc_check_svalues(struct svalue *s, int num) ...@@ -654,6 +654,8 @@ TYPE_FIELD gc_check_svalues(struct svalue *s, int num)
gc_check(s->u.object); gc_check(s->u.object);
}else{ }else{
free_svalue(s); free_svalue(s);
s->type=T_INT;
s->u.integer=0;
} }
break; break;
...@@ -680,6 +682,7 @@ void gc_check_short_svalue(union anything *u, TYPE_T type) ...@@ -680,6 +682,7 @@ void gc_check_short_svalue(union anything *u, TYPE_T type)
gc_check(u->object); gc_check(u->object);
}else{ }else{
free_short_svalue(u,T_OBJECT); free_short_svalue(u,T_OBJECT);
u->object=0;
} }
break; break;
...@@ -713,6 +716,8 @@ void gc_mark_svalues(struct svalue *s, int num) ...@@ -713,6 +716,8 @@ void gc_mark_svalues(struct svalue *s, int num)
gc_mark_object_as_referenced(s->u.object); gc_mark_object_as_referenced(s->u.object);
}else{ }else{
free_svalue(s); free_svalue(s);
s->type=T_INT;
s->u.integer=0;
} }
break; break;
} }
...@@ -735,6 +740,7 @@ void gc_mark_short_svalue(union anything *u, TYPE_T type) ...@@ -735,6 +740,7 @@ void gc_mark_short_svalue(union anything *u, TYPE_T type)
gc_mark_object_as_referenced(u->object); gc_mark_object_as_referenced(u->object);
}else{ }else{
free_short_svalue(u,T_OBJECT); free_short_svalue(u,T_OBJECT);
u->object=0;
} }
break; break;
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment