Tentative fix for 4935

ddeclerck · Sep 25, 2024 · 2a59c66 · 2a59c66
1 parent 7fb136f
commit 2a59c66
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cobc/codegen.c b/cobc/codegen.c
@@ -8198,7 +8198,7 @@ output_perform_until (struct cb_perform *p, cb_tree l)
 	 && next) {
 		cb_tree	xn;
 		/* Check all INDEXED BY variables used in VARYING */
-		for (xn = l; xn; xn = CB_CHAIN (xn)) {
+		for (xn = l; xn; xn = NULL /*CB_CHAIN (xn)*/)
 			struct cb_field		*q;
 			f = CB_FIELD_PTR (CB_PERFORM_VARYING(CB_VALUE (xn))->name);
 			if (!f->flag_indexed_by) continue;