From: Piotr Trojanek <trojanek@adacore.com>
Date: Fri, 3 Sep 2021 07:46:33 +0000 (+0200)
Subject: [Ada] Refactor duplicate code for pretty-printing GNAT AST
X-Git-Tag: basepoints/gcc-13~4184
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=be33050b866649569113ebd3d1805749dc3672fd;p=thirdparty%2Fgcc.git

[Ada] Refactor duplicate code for pretty-printing GNAT AST

gcc/ada/

	* sprint.adb (Sprint_Node_Actual): Refactor code for generic
	package and subprogram declarations.
---

diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb
index 8dc96a4f206b..9b78adaade4a 100644
--- a/gcc/ada/sprint.adb
+++ b/gcc/ada/sprint.adb
@@ -2075,7 +2075,7 @@ package body Sprint is
             Sprint_Node (Name (Node));
             Write_Char (';');
 
-         when N_Generic_Package_Declaration =>
+         when N_Generic_Declaration =>
             Extra_Blank_Line;
             Write_Indent_Str_Sloc ("generic ");
             Sprint_Indented_List (Generic_Formal_Declarations (Node));
@@ -2097,14 +2097,6 @@ package body Sprint is
             Sprint_Node (Name (Node));
             Write_Char (';');
 
-         when N_Generic_Subprogram_Declaration =>
-            Extra_Blank_Line;
-            Write_Indent_Str_Sloc ("generic ");
-            Sprint_Indented_List (Generic_Formal_Declarations (Node));
-            Write_Indent;
-            Sprint_Node (Specification (Node));
-            Write_Char (';');
-
          when N_Goto_Statement =>
             Write_Indent_Str_Sloc ("goto ");
             Sprint_Node (Name (Node));