diff options
author | Piotr Trojanek <trojanek@adacore.com> | 2021-06-17 18:46:21 +0200 |
---|---|---|
committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-09 12:35:32 +0000 |
commit | 7802ee7b0181dcd4e4c40047d67a1b2a6cf06a57 (patch) | |
tree | 21a4579dbf28d006d4e6e81422876dc3aed057c8 /gcc/ada | |
parent | d35d546a7fcaf7e48e8d15abb8428d1e0b618948 (diff) | |
download | gcc-7802ee7b0181dcd4e4c40047d67a1b2a6cf06a57.zip gcc-7802ee7b0181dcd4e4c40047d67a1b2a6cf06a57.tar.gz gcc-7802ee7b0181dcd4e4c40047d67a1b2a6cf06a57.tar.bz2 |
[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.
Diffstat (limited to 'gcc/ada')
-rw-r--r-- | gcc/ada/exp_put_image.adb | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/gcc/ada/exp_put_image.adb b/gcc/ada/exp_put_image.adb index 87f4b74..90a542d 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: -- |