Minor reformatting.

From-SVN: r217843

Minor reformatting.
From-SVN: r217843
73e5aa55 · Arnaud Charlet · eefd2467 · 73e5aa55
Commit 73e5aa55 authored Nov 20, 2014 by Arnaud Charlet
Hide whitespace changes
Inline Side-by-side

Showing with 1 additions and 2 deletions

gcc/ada/sem_ch6.adb
+1 -2

No files found.
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -924,8 +924,7 @@ package body Sem_Ch6 is
              and then Is_Progenitor (Designated_Type (R_Type),
                                      Designated_Type (Etype (Expr)))
            then
-               Rewrite (Expr,
+               Rewrite (Expr, Convert_To (R_Type, Relocate_Node (Expr)));
-                 Convert_To (R_Type, Relocate_Node (Expr)));
               Analyze (Expr);
            end if;