exp_ch7.adb: Minor comment fix

2008-08-22  Bob Duff  <duff@adacore.com>

	* exp_ch7.adb: Minor comment fix

From-SVN: r139448

diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb
index 0140c7677f7550011593ac9a49fbfca0c6ae7b7c..fb0f7dcb021de8e45832f20d3a7640f35841b499 100644 (file)
--- a/gcc/ada/exp_ch7.adb
+++ b/gcc/ada/exp_ch7.adb
@@ -854,7 +854,7 @@ package body Exp_Ch7 is
 
       function Has_Some_Controlled_Component (Rec : Entity_Id) return Boolean;
       --  If type is not frozen yet, check explicitly among its components,
-      --  because flag is not necessarily set.
+      --  because the Has_Controlled_Component flag is not necessarily set.
 
       -----------------------------------
       -- Has_Some_Controlled_Component --