diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 11:15:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 11:15:30 +0200 |
| commit | e7f567a338ca40ad1dc232c2d523810f70bd9478 (patch) | |
| tree | f031722a9c7f798d32baccf705490bcd2256341b /gcc/ada/a-rbtgbo.adb | |
| parent | 1a265e7824356359788dddf51b04d85ae4f7ff04 (diff) | |
| download | gcc-e7f567a338ca40ad1dc232c2d523810f70bd9478.tar.gz | |
[multiple changes]
2011-08-01 Matthew Heaney <heaney@adacore.com>
* a-rbtgbo.adb (Delete_Node_Sans_Free): Fixed assignment to left child
of node.
2011-08-01 Pascal Obry <obry@adacore.com>
* a-stzunb-shared.adb, a-strunb-shared.adb, a-stwiun-shared.adb: Minor
reformatting.
From-SVN: r177003
Diffstat (limited to 'gcc/ada/a-rbtgbo.adb')
| -rw-r--r-- | gcc/ada/a-rbtgbo.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/a-rbtgbo.adb b/gcc/ada/a-rbtgbo.adb index 88743b3ce5b..60a84a0c397 100644 --- a/gcc/ada/a-rbtgbo.adb +++ b/gcc/ada/a-rbtgbo.adb @@ -330,7 +330,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is Set_Right (N (Parent (N (Z))), Y); end if; - Set_Left (N (Y), Z); + Set_Left (N (Y), Left (N (Z))); Set_Parent (N (Left (N (Y))), Y); Set_Right (N (Y), Z); Set_Parent (N (Z), Y); |