From 25bb6a4e0711f7db2df5089d4054c3cf6c15025d Mon Sep 17 00:00:00 2001 From: Bob Duff Date: Fri, 22 Aug 2008 14:41:42 +0200 Subject: exp_ch7.adb: Minor comment fix 2008-08-22 Bob Duff * exp_ch7.adb: Minor comment fix From-SVN: r139448 --- gcc/ada/exp_ch7.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada') diff --git a/gcc/ada/exp_ch7.adb b/gcc/ada/exp_ch7.adb index 0140c76..fb0f7dc 100644 --- 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 -- -- cgit v1.1