[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 3a9e1dd6c9fbd1f5825e4f9260779f6f03ebef88..60ff2049086675aa82a594f47cb938970e2e8896 100644 (file)
--- 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 7d283f687f5d578b7e1880f5f08a0eaec99ff512..d19ab0f7233448a0e8bb195a01f7651ddbd74943 100644 (file)
--- 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;