diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-09-03 09:46:33 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-04 08:45:10 +0000 |
| commit | be33050b866649569113ebd3d1805749dc3672fd (patch) | |
| tree | f1b3b1834fd7c0819c503e5def43428b2f0b38b7 /gcc | |
| parent | b680788460a9aad4fd86848bab06bd2f335db429 (diff) | |
| download | gcc-be33050b866649569113ebd3d1805749dc3672fd.zip gcc-be33050b866649569113ebd3d1805749dc3672fd.tar.gz gcc-be33050b866649569113ebd3d1805749dc3672fd.tar.bz2 | |
[Ada] Refactor duplicate code for pretty-printing GNAT AST
gcc/ada/
* sprint.adb (Sprint_Node_Actual): Refactor code for generic
package and subprogram declarations.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sprint.adb | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 8dc96a4..9b78ada 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)); |