diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-05-19 15:18:54 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-07 16:23:16 +0000 |
commit | e5be1e443cef81f458545f5dae1a91860ca1ae71 (patch) | |
tree | 02971ec3b6e648c779a77c43de00407792f4b2a4 | |
parent | 768f69696a054a0709b114d3ad3d73265daf115d (diff) | |
download | gcc-e5be1e443cef81f458545f5dae1a91860ca1ae71.zip gcc-e5be1e443cef81f458545f5dae1a91860ca1ae71.tar.gz gcc-e5be1e443cef81f458545f5dae1a91860ca1ae71.tar.bz2 |
[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.
-rw-r--r-- | gcc/ada/sem_ch12.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index 339bb42..1c8f64e 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; |