diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch12.adb | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb index f1446fa..65ce631 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)); |