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

Code clean up.

Browse Source 
From-SVN: r211462
This commit is contained in:
Arnaud Charlet 2014-06-11 14:47:45 +02:00
parent 43bebb1069
commit a54e3bf051
1 changed files with 18 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
gcc/ada/sem_ch12.adb
View File

@ -1776,6 +1776,22 @@ package body Sem_Ch12 is
Delta_Val : constant Ureal := Ureal_1; Delta_Val : constant Ureal := Ureal_1;
Digs_Val : constant Uint := Uint_6; 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 begin
Enter_Name (T); Enter_Name (T);
@ -1788,8 +1804,8 @@ package body Sem_Ch12 is
Set_Small_Value (Base, Delta_Val); Set_Small_Value (Base, Delta_Val);
Set_Scalar_Range (Base, Set_Scalar_Range (Base,
Make_Range (Loc, Make_Range (Loc,
Low_Bound => Make_Real_Literal (Loc, Ureal_1), Low_Bound => Make_Dummy_Bound,
High_Bound => Make_Real_Literal (Loc, Ureal_1))); High_Bound => Make_Dummy_Bound));
Set_Is_Generic_Type (Base); Set_Is_Generic_Type (Base);
Set_Parent (Base, Parent (Def)); Set_Parent (Base, Parent (Def));