gcc/ada/
* pprint.adb (Expression_Image): Special case for
expression-with-actions.
end case;
end Expr_Name;
- -- Start of processing for Expression_Name
+ -- Start of processing for Expression_Image
begin
if not From_Source then
end;
end if;
+ -- Reach to the underlying expression for an expression-with-actions
+
+ if Nkind (Expr) = N_Expression_With_Actions then
+ return Expression_Image (Expression (Expr), Default);
+ end if;
+
-- Compute left (start) and right (end) slocs for the expression
-- Consider using Sinput.Sloc_Range instead, except that it does not
-- work properly currently???