From ce0bbf28fb11b75ebc7d0140ccc38857c03303d9 Mon Sep 17 00:00:00 2001
From: Julien Bortolussi <bortolussi@adacore.com>
Date: Fri, 6 May 2022 16:48:31 +0200
Subject: [PATCH] [Ada] Bug fix in "=" function of formal doubly linked list
Correction of a typo regarding indexes.
gcc/ada/
* libgnat/a-cfdlli.adb ("="): Make the function properly loop
over the right list.
---
gcc/ada/libgnat/a-cfdlli.adb | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gcc/ada/libgnat/a-cfdlli.adb b/gcc/ada/libgnat/a-cfdlli.adb
index 383d031d7154..7b23ad79232e 100644
--- a/gcc/ada/libgnat/a-cfdlli.adb
+++ b/gcc/ada/libgnat/a-cfdlli.adb
@@ -68,9 +68,9 @@ is
end if;
LI := Left.First;
- RI := Left.First;
+ RI := Right.First;
while LI /= 0 loop
- if Left.Nodes (LI).Element /= Right.Nodes (LI).Element then
+ if Left.Nodes (LI).Element /= Right.Nodes (RI).Element then
return False;
end if;
--
GitLab