From e5be1e443cef81f458545f5dae1a91860ca1ae71 Mon Sep 17 00:00:00 2001 From: Piotr Trojanek Date: Wed, 19 May 2021 15:18:54 +0200 Subject: [PATCH] [Ada] Fix location of errors about volatile compatibility gcc/ada/ * sem_ch12.adb (Check_Shared_Variable_Control_Aspects): Errors emitted via Check_Volatility_Compatibility are now emitted at Actual, just like other errors emitted by Check_Shared_Variable_Control_Aspects. --- gcc/ada/sem_ch12.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 339bb425ae57..1c8f64e215ee 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -12825,7 +12825,7 @@ package body Sem_Ch12 is Check_Volatility_Compatibility (Act_T, A_Gen_T, "actual type", "its corresponding formal type", - Srcpos_Bearer => Act_T); + Srcpos_Bearer => Actual); end if; end Check_Shared_Variable_Control_Aspects; -- 2.47.2