Even non-publicized modes were being added to the module interfaces. This was because for all other kind of taxes (identifiers, operator indicants, etc) the PUBLICIZED tax attribute is set at taxes collection time, but for mode indicants the flag shall be set at extraction time.
Signed-off-by: Jose E. Marchesi <[email protected]> gcc/algol68/ChangeLog * a68-parser-extract.cc (a68_extract_indicants): Set PUBLICIZED in the new tags for mode indicants. * a68-parser.cc (a68_new_tag): Initialize PUBLICIZED to false. --- gcc/algol68/a68-parser-extract.cc | 4 +++- gcc/algol68/a68-parser.cc | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/algol68/a68-parser-extract.cc b/gcc/algol68/a68-parser-extract.cc index 82ceb776116..fc1f318eaaf 100644 --- a/gcc/algol68/a68-parser-extract.cc +++ b/gcc/algol68/a68-parser-extract.cc @@ -485,8 +485,10 @@ a68_extract_indicants (NODE_T *p) /* Store in the symbol table, but also in the moid list. Position of definition (q) connects to this lexical level! */ - if (a68_add_tag (TABLE (p), INDICANT, q, NO_MOID, STOP) == NO_TAG) + TAG_T *t = a68_add_tag (TABLE (p), INDICANT, q, NO_MOID, STOP); + if (t == NO_TAG) gcc_unreachable (); + PUBLICIZED (t) = is_public; if (a68_add_mode (&TOP_MOID (&A68_JOB), INDICANT, 0, q, NO_MOID, NO_PACK) == NO_MOID) gcc_unreachable (); ATTRIBUTE (q) = DEFINING_INDICANT; diff --git a/gcc/algol68/a68-parser.cc b/gcc/algol68/a68-parser.cc index 1eff76a2571..4303d5297e8 100644 --- a/gcc/algol68/a68-parser.cc +++ b/gcc/algol68/a68-parser.cc @@ -788,7 +788,7 @@ a68_new_tag (void) PORTABLE (z) = true; VARIABLE (z) = false; IS_RECURSIVE (z) = false; - PUBLICIZED (z) = true; /* XXX */ + PUBLICIZED (z) = false; ASCRIBED_ROUTINE_TEXT (z) = false; LOWERER (z) = NO_LOWERER; TAX_TREE_DECL (z) = NULL_TREE; -- 2.39.5
