From d7a6aa4969869138117312ec48a2b995f8252793 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Mon, 24 Aug 2020 18:07:45 +0200 Subject: [PATCH] [Ada] Get rid of useless if-then-else in Exp_Fixd.Fpt_Value gcc/ada/ * exp_fixd.adb (Fpt_Value): Fold if-then-else with identical arms. --- gcc/ada/exp_fixd.adb | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/gcc/ada/exp_fixd.adb b/gcc/ada/exp_fixd.adb index 1cb01888da5..42cf626831d 100644 --- a/gcc/ada/exp_fixd.adb +++ b/gcc/ada/exp_fixd.adb @@ -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; --------------------- -- 2.30.2