diff mbox series

[COMMITTED] ada: Remove extra whitespace from FOR loops

Message ID 20230529082942.2410814-1-poulhies@adacore.com
State New
Headers show
Series [COMMITTED] ada: Remove extra whitespace from FOR loops | expand

Commit Message

Marc Poulhiès May 29, 2023, 8:29 a.m. UTC 
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(-)
diff mbox series

Patch

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 5dab2d45626..9eb6b1c60aa 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 be234881f37..3d94a1ad255 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 edd495b8359..73046267256 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);