diff options
| author | Yannick Moy <moy@adacore.com> | 2018-06-11 09:19:07 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-06-11 09:19:07 +0000 |
| commit | 90265b93430c82d817deae512208a76f5241ea1c (patch) | |
| tree | 33f359ba485dfff0dde9f51313237e535578b90a /gcc | |
| parent | 20643f5032f7f3c11a233861e05f8efb4059e9dd (diff) | |
| download | gcc-90265b93430c82d817deae512208a76f5241ea1c.zip gcc-90265b93430c82d817deae512208a76f5241ea1c.tar.gz gcc-90265b93430c82d817deae512208a76f5241ea1c.tar.bz2 | |
[Ada] Mark parameters as coming from source for GNATprove
When building a separate subprogram declaration for possible inlining of
local subprograms in GNATprove mode, correctly mark subprogram parameters
as coming from source.
This has no impact on compilation.
2018-06-11 Yannick Moy <moy@adacore.com>
gcc/ada/
* sem_ch6.adb (Build_Subprogram_Declaration): Mark parameters as coming
from source.
From-SVN: r261423
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/sem_ch6.adb | 16 |
2 files changed, 21 insertions, 0 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 2393bfaa..84dd18b 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,8 @@ +2018-06-11 Yannick Moy <moy@adacore.com> + + * sem_ch6.adb (Build_Subprogram_Declaration): Mark parameters as coming + from source. + 2018-06-11 Ed Schonberg <schonberg@adacore.com> * sem_ch13.adb (Build_Predicate_Functions): For a derived type, ensure diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb index 3413e21..304e35c 100644 --- a/gcc/ada/sem_ch6.adb +++ b/gcc/ada/sem_ch6.adb @@ -2712,6 +2712,22 @@ package body Sem_Ch6 is Specification => Copy_Subprogram_Spec (Body_Spec)); Set_Comes_From_Source (Subp_Decl, True); + -- Also mark parameters as coming from source + + if Present (Parameter_Specifications (Specification (Subp_Decl))) then + declare + Form : Entity_Id; + begin + Form := + First (Parameter_Specifications (Specification (Subp_Decl))); + + while Present (Form) loop + Set_Comes_From_Source (Defining_Identifier (Form), True); + Next (Form); + end loop; + end; + end if; + -- Relocate the aspects and relevant pragmas from the subprogram body -- to the generated spec because it acts as the initial declaration. |