From: Ed Schonberg <schonberg@adacore.com>
Date: Tue, 21 Aug 2018 14:47:12 +0000 (+0000)
Subject: [Ada] Sprint: add guard on printing aspects
X-Git-Tag: upstream/12.2.0~29669
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=1bd9b6a5766c03bc6741d5599076476bd1c9d2b0;p=platform%2Fupstream%2Fgcc.git

[Ada] Sprint: add guard on printing aspects

2018-08-21  Ed Schonberg  <schonberg@adacore.com>

gcc/ada/

	* sprint.adb: Add guard on printing aspects.

From-SVN: r263723
---

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  <schonberg@adacore.com>
+
+	* sprint.adb: Add guard on printing aspects.
+
 2018-08-21  Javier Miranda  <miranda@adacore.com>
 
 	* 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;