OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[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.
This commit is contained in:
Piotr Trojanek 2021-06-17 18:46:21 +02:00 committed by Pierre-Marie de Rodat
parent d35d546a7f
commit 7802ee7b01
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gcc/ada/exp_put_image.adb
View File

@ -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:
--