From 9ae0f085b53b58b2d858405db334feb1325ab5cb Mon Sep 17 00:00:00 2001 From: Nicolas Berthier Date: Fri, 27 Sep 2024 10:49:35 +0200 Subject: [PATCH] Adjust position of messages about unfinished KEY or FILE COLSEQs --- cobc/ChangeLog | 2 ++ cobc/parser.y | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/cobc/ChangeLog b/cobc/ChangeLog index c5b3b984c..4e2edd08f 100644 --- 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 diff --git a/cobc/parser.y b/cobc/parser.y index 5f4eebe45..6293848c0 100644 --- 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 */ } ;