diff options
Diffstat (limited to 'gcc/ada/checks.adb')
| -rw-r--r-- | gcc/ada/checks.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/checks.adb b/gcc/ada/checks.adb index 46a28543cf8..68452392994 100644 --- a/gcc/ada/checks.adb +++ b/gcc/ada/checks.adb @@ -2419,14 +2419,14 @@ package body Checks is -- one of the stored discriminants, this will provide the -- required consistency check. - Append_Elmt ( - Make_Selected_Component (Loc, - Prefix => + Append_Elmt + (Make_Selected_Component (Loc, + Prefix => Duplicate_Subexpr_No_Checks (Expr, Name_Req => True), Selector_Name => Make_Identifier (Loc, Chars (Discr))), - New_Constraints); + New_Constraints); else -- Discriminant of more remote ancestor ??? |