diff options
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/ada/ChangeLog | 9 | ||||
-rw-r--r-- | gcc/ada/a-strsup.adb | 8 | ||||
-rw-r--r-- | gcc/ada/exp_ch5.adb | 2 | ||||
-rw-r--r-- | gcc/ada/sem_ch3.adb | 2 |
4 files changed, 11 insertions, 10 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index c3d425d..4089992 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 2ce40ac..50df7dd 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 8a90b6c..4c66ce4 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 542ea3f..1dce0fa 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 |