Minor reformatting.

From-SVN: r217843
This commit is contained in:
Arnaud Charlet 2014-11-20 12:34:34 +01:00
parent eefd2467a6
commit 73e5aa55f9
1 changed files with 1 additions and 2 deletions

View File

@ -924,8 +924,7 @@ package body Sem_Ch6 is
and then Is_Progenitor (Designated_Type (R_Type),
Designated_Type (Etype (Expr)))
then
Rewrite (Expr,
Convert_To (R_Type, Relocate_Node (Expr)));
Rewrite (Expr, Convert_To (R_Type, Relocate_Node (Expr)));
Analyze (Expr);
end if;