Follow-up to r4739 - strncpy crusade - work around bad flag_filler se…

…tting in (at least) RW
lefessan · Oct 5, 2022 · 157fa35 · 157fa35
1 parent bfc7ac4
commit 157fa35
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/cobc/cobc.c b/cobc/cobc.c
@@ -5677,7 +5677,12 @@ xref_fields (struct cb_field *top)
 		 || (top->flag_internal_register && !top->count)) {
 			continue;
 		}
+#if 0 /* FIXME: at least in the context of RW flag_filler is not set correct in
+                all places (and if done in all places other testcases break) */
 		if (top->flag_filler && !top->validation) {
+#else
+		if (!strcmp (check_filler_name (top), "FILLER") && !top->validation) {
+#endif
 			if (top->children) {
 				found += xref_fields (top->children);
 			}