diff options
| author | Robert Dewar <dewar@adacore.com> | 2015-03-02 11:24:33 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-03-02 12:24:33 +0100 |
| commit | 89f0276a49a2ae68f3dd086b237037cdce6ed6b4 (patch) | |
| tree | 3229683b6e527c4242f24c3647c94ed861dfce61 /gcc/ada/sprint.adb | |
| parent | 3830827c54e72b96400c9f9803b5518e8fb9f23d (diff) | |
| download | gcc-89f0276a49a2ae68f3dd086b237037cdce6ed6b4.zip gcc-89f0276a49a2ae68f3dd086b237037cdce6ed6b4.tar.gz gcc-89f0276a49a2ae68f3dd086b237037cdce6ed6b4.tar.bz2 | |
back_end.adb (Call_Back_End): Remove previous patch...
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.
From-SVN: r221115
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 8f47053..670e534 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 |