Adjust position of messages about unfinished KEY or FILE COLSEQs

OCamlPro · Sep 27, 2024 · 9ae0f08 · 9ae0f08
1 parent 13a8389
commit 9ae0f08
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/cobc/ChangeLog b/cobc/ChangeLog
@@ -15,6 +15,8 @@
 	  collating sequence for now)
 	* codegen.c (output_indexed_file_key_colseq): assign collating sequence
 	  for any key of alphanumeric class
+	* parser.y: adjust position of messages about unfinished KEY or FILE
+	  COLLATING SEQUENCE
 
 2024-08-28  David Declerck <[email protected]>
 

diff --git a/cobc/parser.y b/cobc/parser.y
@@ -5784,7 +5784,7 @@ collating_sequence_clause:
 	check_repeated ("COLLATING", SYN_CLAUSE_3, &check_duplicate);
 	current_file->collating_sequence = alphanumeric_collation;
 	current_file->collating_sequence_n = national_collation;
-	CB_UNFINISHED ("FILE COLLATING SEQUENCE"); /* only implemented for BDB */
+	CB_UNFINISHED_X (alphanumeric_collation, "FILE COLLATING SEQUENCE"); /* only implemented for BDB */
   }
 ;
 
@@ -5836,7 +5836,7 @@ collating_sequence_clause_key:
 	   and also attached to the correct key later, so just store in a list here: */
 	current_file->collating_sequence_keys =
 		cb_list_add(current_file->collating_sequence_keys, CB_BUILD_PAIR ($6, $4));
-	CB_UNFINISHED ("KEY COLLATING SEQUENCE"); /* only implemented for BDB */
+	CB_UNFINISHED_X ($6, "KEY COLLATING SEQUENCE"); /* only implemented for BDB */
   }
 ;