From: Piotr Trojanek <trojanek@adacore.com>
Date: Wed, 19 May 2021 13:18:54 +0000 (+0200)
Subject: [Ada] Fix location of errors about volatile compatibility
X-Git-Tag: basepoints/gcc-13~6193
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e5be1e443cef81f458545f5dae1a91860ca1ae71;p=thirdparty%2Fgcc.git

[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.
---

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;