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