diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-31 09:24:32 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-31 09:24:32 +0000 |
| commit | 06eec79f7a90b99d20f1ef37bab7232579b17e97 (patch) | |
| tree | d7cbb2015383eadc95cb3ad402303d45cff77cea /gcc/ada/a-rbtgbo.adb | |
| parent | f56578295717025ee266066527da6d28dd856699 (diff) | |
| download | gcc-06eec79f7a90b99d20f1ef37bab7232579b17e97.tar.gz | |
2011-08-31 Robert Dewar <dewar@adacore.com>
* exp_ch5.adb, exp_ch7.ads, sem_ch5.adb, put_scos.adb, s-rannum.adb,
a-rbtgbo.adb, exp_intr.adb, a-cbdlli.adb, a-cbdlli.ads: Minor
reformatting.
2011-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* exp_util.adb (Find_Protection_Type): Do not look for fields _object
if the corresponding type is malformed due to restriction violations.
2011-08-31 Robert Dewar <dewar@adacore.com>
* s-ransee.ads, s-ransee.adb: Minor reformatting.
2011-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch4.adb (Expand_N_Allocator): Correct faulty condition which
would cause the generation of Set_Finalize_Address if the target is a
VM and the designated type is not derived from [Limited_]Controlled.
2011-08-31 Arnaud Charlet <charlet@adacore.com>
* comperr.adb, comperr.ads, gnat1drv.adb (Delete_SCIL_Files): New
subprogram.
(Compiler_Abort, Gnat1drv): Call Delete_SCIL_Files in codepeer mode in
case of a compilation error.
2011-08-31 Hristian Kirtchev <kirtchev@adacore.com>
* init.c (__gnat_error_handler): Standardize the stack overflow or
erroneous memory access message.
* seh_init.c (__gnat_SEH_error_handler): Standardize the stack overflow
or erroneous memory access message.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@178368 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-rbtgbo.adb')
| -rw-r--r-- | gcc/ada/a-rbtgbo.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/a-rbtgbo.adb b/gcc/ada/a-rbtgbo.adb index afa98f89c03..f420438efac 100644 --- a/gcc/ada/a-rbtgbo.adb +++ b/gcc/ada/a-rbtgbo.adb @@ -63,8 +63,11 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is Tree.Last := 0; Tree.Root := 0; Tree.Length := 0; + + -- Why are the following commented out with no explanation ??? -- Tree.Busy -- Tree.Lock + Tree.Free := -1; end Clear_Tree; @@ -76,7 +79,6 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is (Tree : in out Tree_Type'Class; Node : Count_Type) is - -- CLR p. 274 X : Count_Type; @@ -143,7 +145,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Bounded_Operations is end if; if (Left (N (W)) = 0 or else Color (N (Left (N (W)))) = Black) - and then + and then (Right (N (W)) = 0 or else Color (N (Right (N (W)))) = Black) then Set_Color (N (W), Red); |