[multiple changes]

2015-10-20  Thomas Quinot  <quinot@adacore.com>

	* exp_ch5.adb, sem_ch3.adb: Minor reformatting.

2015-10-20  Vincent Celier  <celier@adacore.com>

	* a-strsup.adb (Super_Trim): Remove statements that put NUL
	characters in unused portion of the Data string.

From-SVN: r229025

gcc/ada/ChangeLog

+2015-10-20  Thomas Quinot  <quinot@adacore.com>
+
+	* exp_ch5.adb, sem_ch3.adb: Minor reformatting.
+
+2015-10-20  Vincent Celier  <celier@adacore.com>
+
+	* a-strsup.adb (Super_Trim): Remove statements that put NUL
+	characters in unused portion of the Data string.
+
 2015-10-16  Hristian Kirtchev  <kirtchev@adacore.com>
 
 	* aspects.adb Add an entry for Constant_After_Elaboration in

gcc/ada/a-strsup.adb

@@ -1744,7 +1744,6 @@ package body Ada.Strings.Superbounded is
          end loop;
       end if;
 
-      Source.Data := (others => ASCII.NUL);
       Source.Current_Length := Last - First + 1;
       Source.Data (1 .. Source.Current_Length) := Temp (First .. Last);
    end Super_Trim;
@@ -1791,13 +1790,6 @@ package body Ada.Strings.Superbounded is
                      Source.Current_Length := Last - First + 1;
                      Source.Data (1 .. Source.Current_Length) :=
                        Source.Data (First .. Last);
-
-                     for J in Source.Current_Length + 1 ..
-                                Source.Max_Length
-                     loop
-                        Source.Data (J) := ASCII.NUL;
-                     end loop;
-
                      return;
                   end if;
                end if;

gcc/ada/exp_ch5.adb

@@ -2956,7 +2956,7 @@ package body Exp_Ch5 is
 
          Prepend (Elmt_Ref, Stats);
 
-         --  The element is assignable in the expanded code.
+         --  The element is assignable in the expanded code
 
          Set_Assignment_OK (Name (Elmt_Ref));
 

gcc/ada/sem_ch3.adb

@@ -17899,7 +17899,7 @@ package body Sem_Ch3 is
 
       else
          Original_Type := Scope (Original_Comp);
-         Type_Scope     := Scope (Base_Type (Scope (C)));
+         Type_Scope    := Scope (Base_Type (Scope (C)));
       end if;
 
       --  This test only concerns tagged types