diff options
Diffstat (limited to 'gcc/ada/a-crbtgo.adb')
| -rw-r--r-- | gcc/ada/a-crbtgo.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-crbtgo.adb b/gcc/ada/a-crbtgo.adb index bfc0bcf..0307961 100644 --- a/gcc/ada/a-crbtgo.adb +++ b/gcc/ada/a-crbtgo.adb @@ -157,7 +157,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Operations is and then Color (X) = Black loop if X = Left (Parent (X)) then - W := Right (Parent (X)); + W := Right (Parent (X)); if Color (W) = Red then Set_Color (W, Black); @@ -201,7 +201,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Operations is else pragma Assert (X = Right (Parent (X))); - W := Left (Parent (X)); + W := Left (Parent (X)); if Color (W) = Red then Set_Color (W, Black); |