a68: simplify a68_bits_test

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
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 16205fa6351cef46946127c1d5c1adc74024201d..cfe84fbff33c5bb7ba5dd1e9f570c261c184f6e6 100644 (file)
--- 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 331e865ffffab838723d34d78fc98a4994a1c793..9bc03cff48f2f09556edac284484d02936e46424 100644 (file)
--- 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 c0fc8bedb94a39fa524492cc4cf4dfa42afe4124..3e3442f668ab5d21b7b05d6a2b1fd72d05c9d965 100644 (file)
--- 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  */