From a54e3bf051b58a915ba448d6def18298805f6874 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 11 Jun 2014 14:47:45 +0200 Subject: [PATCH] Code clean up. From-SVN: r211462 --- gcc/ada/sem_ch12.adb | 20 ++++++++++++++++++-- 1 file changed, 18 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index f1446faec09..65ce631456e 100644 --- a/gcc/ada/sem_ch12.adb +++ b/gcc/ada/sem_ch12.adb @@ -1776,6 +1776,22 @@ package body Sem_Ch12 is Delta_Val : constant Ureal := Ureal_1; Digs_Val : constant Uint := Uint_6; + function Make_Dummy_Bound return Node_Id; + -- Return a properly typed universal real literal to use as a bound + + ---------------------- + -- Make_Dummy_Bound -- + ---------------------- + + function Make_Dummy_Bound return Node_Id is + Bound : constant Node_Id := Make_Real_Literal (Loc, Ureal_1); + begin + Set_Etype (Bound, Universal_Real); + return Bound; + end Make_Dummy_Bound; + + -- Start of processing for Analyze_Formal_Decimal_Fixed_Point_Type + begin Enter_Name (T); @@ -1788,8 +1804,8 @@ package body Sem_Ch12 is Set_Small_Value (Base, Delta_Val); Set_Scalar_Range (Base, Make_Range (Loc, - Low_Bound => Make_Real_Literal (Loc, Ureal_1), - High_Bound => Make_Real_Literal (Loc, Ureal_1))); + Low_Bound => Make_Dummy_Bound, + High_Bound => Make_Dummy_Bound)); Set_Is_Generic_Type (Base); Set_Parent (Base, Parent (Def));