Commit 73e5aa55 by Arnaud Charlet

Minor reformatting.

From-SVN: r217843
parent eefd2467
......@@ -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;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment