diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-01-08 13:02:12 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-05-04 05:17:35 -0400 |
| commit | 2ae4fcfa8708491598a32b5cc0a725d7b2ea3bf8 (patch) | |
| tree | 417f740542b18927bcb02d27f3362dce28016d45 /gcc/ada/pprint.adb | |
| parent | 8ee1a28114021b11a6672accd7d0ed428dac135c (diff) | |
| download | gcc-2ae4fcfa8708491598a32b5cc0a725d7b2ea3bf8.zip gcc-2ae4fcfa8708491598a32b5cc0a725d7b2ea3bf8.tar.gz gcc-2ae4fcfa8708491598a32b5cc0a725d7b2ea3bf8.tar.bz2 | |
[Ada] Use function and not procedure UI_Image in pretty-printing
gcc/ada/
* pprint.adb (Expr_Name): Simplify with functional variant of
UI_Image.
Diffstat (limited to 'gcc/ada/pprint.adb')
| -rw-r--r-- | gcc/ada/pprint.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/pprint.adb b/gcc/ada/pprint.adb index 6b8fd8d..4e6f1de 100644 --- 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)); |