From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Wed, 22 Jul 2009 10:26:19 +0000 (+0000)
Subject: 2009-07-22  Thomas Quinot  <quinot@adacore.com>
X-Git-Tag: upstream/4.9.2~34714
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=721cc2027b17be0c98236340d7d957899bb3c2ba;p=platform%2Fupstream%2Flinaro-gcc.git

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
--- 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);