From f991bd8ec959efdc59d8eeafb72a9a8589774a8c Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Mon, 23 Jan 2017 11:21:37 +0000 Subject: sem_ch3.adb, [...]: Minor reformatting. 2017-01-23 Hristian Kirtchev * 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 * 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 --- gcc/ada/sem_util.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/ada/sem_util.adb') 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); -- cgit v1.1