From: Piotr Trojanek <troja...@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 --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); -- 2.40.0