[Ada] Remove Valop from the Repinfo unit

[Pierre-Marie de Rodat]

This removes the recently added Valop as redundant.  No functional changes.

Tested on x86_64-pc-linux-gnu, committed on trunk

2018-05-28  Eric Botcazou  <ebotca...@adacore.com>

gcc/ada/

        * repinfo.adb (List_GCC_Expression): Remove Valop and replace calls to
        it with calls to Unop.
--- gcc/ada/repinfo.adb
+++ 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;