2009-07-22 Thomas Quinot <quinot@adacore.com>

	* sem_type.adb (Get_First_Interp): Fix wrong loop exit condition.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149924 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e6e5f8d..d9f0784 100644 (file)
--- 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 (file)
--- 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);