From 575e47bf055d29c64c9958f926b340103d03b490 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 28 May 2018 08:56:15 +0000 Subject: [PATCH] [Ada] Remove Valop from the Repinfo unit This removes the recently added Valop as redundant. No functional changes. 2018-05-28 Eric Botcazou gcc/ada/ * repinfo.adb (List_GCC_Expression): Remove Valop and replace calls to it with calls to Unop. From-SVN: r260843 --- gcc/ada/ChangeLog | 5 +++++ 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 + * repinfo.adb (List_GCC_Expression): Remove Valop and replace calls to + it with calls to Unop. + +2018-05-28 Eric Botcazou + * 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; -- 2.7.4