From 79f8cea3cfc09d391a18e66e317cf2455fb35b17 Mon Sep 17 00:00:00 2001 From: David Declerck Date: Mon, 7 Oct 2024 19:46:08 +0200 Subject: [PATCH] Post-merges fixes --- TODO | 2 ++ cobc/cobc.c | 5 ++--- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/TODO b/TODO index ef57dd447..e188c237e 100644 --- a/TODO +++ b/TODO @@ -212,6 +212,8 @@ https://sourceforge.net/p/gnucobol/code/HEAD/tree/external-doc/guide/ - Rework the context-sensitive reserved words handling (or use a bigger type) +- Add --error-list -e to cobc + 7.2 CHECKMEs, TODOs and #if-0'ed code - Investigate the two CHECKMEs about bdb_close_cursor in fbdb.c:ix_bdb_write_internal diff --git a/cobc/cobc.c b/cobc/cobc.c index 2757e70ac..b0ac35d92 100644 --- a/cobc/cobc.c +++ b/cobc/cobc.c @@ -477,7 +477,7 @@ static const struct option long_options[] = { {"std", CB_RQ_ARG, NULL, '$'}, {"conf", CB_RQ_ARG, NULL, '&'}, {"debug", CB_NO_ARG, NULL, 'd'}, - {"ext", CB_RQ_ARG, NULL, 'e'}, /* note: kept *undocumented* until GC4, will be changed to '.' */ + {"ext", CB_RQ_ARG, NULL, '.'}, {"free", CB_NO_ARG, NULL, 'F'}, /* note: not assigned directly as this is only valid for */ {"fixed", CB_NO_ARG, NULL, 'f'}, /* `int` and sizeof(enum) isn't always sizeof (int) */ {"static", CB_NO_ARG, &cb_flag_static_call, 1}, @@ -3675,8 +3675,7 @@ process_command_line (const int argc, char **argv) #endif break; - case 'e': /* until GC 4 we keep (undocumented) 'e', - but that's reserved for possible --error-log */ + case '.': /* -ext : Add an extension suffix */ if (strlen (cob_optarg) > 15U) { cobc_err_exit (COBC_INV_PAR, "--ext");