Merge pull request #100 from ladislav/bug#1969

Fix GC crash with gob/parent handling
metaeducation · Aug 18, 2013 · 19d1111 · 19d1111
2 parents ceca249 + f5097f1
commit 19d1111
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/core/m-gc.c b/src/core/m-gc.c
@@ -115,15 +115,16 @@ static void Mark_Series(REBSER *series, REBCNT depth);
 	REBGOB **pane;
 	REBCNT i;
 
-	if (GOB_PANE(gob)) {
+	if (GOB_PANE(gob) && !IS_MARK_SERIES(GOB_PANE(gob))) {
 		MARK_SERIES(GOB_PANE(gob));
 		pane = GOB_HEAD(gob);
 		for (i = 0; i < GOB_TAIL(gob); i++, pane++) {
 			Mark_Gob(*pane, depth);
 		}
 	}
 
-	//if (GOB_PARENT(gob)) Mark_Gob(GOB_PARENT(gob));
+	if (GOB_PARENT(gob)) Mark_Gob(GOB_PARENT(gob), depth);
+
 	if (GOB_CONTENT(gob)) {
 		if (GOB_TYPE(gob) >= GOBT_IMAGE && GOB_TYPE(gob) <= GOBT_STRING) {
 			MARK_SERIES(GOB_CONTENT(gob));