diff options
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 8530816c9b3..dfcf37c7d51 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -2612,12 +2612,14 @@ package body Exp_Ch6 is return; - -- Expansion of a dispatching call results in an indirect call, which - -- in turn causes current values to be killed (see Resolve_Call), so - -- on VM targets we do the call here to ensure consistent warnings - -- between VM and non-VM targets. - else + Apply_Tag_Checks (N); + + -- Expansion of a dispatching call results in an indirect call, + -- which in turn causes current values to be killed (see + -- Resolve_Call), so on VM targets we do the call here to ensure + -- consistent warnings between VM and non-VM targets. + Kill_Current_Values; end if; end if; |