cobc/codegen.c (output_init_comment_and_source_ref) [NO_INIT_SOURCE_L…

…OC]: option to skip generating the source location in DATA DIVISION
lefessan · May 31, 2023 · 2af7cc6 · 2af7cc6
1 parent 13367e5
commit 2af7cc6
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/cobc/ChangeLog b/cobc/ChangeLog
@@ -1,4 +1,13 @@
 
+2023-05-31  Simon Sobisch <[email protected]>
+
+	* codegen.c (output_init_comment_and_source_ref) [NO_INIT_SOURCE_LOC]:
+	  option to skip generating the source location in DATA DIVISION
+
+2023-05-30  Simon Sobisch <[email protected]>
+
+	* typeck.y (is_subordinate_to): start with parent, not field
+
 2023-05-28  Simon Sobisch <[email protected]>
 
 	* parser.y: allow expressions for screen related clauses

diff --git a/cobc/codegen.c b/cobc/codegen.c
@@ -5178,11 +5178,16 @@ output_init_comment_and_source_ref (struct cb_field *f)
 {
 	/* output comment and source location for each field */
 	output_line ("/* initialize field %s */", f->name);
+#ifndef	NO_INIT_SOURCE_LOC	/* allow user to not output these;
+	note: this will lead to a COBOL step never land in the
+	      DATA DIVISION; it will also lead to not be able to list
+	      copybooks in there to be visible to the debugger */
 	if (cb_flag_c_line_directives && f->common.source_line) {
 		output_cobol_info (CB_TREE (f));
 		output_line ("cob_nop ();");
 		output_c_info ();
 	}
+#endif
 }
 
 static void