From dedac3eb7331f441f24b192fa0d9d1e1162f57ba Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 5 Aug 2011 15:10:50 +0000 Subject: par_sco.adb, [...]: Minor reformatting. 2011-08-05 Robert Dewar * par_sco.adb, sem_ch3.adb, scos.ads, a-iteint.ads, sem_ch12.adb, a-cimutr.adb, a-cimutr.ads, sem_util.ads, sem_res.adb, a-fihema.adb, sem_ch4.adb, lib-xref-alfa.adb, exp_disp.adb, a-comutr.adb, a-comutr.ads, lib-xref.adb: Minor reformatting. 2011-08-05 Robert Dewar * sem_ch11.adb (Analyze_Raise_Statement): Kill assignment to formal warning if there is an exception handler present. From-SVN: r177451 --- gcc/ada/sem_ch4.adb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'gcc/ada/sem_ch4.adb') diff --git a/gcc/ada/sem_ch4.adb b/gcc/ada/sem_ch4.adb index 3d7b48f..21c7a89 100644 --- a/gcc/ada/sem_ch4.adb +++ b/gcc/ada/sem_ch4.adb @@ -6303,26 +6303,27 @@ package body Sem_Ch4 is Func_Name := Empty; Is_Var := False; - Ritem := First_Rep_Item (Etype (Prefix)); + Ritem := First_Rep_Item (Etype (Prefix)); while Present (Ritem) loop if Nkind (Ritem) = N_Aspect_Specification then -- Prefer Variable_Indexing, but will settle for Constant. if Get_Aspect_Id (Chars (Identifier (Ritem))) = - Aspect_Constant_Indexing + Aspect_Constant_Indexing then Func_Name := Expression (Ritem); elsif Get_Aspect_Id (Chars (Identifier (Ritem))) = - Aspect_Variable_Indexing + Aspect_Variable_Indexing then Func_Name := Expression (Ritem); Is_Var := True; exit; end if; end if; + Next_Rep_Item (Ritem); end loop; -- cgit v1.1