[COMMITTED] ada: Remove extra whitespace from FOR loops
Commit Message
From: Piotr Trojanek <trojanek@adacore.com>
Whitespace cleanup.
gcc/ada/
* doc/gnat_ugn/gnat_and_program_execution.rst
(Some Useful Memory Pools): Remove extra whitespace from examples.
* sem_aggr.adb (Make_String_Into_Aggregate): Remove extra whitespace.
* gnat_ugn.texi: Regenerate.
Tested on x86_64-pc-linux-gnu, committed on master.
---
gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst | 4 ++--
gcc/ada/gnat_ugn.texi | 6 +++---
gcc/ada/sem_aggr.adb | 2 +-
3 files changed, 6 insertions(+), 6 deletions(-)
@@ -3530,12 +3530,12 @@ leak memory even though it does not perform explicit deallocation:
for A'Storage_Pool use X;
v : A;
begin
- for I in 1 .. 50 loop
+ for I in 1 .. 50 loop
v := new Integer;
end loop;
end Internal;
begin
- for I in 1 .. 100 loop
+ for I in 1 .. 100 loop
Internal;
end loop;
end Pooloc1;
@@ -22302,12 +22302,12 @@ procedure Pooloc1 is
for A'Storage_Pool use X;
v : A;
begin
- for I in 1 .. 50 loop
+ for I in 1 .. 50 loop
v := new Integer;
end loop;
end Internal;
begin
- for I in 1 .. 100 loop
+ for I in 1 .. 100 loop
Internal;
end loop;
end Pooloc1;
@@ -29479,8 +29479,8 @@ to permit their use in free software.
@printindex ge
-@anchor{cf}@w{ }
@anchor{gnat_ugn/gnat_utility_programs switches-related-to-project-files}@w{ }
+@anchor{cf}@w{ }
@c %**end of body
@bye
@@ -828,7 +828,7 @@ package body Sem_Aggr is
begin
P := Loc + 1;
- for J in 1 .. Strlen loop
+ for J in 1 .. Strlen loop
C := Get_String_Char (Str, J);
Set_Character_Literal_Name (C);