diff options
| author | Thomas Quinot <quinot@adacore.com> | 2009-07-22 10:26:19 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-22 12:26:19 +0200 |
| commit | 4eb317ccce4caa81eba08a2aedad4849c7ea489c (patch) | |
| tree | 3c82cd553ab1214f7c88232e76f8c5fd3acd81f7 /gcc/ada | |
| parent | a36c1c3e43ff4da71ddfb65d123519f58365981b (diff) | |
| download | gcc-4eb317ccce4caa81eba08a2aedad4849c7ea489c.zip gcc-4eb317ccce4caa81eba08a2aedad4849c7ea489c.tar.gz gcc-4eb317ccce4caa81eba08a2aedad4849c7ea489c.tar.bz2 | |
sem_type.adb (Get_First_Interp): Fix wrong loop exit condition.
2009-07-22 Thomas Quinot <quinot@adacore.com>
* sem_type.adb (Get_First_Interp): Fix wrong loop exit condition.
From-SVN: r149924
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/sem_type.adb | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e6e5f8d..d9f0784 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2009-07-22 Thomas Quinot <quinot@adacore.com> + + * sem_type.adb (Get_First_Interp): Fix wrong loop exit condition. + 2009-07-22 Robert Dewar <dewar@adacore.com> * sem_res.adb (Check_No_Direct_Boolean_Operators): Add check for -gnatyB diff --git a/gcc/ada/sem_type.adb b/gcc/ada/sem_type.adb index fad78d4..8beb56f 100644 --- a/gcc/ada/sem_type.adb +++ b/gcc/ada/sem_type.adb @@ -2116,7 +2116,7 @@ package body Sem_Type is end if; Map_Ptr := Headers (Hash (O_N)); - while Present (Interp_Map.Table (Map_Ptr).Node) loop + while Map_Ptr /= No_Entry loop if Interp_Map.Table (Map_Ptr).Node = O_N then Int_Ind := Interp_Map.Table (Map_Ptr).Index; It := All_Interp.Table (Int_Ind); |