diff options
| author | Julien Bortolussi <bortolussi@adacore.com> | 2022-05-06 16:48:31 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2022-06-01 08:43:19 +0000 |
| commit | ce0bbf28fb11b75ebc7d0140ccc38857c03303d9 (patch) | |
| tree | b51cf3bf186554635423317fdf07abf5c0eab654 /gcc | |
| parent | 2977b006df03998f6c773f593600881348a4e517 (diff) | |
| download | gcc-ce0bbf28fb11b75ebc7d0140ccc38857c03303d9.zip gcc-ce0bbf28fb11b75ebc7d0140ccc38857c03303d9.tar.gz gcc-ce0bbf28fb11b75ebc7d0140ccc38857c03303d9.tar.bz2 | |
[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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/libgnat/a-cfdlli.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/libgnat/a-cfdlli.adb b/gcc/ada/libgnat/a-cfdlli.adb index 383d031..7b23ad7 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; |