From: Eric Botcazou <ebotcazou@adacore.com>
Date: Mon, 28 May 2018 08:56:15 +0000 (+0000)
Subject: [Ada] Remove Valop from the Repinfo unit
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=575e47bf055d29c64c9958f926b340103d03b490;p=gcc.git

[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
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 3a9e1dd6c9f..60ff2049086 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index 7d283f687f5..d19ab0f7233 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;