OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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
This commit is contained in:
Arnaud Charlet 2015-10-20 11:38:17 +02:00
parent 16b340c224
commit d9147bb633
4 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/ada/ChangeLog
View 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

8
gcc/ada/a-strsup.adb
View 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;

2
gcc/ada/exp_ch5.adb
View 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));

2
gcc/ada/sem_ch3.adb
View 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