+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
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;
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;
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));
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