From: Jose E. Marchesi Date: Sun, 1 Feb 2026 22:27:42 +0000 (+0100) Subject: a68: simplify a68_bits_test X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7eac62572c7955e38760a906debea5cbed846491;p=thirdparty%2Fgcc.git a68: simplify a68_bits_test Signed-off-by: Jose E. Marchesi 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 --git a/gcc/algol68/a68-low-bits.cc b/gcc/algol68/a68-low-bits.cc index 16205fa6351..cfe84fbff33 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 331e865ffff..9bc03cff48f 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 c0fc8bedb94..3e3442f668a 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 */