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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index e6e5f8daed303ded8e60ce862c45dc17df8b9885..d9f0784f3890aa1dcc9c082640334c6063c89e3b 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 fad78d49d9b48cd7bc7ab084b05db12dd84cf046..8beb56faea4b781d440841d86174f0fcba21598a 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);