Commit d9147bb6 by Arnaud Charlet

[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
parent 16b340c2
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> 2015-10-16 Hristian Kirtchev <kirtchev@adacore.com>
* aspects.adb Add an entry for Constant_After_Elaboration in * aspects.adb Add an entry for Constant_After_Elaboration in
......
...@@ -1744,7 +1744,6 @@ package body Ada.Strings.Superbounded is ...@@ -1744,7 +1744,6 @@ package body Ada.Strings.Superbounded is
end loop; end loop;
end if; end if;
Source.Data := (others => ASCII.NUL);
Source.Current_Length := Last - First + 1; Source.Current_Length := Last - First + 1;
Source.Data (1 .. Source.Current_Length) := Temp (First .. Last); Source.Data (1 .. Source.Current_Length) := Temp (First .. Last);
end Super_Trim; end Super_Trim;
...@@ -1791,13 +1790,6 @@ package body Ada.Strings.Superbounded is ...@@ -1791,13 +1790,6 @@ package body Ada.Strings.Superbounded is
Source.Current_Length := Last - First + 1; Source.Current_Length := Last - First + 1;
Source.Data (1 .. Source.Current_Length) := Source.Data (1 .. Source.Current_Length) :=
Source.Data (First .. Last); Source.Data (First .. Last);
for J in Source.Current_Length + 1 ..
Source.Max_Length
loop
Source.Data (J) := ASCII.NUL;
end loop;
return; return;
end if; end if;
end if; end if;
......
...@@ -2956,7 +2956,7 @@ package body Exp_Ch5 is ...@@ -2956,7 +2956,7 @@ package body Exp_Ch5 is
Prepend (Elmt_Ref, Stats); 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)); Set_Assignment_OK (Name (Elmt_Ref));
......
...@@ -17899,7 +17899,7 @@ package body Sem_Ch3 is ...@@ -17899,7 +17899,7 @@ package body Sem_Ch3 is
else else
Original_Type := Scope (Original_Comp); Original_Type := Scope (Original_Comp);
Type_Scope := Scope (Base_Type (Scope (C))); Type_Scope := Scope (Base_Type (Scope (C)));
end if; end if;
-- This test only concerns tagged types -- This test only concerns tagged types
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment