[Ada] Use function and not procedure UI_Image in pretty-printing

gcc/ada/

	* pprint.adb (Expr_Name): Simplify with functional variant of
	UI_Image.

diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb
index 6b8fd8d1e769e4d47533744c860626e7caf1e2c7..4e6f1deba255665066fb4ff6e0e1df96b058ec8f 100644 (file)
--- a/gcc/ada/pprint.adb
+++ b/gcc/ada/pprint.adb
@@ -226,8 +226,7 @@ package body Pprint is
                end;
 
             when N_Integer_Literal =>
-               UI_Image (Intval (Expr));
-               return UI_Image_Buffer (1 .. UI_Image_Length);
+               return UI_Image (Intval (Expr));
 
             when N_Real_Literal =>
                return Real_Image (Realval (Expr));