diff options
Diffstat (limited to 'gcc/ada/a-rbtgbo.adb')
| -rw-r--r-- | gcc/ada/a-rbtgbo.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/a-rbtgbo.adb b/gcc/ada/a-rbtgbo.adb index b759740..0ef7b02 100644 --- a/gcc/ada/a-rbtgbo.adb +++ b/gcc/ada/a-rbtgbo.adb @@ -88,7 +88,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is X := Node; while X /= Tree.Root and then Color (N (X)) = Black loop if X = Left (N (Parent (N (X)))) then - W := Right (N (Parent (N (X)))); + W := Right (N (Parent (N (X)))); if Color (N (W)) = Red then Set_Color (N (W), Black); @@ -132,7 +132,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is else pragma Assert (X = Right (N (Parent (N (X))))); - W := Left (N (Parent (N (X)))); + W := Left (N (Parent (N (X)))); if Color (N (W)) = Red then Set_Color (N (W), Black); |