OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Ada] Get rid of useless if-then-else in Exp_Fixd.Fpt_Value

Browse Source 
gcc/ada/

	* exp_fixd.adb (Fpt_Value): Fold if-then-else with identical arms.
This commit is contained in:
Eric Botcazou 2020-08-24 18:07:45 +02:00 committed by Pierre-Marie de Rodat
parent daaf017932
commit d7a6aa4969
1 changed files with 2 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/ada/exp_fixd.adb
View File

@ -186,7 +186,7 @@ package body Exp_Fixd is
-- Given an operand of fixed-point operation, return an expression that
-- represents the corresponding Universal_Real value. The expression
-- can be of integer type, floating-point type, or fixed-point type.
-- The expression returned is neither analyzed and resolved. The Etype
-- The expression returned is neither analyzed nor resolved. The Etype
-- of the result is properly set (to Universal_Real).
function Integer_Literal
@ -2351,19 +2351,8 @@ package body Exp_Fixd is
---------------
function Fpt_Value (N : Node_Id) return Node_Id is
Typ : constant Entity_Id := Etype (N);
begin
if Is_Integer_Type (Typ)
or else Is_Floating_Point_Type (Typ)
then
return Build_Conversion (N, Universal_Real, N);
-- Fixed-point case, must get integer value first
else
return Build_Conversion (N, Universal_Real, N);
end if;
return Build_Conversion (N, Universal_Real, N);
end Fpt_Value;
---------------------