From 31fde973e5cb886dca17e61b84a72a26a81487ad Mon Sep 17 00:00:00 2001 From: Gary Dismukes Date: Tue, 20 Aug 2019 09:50:14 +0000 Subject: [Ada] Minor reformattings 2019-08-20 Gary Dismukes gcc/ada/ * ali.adb, ali.ads, aspects.adb, checks.ads, checks.adb, doc/gnat_rm/implementation_defined_pragmas.rst, doc/gnat_ugn/building_executable_programs_with_gnat.rst, einfo.ads, exp_aggr.adb, exp_ch11.adb, exp_ch3.ads, exp_ch4.adb, exp_disp.adb, inline.adb, libgnat/a-locale.ads, libgnat/s-soflin.ads, par_sco.adb, repinfo.adb, sem_ch5.adb, sem_disp.adb, sem_elab.adb, sem_eval.adb, sem_spark.adb, sem_spark.ads, sinfo.ads: Minor reformattings, typo fixes and and rewordings. From-SVN: r274737 --- gcc/ada/aspects.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc/ada/aspects.adb') diff --git a/gcc/ada/aspects.adb b/gcc/ada/aspects.adb index d582abf..3b8b7c4 100644 --- a/gcc/ada/aspects.adb +++ b/gcc/ada/aspects.adb @@ -226,8 +226,8 @@ package body Aspects is end if; if Is_Private_Type (Owner) - and then Present (Full_View (Owner)) - and then not Operational_Aspect (A) + and then Present (Full_View (Owner)) + and then not Operational_Aspect (A) then Owner := Full_View (Owner); end if; -- cgit v1.1