From: Piotr Trojanek <trojanek@adacore.com>
Date: Thu, 16 Mar 2023 12:33:29 +0000 (+0100)
Subject: ada: Remove extra whitespace from FOR loops
X-Git-Tag: basepoints/gcc-15~8795
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=95349238568178b7152a89700766d033e4b23ca0;p=thirdparty%2Fgcc.git

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 5dab2d456269..9eb6b1c60aac 100644
--- 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 be234881f37e..3d94a1ad2558 100644
--- 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 edd495b83592..73046267256e 100644
--- 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);