[Ada] Fix crash in GNATprove on inlined subprogram in default expression
gcc/ada/ * sem_ch3.adb (Process_Discriminants): Correctly set right context for analyzing default value of discriminant.
This commit is contained in:
parent
fa65696761
commit
4f94320340
@ -20093,7 +20093,7 @@ package body Sem_Ch3 is
|
||||
-- Per-Object Expressions" in spec of package Sem).
|
||||
|
||||
if Present (Expression (Discr)) then
|
||||
Preanalyze_Spec_Expression (Expression (Discr), Discr_Type);
|
||||
Preanalyze_Default_Expression (Expression (Discr), Discr_Type);
|
||||
|
||||
-- Legaity checks
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user