From 579e8e5179d0248bec1ef39c43cd79ea8cb8e3eb Mon Sep 17 00:00:00 2001 From: David Declerck Date: Fri, 21 Jun 2024 01:17:28 +0200 Subject: [PATCH] Tweaks to please the CI... --- cobc/cobc.c | 8 ++++++++ cobc/codegen.c | 3 +++ tests/testsuite.src/run_misc.at | 10 ++++++---- 3 files changed, 17 insertions(+), 4 deletions(-) diff --git a/cobc/cobc.c b/cobc/cobc.c index db18ca9d3..eb19a952b 100644 --- a/cobc/cobc.c +++ b/cobc/cobc.c @@ -5429,7 +5429,11 @@ print_fields (struct cb_field *top, int *found) for (; top; top = top->sister) { /* hiding internal fields, when not referenced */ if (top->level == 0 +#if 0 /* CHECKME: ignoring even if count > 0 ? */ || (top->flag_internal_register && !top->count)) { +#else + || (top->flag_internal_register)) { +#endif continue; } if (*found == 0) { @@ -5760,7 +5764,11 @@ xref_fields (struct cb_field *top) for (; top; top = top->sister) { /* hiding internal fields, when not referenced */ if (top->level == 0 +#if 0 /* CHECKME: ignoring even if count > 0 ? */ || (top->flag_internal_register && !top->count)) { +#else + || (top->flag_internal_register)) { +#endif continue; } #if 0 /* FIXME: at least in the context of RW flag_filler is not set correct in diff --git a/cobc/codegen.c b/cobc/codegen.c index c6cc9eeb8..ac970a3c1 100644 --- a/cobc/codegen.c +++ b/cobc/codegen.c @@ -2299,6 +2299,9 @@ static void emit_symtab (struct cb_field *f) { if (!f->flag_sym_emitted +#if 1 /* CHECKME: do we want to emit internal registers ? */ + && !f->flag_internal_register +#endif && f->level >= 1 && f->level != 66 && f->level != 78 diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at index 14513932f..def3da43a 100644 --- a/tests/testsuite.src/run_misc.at +++ b/tests/testsuite.src/run_misc.at @@ -8401,7 +8401,6 @@ Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS WORKING-STORAGE ********************** -77 RETURN-CODE +000000000 01 ZRO 000000000 01 HEXV 013 01 TEST-BASED. address @@ -8465,7 +8464,6 @@ Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS WORKING-STORAGE ********************** -77 RETURN-CODE +000000000 01 ZRO 000000000 01 HEXV 013 01 IDX 000000000 @@ -8545,7 +8543,6 @@ FD FLATFILE WORKING-STORAGE ********************** -77 RETURN-CODE +000000000 77 MAX-SUB 0006 77 CUST-STAT ALL ZEROES 77 REC-NUM 0001 @@ -8592,6 +8589,9 @@ END OF DUMP - prog ]) +#FIXME: should have the following as first item of WORKING-STORAGE +#77 RETURN-CODE +000000000 + AT_CHECK([gcdiff -U reference tstdump.dump], [0], [], []) # using both @@ -8916,7 +8916,6 @@ Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS WORKING-STORAGE ********************** -77 RETURN-CODE +000000000 01 P2 0x0000000000000000 01 TAB-ADR-COUNT +0008 INDEX TAB-ADR-IND +000000001 @@ -9032,6 +9031,9 @@ END OF DUMP - prog ]) +#FIXME: should have the following as first item of WORKING-STORAGE +#77 RETURN-CODE +000000000 + AT_CHECK([gcdiff -U reference dumpall.txt], [0], [], []) AT_CLEANUP