[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 3a9e1dd..60ff204 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,5 +1,10 @@
 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.

diff --git a/gcc/ada/repinfo.adb b/gcc/ada/repinfo.adb
index 7d283f6..d19ab0f 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;