Signed-off-by: Jose E. Marchesi <[email protected]>
gcc/algol68/ChangeLog
PR algol68/123653
* a68-parser-moids-equivalence.cc (are_packs_equivalent): Fix
logic in name comparison.
---
gcc/algol68/a68-parser-moids-equivalence.cc | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/gcc/algol68/a68-parser-moids-equivalence.cc
b/gcc/algol68/a68-parser-moids-equivalence.cc
index c022f9cb673..260eb4209a6 100644
--- 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;
}
}
--
2.39.5
