diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-03-02 11:24:33 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-03-02 11:24:33 +0000 |
| commit | 22cc45163e3949eaea8e03819bcb7f23e1a5fe43 (patch) | |
| tree | 3229683b6e527c4242f24c3647c94ed861dfce61 /gcc/ada/sprint.adb | |
| parent | d6edfc835ba3069a1e34fc95e98ffe2ed10cdfbc (diff) | |
| download | gcc-22cc45163e3949eaea8e03819bcb7f23e1a5fe43.tar.gz | |
2015-03-02 Robert Dewar <dewar@adacore.com>
* back_end.adb (Call_Back_End): Remove previous patch,
the back end now gets to see the result of -gnatd.1
(Unnest_Subprogram_Mode) processing.
* elists.ads, elists.adb (List_Length): New function.
* exp_unst.ads, exp_unst.adb: Major changes, first complete version.
* sem_util.adb (Check_Nested_Access): Handle formals in
Unnest_Subprogram_Mode.
(Adjust_Named_Associations): Minor reformatting.
* sprint.adb (Sprint_Node_Actual): Fix failure to print aliased
for parameters.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@221115 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 8f47053a299..670e5341664 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -2703,12 +2703,15 @@ package body Sprint is -- it is emitted when the access definition is displayed. if Null_Exclusion_Present (Node) - and then Nkind (Parameter_Type (Node)) - /= N_Access_Definition + and then Nkind (Parameter_Type (Node)) /= N_Access_Definition then Write_Str ("not null "); end if; + if Aliased_Present (Node) then + Write_Str ("aliased "); + end if; + Sprint_Node (Parameter_Type (Node)); if Present (Expression (Node)) then |