FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Bug fix in "=" function of formal doubly linked list

Browse source 
Correction of a typo regarding indexes.

gcc/ada/

	* libgnat/a-cfdlli.adb ("="): Make the function properly loop
	over the right list.
This commit is contained in:
Julien Bortolussi 2022-05-06 16:48:31 +02:00 • committed by Pierre-Marie de Rodat
parent 2977b006df
commit ce0bbf28fb
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/libgnat/a-cfdlli.adb
View file

@ -68,9 +68,9 @@ is
end if; end if;
LI := Left.First; LI := Left.First;
RI := Left.First; RI := Right.First;
while LI /= 0 loop 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; return False;
end if; end if;