[multiple changes]
authorArnaud Charlet <charlet@gcc.gnu.org>
Tue, 20 Oct 2015 09:38:17 +0000 (11:38 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Tue, 20 Oct 2015 09:38:17 +0000 (11:38 +0200)
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
gcc/ada/a-strsup.adb
gcc/ada/exp_ch5.adb
gcc/ada/sem_ch3.adb

index c3d425d26cfd4bacaeb4b72f0ea05530d88daa55..4089992a48d2babd58b7b2496d1eed28c8f34dce 100644 (file)
@@ -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
index 2ce40ac8cdb01a8a48fea3036058a9eec3a3280b..50df7dd48b4831cf9f8234919b1e6b7e84ad8190 100644 (file)
@@ -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;
index 8a90b6c1fb7d6dae1a670732f69f02b8123cdd20..4c66ce4e0e2378f1eeccdd0f1acfdf2d97a35cf6 100644 (file)
@@ -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));
 
index 542ea3f9c1d0588ab23f3218abba589ad13ded8f..1dce0faf82a96c945c4fa50e1cced53840bfd2e4 100644 (file)
@@ -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