diff options
| author | Thomas Quinot <quinot@adacore.com> | 2008-08-04 17:33:55 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 17:33:55 +0200 |
| commit | 1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76 (patch) | |
| tree | 2c309261fbe3668ffab691cfdd8e7e2f224a7f4a /gcc/ada/sprint.adb | |
| parent | 771ce78ea0c1c51c2fe1579dea950d40a1b8028d (diff) | |
| download | gcc-1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76.zip gcc-1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76.tar.gz gcc-1baa4d2d791f5a0faedb4d0eb17253cf7b32ed76.tar.bz2 | |
sem_type.adb, [...]: Minor reformatting
2008-08-04 Thomas Quinot <quinot@adacore.com>
* sem_type.adb, sem_ch4.adb, sprint.adb, exp_ch3.adb: Minor reformatting
From-SVN: r138635
Diffstat (limited to 'gcc/ada/sprint.adb')
| -rw-r--r-- | gcc/ada/sprint.adb | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 4306ce4..ad20565 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -2334,10 +2334,9 @@ package body Sprint is Write_Str_With_Col_Check ("out "); end if; - -- Ada 2005 (AI-231) parameter specification may carry - -- null exclusion. Do not print it now if this is an - -- access parameter, it is emitted when the access - -- definition is displayed. + -- Ada 2005 (AI-231): Parameter specification may carry null + -- exclusion. Do not print it now if this is an access formal, + -- it is emitted when the access definition is displayed. if Null_Exclusion_Present (Node) and then Nkind (Parameter_Type (Node)) |