procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Remove Valop from the Repinfo unit

Browse source 
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
This commit is contained in:
Eric Botcazou 2018-05-28 08:56:15 +00:00 • committed by Pierre-Marie de Rodat
parent 72da915b16
commit 575e47bf05
2 changed files with 7 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/ada/ChangeLog
View file

@ -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.

17
gcc/ada/repinfo.adb
View file

@ -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;