ada: Remove extra whitespace from FOR loops

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.

diff --git a/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst b/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst
index 5dab2d4562694a4ac95fc254350db23f1872343d..9eb6b1c60aac30facea9b99e2d82b70ae7781294 100644 (file)
--- a/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst
+++ b/gcc/ada/doc/gnat_ugn/gnat_and_program_execution.rst
@@ -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;

diff --git a/gcc/ada/gnat_ugn.texi b/gcc/ada/gnat_ugn.texi
index be234881f37e803da85fc59e59730b66371b1a17..3d94a1ad2558152607e10fb543168af2f5d5063b 100644 (file)
--- a/gcc/ada/gnat_ugn.texi
+++ b/gcc/ada/gnat_ugn.texi
@@ -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

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index edd495b83592101ba5fc81575bfb0b0236d9f9a4..73046267256eabd80e46a27cd676d628872809a7 100644 (file)
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -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);