From 1bd9b6a5766c03bc6741d5599076476bd1c9d2b0 Mon Sep 17 00:00:00 2001 From: Ed Schonberg Date: Tue, 21 Aug 2018 14:47:12 +0000 Subject: [PATCH] [Ada] Sprint: add guard on printing aspects 2018-08-21 Ed Schonberg gcc/ada/ * sprint.adb: Add guard on printing aspects. From-SVN: r263723 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/sprint.adb | 6 ++++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index e9e674b..4afe997 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-08-21 Ed Schonberg + + * sprint.adb: Add guard on printing aspects. + 2018-08-21 Javier Miranda * exp_cg.adb (Generate_CG_Output): Handle calls removed by the diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index f19629c..7978823 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -3540,8 +3540,10 @@ package body Sprint is -- where the aspects are printed inside the package specification. if Has_Aspects (Node) - and then not Nkind_In (Node, N_Package_Declaration, - N_Generic_Package_Declaration) + and then not Nkind_In (Node, N_Package_Declaration, + N_Generic_Package_Declaration) + and then not Is_Empty_List (Aspect_Specifications (Node)) + and then not Is_Empty_List (Aspect_Specifications (Node)) then Sprint_Aspect_Specifications (Node, Semicolon => True); end if; -- 2.7.4