The SYMBOL_COMPLEX parse node attribute is now redundant and unused, in favor of SYMBOL_COMPL. Remove from the codebase.
Signed-off-by: Jose E. Marchesi <[email protected]> gcc/algol68/ChangeLog * a68-parser-attrs.def (COMPLEX_SYMBOL): Remove. * a68-parser-bottom-up.cc (reduce_declarers): Remove reduction of COMPLEX_SYMBOL. (reduce_declarers): Do not handle COMPLEX_SYMBOL. * a68-parser.cc (a68_dont_mark_here): Likewise. --- gcc/algol68/a68-parser-attrs.def | 1 - gcc/algol68/a68-parser-bottom-up.cc | 8 +++----- gcc/algol68/a68-parser.cc | 1 - 3 files changed, 3 insertions(+), 7 deletions(-) diff --git a/gcc/algol68/a68-parser-attrs.def b/gcc/algol68/a68-parser-attrs.def index c474a2653db..6f4e1183e7d 100644 --- a/gcc/algol68/a68-parser-attrs.def +++ b/gcc/algol68/a68-parser-attrs.def @@ -88,7 +88,6 @@ A68_ATTR(COLLECTION, "collection") A68_ATTR(COLON_SYMBOL, "colon-symbol") A68_ATTR(COMMA_SYMBOL, "comma-symbol") A68_ATTR(COMPLEX_PATTERN, "complex pattern") -A68_ATTR(COMPLEX_SYMBOL, "complex-symbol") A68_ATTR(COMPL_SYMBOL, "compl-symbol") A68_ATTR(CONDITIONAL_CLAUSE, "conditional clause") A68_ATTR(CONFORMITY_CHOICE, "conformity clause choice") diff --git a/gcc/algol68/a68-parser-bottom-up.cc b/gcc/algol68/a68-parser-bottom-up.cc index c17436536b3..0ddf1f63fa8 100644 --- a/gcc/algol68/a68-parser-bottom-up.cc +++ b/gcc/algol68/a68-parser-bottom-up.cc @@ -773,7 +773,6 @@ reduce_declarers (NODE_T *p, enum a68_attribute expect) reduce (q, NO_NOTE, NO_TICK, INDICANT, REAL_SYMBOL, STOP); reduce (q, NO_NOTE, NO_TICK, INDICANT, BITS_SYMBOL, STOP); reduce (q, NO_NOTE, NO_TICK, INDICANT, BYTES_SYMBOL, STOP); - reduce (q, NO_NOTE, NO_TICK, INDICANT, COMPLEX_SYMBOL, STOP); reduce (q, NO_NOTE, NO_TICK, INDICANT, COMPL_SYMBOL, STOP); reduce (q, NO_NOTE, NO_TICK, INDICANT, BOOL_SYMBOL, STOP); reduce (q, NO_NOTE, NO_TICK, INDICANT, CHAR_SYMBOL, STOP); @@ -801,8 +800,7 @@ reduce_declarers (NODE_T *p, enum a68_attribute expect) a = ATTRIBUTE (SUB_NEXT (q)); if (a == INT_SYMBOL || a == REAL_SYMBOL || a == BITS_SYMBOL - || a == BYTES_SYMBOL || a == COMPLEX_SYMBOL - || a == COMPL_SYMBOL) + || a == BYTES_SYMBOL || a == COMPL_SYMBOL) { reduce (q, NO_NOTE, NO_TICK, DECLARER, LONGETY, INDICANT, STOP); } @@ -826,14 +824,14 @@ reduce_declarers (NODE_T *p, enum a68_attribute expect) { a = ATTRIBUTE (SUB_NEXT (q)); if (a == INT_SYMBOL || a == REAL_SYMBOL || a == BITS_SYMBOL - || a == BYTES_SYMBOL || a == COMPLEX_SYMBOL || a == COMPL_SYMBOL) + || a == BYTES_SYMBOL || a == COMPL_SYMBOL) { reduce (q, NO_NOTE, NO_TICK, DECLARER, SHORTETY, INDICANT, STOP); } else { a68_error (NEXT (q), "appropriate declarer expected"); - reduce (q, NO_NOTE, NO_TICK, DECLARER, LONGETY, INDICANT, STOP); + reduce (q, NO_NOTE, NO_TICK, DECLARER, SHORTETY, INDICANT, STOP); } } } diff --git a/gcc/algol68/a68-parser.cc b/gcc/algol68/a68-parser.cc index 2f64b0a8628..ae2a4cfcf18 100644 --- a/gcc/algol68/a68-parser.cc +++ b/gcc/algol68/a68-parser.cc @@ -421,7 +421,6 @@ a68_dont_mark_here (NODE_T *p) case CLOSE_SYMBOL: case COLON_SYMBOL: case COMMA_SYMBOL: - case COMPLEX_SYMBOL: case COMPL_SYMBOL: case DO_SYMBOL: case ELIF_SYMBOL: -- 2.39.5
