From: Thomas Quinot <quinot@adacore.com>
Date: Wed, 22 Jul 2009 10:26:19 +0000 (+0000)
Subject: sem_type.adb (Get_First_Interp): Fix wrong loop exit condition.
X-Git-Tag: releases/gcc-4.5.0~4454
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4eb317ccce4caa81eba08a2aedad4849c7ea489c;p=thirdparty%2Fgcc.git

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 e6e5f8daed30..d9f0784f3890 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 fad78d49d9b4..8beb56faea4b 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);