diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-05-02 10:14:23 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-05-02 10:14:23 +0000 |
| commit | 6d22398d8b505a0c8f9c22e50b1874547b21cd17 (patch) | |
| tree | 38cd4b76c35c881b1a78a6347deba42d26f0bd0c /gcc/ada/comperr.adb | |
| parent | 83986ef649ba0cef495bd7f4fa96ba50b44aed18 (diff) | |
| download | gcc-6d22398d8b505a0c8f9c22e50b1874547b21cd17.tar.gz | |
2016-05-02 Jerome Lambourg <lambourg@adacore.com>
* s-unstyp.ads: Code cleanups.
2016-05-02 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch13.adb (Size_Too_Small_Error): Fix the error message format.
2016-05-02 Ed Schonberg <schonberg@adacore.com>
* exp_prag.adb (Expand_attributes_In_Consequence,
Expand_Attributes): If the prefix of'Old is an unconstrained type,
for example an unconstrained formal of the enclosing subprogram,
create an object declaration with an expression to obtain the
actual subtype of the temporary.
2016-05-02 Arnaud Charlet <charlet@adacore.com>
* comperr.adb (Delete_SCIL_Files): Add missing handling of
N_Subprogram_Declaration.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@235738 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/comperr.adb')
| -rw-r--r-- | gcc/ada/comperr.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/comperr.adb b/gcc/ada/comperr.adb index f32db3267b8..7838cc49948 100644 --- a/gcc/ada/comperr.adb +++ b/gcc/ada/comperr.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2015, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, 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- -- @@ -467,7 +467,8 @@ package body Comperr is Main := Unit (Cunit (Main_Unit)); case Nkind (Main) is - when N_Subprogram_Body | N_Package_Declaration => + when N_Subprogram_Declaration | N_Subprogram_Body | + N_Package_Declaration => Unit_Name := Defining_Unit_Name (Specification (Main)); when N_Package_Body => |