[gcc r12-2219] [Ada] Fix style in expansion of attribute Put_Image

[gcc r12-2219] [Ada] Fix style in expansion of attribute Put_Image

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:7802ee7b0181dcd4e4c40047d67a1b2a6cf06a57

commit r12-2219-g7802ee7b0181dcd4e4c40047d67a1b2a6cf06a57
Author: Piotr Trojanek <trojanek@adacore.com>
Date:   Thu Jun 17 18:46:21 2021 +0200

    [Ada] Fix style in expansion of attribute Put_Image
    
    gcc/ada/
    
            * exp_put_image.adb (Make_Put_Image_Name): Fix style.
            (Image_Should_Call_Put_Image): Likewise.
            (Build_Image_Call): Likewise.

Diff:
---
 gcc/ada/exp_put_image.adb | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/exp_put_image.adb b/gcc/ada/exp_put_image.adb
index 87f4b74e35a..90a542d5c40 100644
--- a/gcc/ada/exp_put_image.adb
+++ b/gcc/ada/exp_put_image.adb
@@ -1005,9 +1005,9 @@ package body Exp_Put_Image is
       return True;
    end Enable_Put_Image;
 
-   ---------------------------------
+   -------------------------
    -- Make_Put_Image_Name --
-   ---------------------------------
+   -------------------------
 
    function Make_Put_Image_Name
      (Loc : Source_Ptr; Typ : Entity_Id) return Entity_Id
@@ -1028,6 +1028,10 @@ package body Exp_Put_Image is
       return Make_Defining_Identifier (Loc, Sname);
    end Make_Put_Image_Name;
 
+   ---------------------------------
+   -- Image_Should_Call_Put_Image --
+   ---------------------------------
+
    function Image_Should_Call_Put_Image (N : Node_Id) return Boolean is
    begin
       if Ada_Version < Ada_2022 then
@@ -1049,6 +1053,10 @@ package body Exp_Put_Image is
       end;
    end Image_Should_Call_Put_Image;
 
+   ----------------------
+   -- Build_Image_Call --
+   ----------------------
+
    function Build_Image_Call (N : Node_Id) return Node_Id is
       --  For T'Image (X) Generate an Expression_With_Actions node:
       --