a68: fix logic for name comparison in are_packs_equivalent [PR algol68/123653]

Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
gcc/algol68/ChangeLog

	PR algol68/123653
	* a68-parser-moids-equivalence.cc (are_packs_equivalent): Fix
	logic in name comparison.

diff --git a/gcc/algol68/a68-parser-moids-equivalence.cc b/gcc/algol68/a68-parser-moids-equivalence.cc
index c022f9cb67324b27c81a332f2cd52bd96ea31e46..260eb4209a6a9efd5297b10cc4c0177f30708626 100644 (file)
--- a/gcc/algol68/a68-parser-moids-equivalence.cc
+++ b/gcc/algol68/a68-parser-moids-equivalence.cc
@@ -50,9 +50,9 @@ are_packs_equivalent (PACK_T *s, PACK_T *t,
       if (compare_names)
        {
          if (TEXT (s) != TEXT (t)
-             && TEXT (s) != NO_TEXT
-             && TEXT (t) != NO_TEXT
-             && strcmp (TEXT (s), TEXT (t)) != 0)
+             && !(TEXT (s) != NO_TEXT
+                  && TEXT (t) != NO_TEXT
+                  && strcmp (TEXT (s), TEXT (t)) == 0))
            return false;
        }
     }