From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Tue, 20 Oct 2015 09:38:17 +0000 (+0200)
Subject: [multiple changes]
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=d9147bb633645dc2e3844eee2d61217de5544a98;p=gcc.git

[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
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index c3d425d26cf..4089992a48d 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,12 @@
+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
diff --git a/gcc/ada/a-strsup.adb b/gcc/ada/a-strsup.adb
index 2ce40ac8cdb..50df7dd48b4 100644
--- a/gcc/ada/a-strsup.adb
+++ b/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;
diff --git a/gcc/ada/exp_ch5.adb b/gcc/ada/exp_ch5.adb
index 8a90b6c1fb7..4c66ce4e0e2 100644
--- a/gcc/ada/exp_ch5.adb
+++ b/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));
 
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 542ea3f9c1d..1dce0faf82a 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/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