diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2018-05-28 08:56:15 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-05-28 08:56:15 +0000 |
| commit | 575e47bf055d29c64c9958f926b340103d03b490 (patch) | |
| tree | 6b79b8abaead37691eaed9033076b99974f237a8 | |
| parent | 72da915b16e6fcd36ae59b99faa4070f97ae59d9 (diff) | |
| download | gcc-575e47bf055d29c64c9958f926b340103d03b490.zip gcc-575e47bf055d29c64c9958f926b340103d03b490.tar.gz gcc-575e47bf055d29c64c9958f926b340103d03b490.tar.bz2 | |
[Ada] Remove Valop from the Repinfo unit
This removes the recently added Valop as redundant. No functional changes.
2018-05-28 Eric Botcazou <ebotcazou@adacore.com>
gcc/ada/
* repinfo.adb (List_GCC_Expression): Remove Valop and replace calls to
it with calls to Unop.
From-SVN: r260843
| -rw-r--r-- | gcc/ada/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/ada/repinfo.adb | 17 |
2 files changed, 7 insertions, 15 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 3a9e1dd..60ff204 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,5 +1,10 @@ 2018-05-28 Eric Botcazou <ebotcazou@adacore.com> + * repinfo.adb (List_GCC_Expression): Remove Valop and replace calls to + it with calls to Unop. + +2018-05-28 Eric Botcazou <ebotcazou@adacore.com> + * repinfo.ads (TCode): Adjust range. (Truth_Andif_Expr): Remove. (Truth_Orif_Expr): Likewise. diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb index 7d283f6..d19ab0f 100644 --- a/gcc/ada/repinfo.adb +++ b/gcc/ada/repinfo.adb @@ -530,9 +530,6 @@ package body Repinfo is procedure Binop (S : String); -- Output text for binary operator with S being operator name - procedure Valop (S : String); - -- Output text for special value with S being value symbol - ---------- -- Unop -- ---------- @@ -556,16 +553,6 @@ package body Repinfo is Write_Char (')'); end Binop; - ----------- - -- Valop -- - ----------- - - procedure Valop (S : String) is - begin - Write_Str (S); - UI_Write (Node.Op1); - end Valop; - -- Start of processing for Print_Expr begin @@ -655,10 +642,10 @@ package body Repinfo is Binop (" & "); when Discrim_Val => - Valop ("#"); + Unop ("#"); when Dynamic_Val => - Valop ("var"); + Unop ("var"); end case; end; end if; |