return True;
end Enable_Put_Image;
- ---------------------------------
+ -------------------------
-- Make_Put_Image_Name --
- ---------------------------------
+ -------------------------
function Make_Put_Image_Name
(Loc : Source_Ptr; Typ : Entity_Id) return Entity_Id
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
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:
--