From d9147bb633645dc2e3844eee2d61217de5544a98 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 20 Oct 2015 11:38:17 +0200 Subject: [PATCH] [multiple changes] 2015-10-20 Thomas Quinot * exp_ch5.adb, sem_ch3.adb: Minor reformatting. 2015-10-20 Vincent Celier * a-strsup.adb (Super_Trim): Remove statements that put NUL characters in unused portion of the Data string. From-SVN: r229025 --- gcc/ada/ChangeLog | 9 +++++++++ gcc/ada/a-strsup.adb | 8 -------- gcc/ada/exp_ch5.adb | 2 +- gcc/ada/sem_ch3.adb | 2 +- 4 files changed, 11 insertions(+), 10 deletions(-) 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 + + * exp_ch5.adb, sem_ch3.adb: Minor reformatting. + +2015-10-20 Vincent Celier + + * a-strsup.adb (Super_Trim): Remove statements that put NUL + characters in unused portion of the Data string. + 2015-10-16 Hristian Kirtchev * 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 -- 2.30.2