https://gcc.gnu.org/g:7eac62572c7955e38760a906debea5cbed846491
commit r16-7237-g7eac62572c7955e38760a906debea5cbed846491 Author: Jose E. Marchesi <[email protected]> Date: Sun Feb 1 23:27:42 2026 +0100 a68: simplify a68_bits_test Signed-off-by: Jose E. Marchesi <[email protected]> gcc/algol68/ChangeLog * a68-low-bits.cc (a68_bits_test): Do not get a parameter with the result moid. * a68.h: Adapt prototype of a68_bits_test accordingly. * a68-low-prelude.cc (a68_lower_test3): Adjust call accordingly. Diff: --- gcc/algol68/a68-low-bits.cc | 3 +-- gcc/algol68/a68-low-prelude.cc | 2 +- gcc/algol68/a68.h | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/gcc/algol68/a68-low-bits.cc b/gcc/algol68/a68-low-bits.cc index 16205fa6351c..cfe84fbff33c 100644 --- a/gcc/algol68/a68-low-bits.cc +++ b/gcc/algol68/a68-low-bits.cc @@ -375,8 +375,7 @@ a68_bits_clear (MOID_T *m, tree bits, tree numbit, location_t loc) the operator yields false. */ tree -a68_bits_test (MOID_T *m ATTRIBUTE_UNUSED, - tree bits, tree numbit, location_t loc) +a68_bits_test (tree bits, tree numbit, location_t loc) { tree bits_type = TREE_TYPE (bits); tree int_type = TREE_TYPE (numbit); diff --git a/gcc/algol68/a68-low-prelude.cc b/gcc/algol68/a68-low-prelude.cc index 331e865ffffa..9bc03cff48f2 100644 --- a/gcc/algol68/a68-low-prelude.cc +++ b/gcc/algol68/a68-low-prelude.cc @@ -771,7 +771,7 @@ a68_lower_test3 (NODE_T *p, LOW_CTX_T ctx) { tree op1 = a68_lower_tree (SUB (p), ctx); tree op2 = a68_lower_tree (NEXT (NEXT (SUB (p))), ctx); - return a68_bits_test (MOID (p), op1, op2, a68_get_node_location (p)); + return a68_bits_test (op1, op2, a68_get_node_location (p)); } tree diff --git a/gcc/algol68/a68.h b/gcc/algol68/a68.h index c0fc8bedb94a..3e3442f668ab 100644 --- a/gcc/algol68/a68.h +++ b/gcc/algol68/a68.h @@ -539,7 +539,7 @@ tree a68_bits_eq (tree a, tree b, location_t loc = UNKNOWN_LOCATION); tree a68_bits_ne (tree a, tree b, location_t loc = UNKNOWN_LOCATION); tree a68_bits_set (MOID_T *m, tree bits, tree numbit, location_t loc = UNKNOWN_LOCATION); tree a68_bits_clear (MOID_T *m, tree bits, tree numbit, location_t loc = UNKNOWN_LOCATION); -tree a68_bits_test (MOID_T *m, tree bits, tree numbit, location_t loc = UNKNOWN_LOCATION); +tree a68_bits_test (tree bits, tree numbit, location_t loc = UNKNOWN_LOCATION); /* a68-low_bools.cc */
