[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

gcc/ada/ChangeLog

 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.

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;