diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2017-01-23 11:21:37 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-01-23 12:21:37 +0100 |
| commit | f991bd8ec959efdc59d8eeafb72a9a8589774a8c (patch) | |
| tree | 35d5b222fa688d7fd75383231d62a5ad3002f578 /gcc/ada/sem_util.adb | |
| parent | d553a695b917d3240fcf8ca5ea9e09ad8dd8a5f3 (diff) | |
| download | gcc-f991bd8ec959efdc59d8eeafb72a9a8589774a8c.zip gcc-f991bd8ec959efdc59d8eeafb72a9a8589774a8c.tar.gz gcc-f991bd8ec959efdc59d8eeafb72a9a8589774a8c.tar.bz2 | |
sem_ch3.adb, [...]: Minor reformatting.
2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb, exp_spark.adb, exp_attr.adb, sem_ch9.adb, sem_prag.adb,
sem_util.adb, sem_warn.adb, exp_ch3.adb: Minor reformatting.
2017-01-23 Hristian Kirtchev <kirtchev@adacore.com>
* freeze.adb (Freeze_Subprogram): Ensure that all anonymous
access-to-subprogram types inherit the convention of the
associated subprogram. (Set_Profile_Convention): New routine.
* sem_ch6.adb (Check_Conformance): Do not compare the conventions
of the two entities directly, use Conventions_Match to account
for anonymous access-to-subprogram and subprogram types.
(Conventions_Match): New routine.
From-SVN: r244778
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index f8ac8ce..694e112 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -5006,6 +5006,7 @@ package body Sem_Util is procedure Copy_SPARK_Mode_Aspect (From : Node_Id; To : Node_Id) is pragma Assert (not Has_Aspects (To)); Asp : Node_Id; + begin if Has_Aspects (From) then Asp := Find_Aspect (Defining_Entity (From), Aspect_SPARK_Mode); |