Skip to content

R
riscv-gcc-1
Commit fda528a8 by Arnaud Charlet
Options

* exp_vfpt.adb: Minor reformatting 

From-SVN: r135945
parent 2acde248
Showing with 2 additions and 2 deletions
gcc/ada/exp_vfpt.adb
...@@ -454,6 +454,7 @@ package body Exp_VFpt is ...@@ -454,6 +454,7 @@ package body Exp_VFpt is
Args : List_Id; Args : List_Id;
Atyp : Entity_Id; Atyp : Entity_Id;
Rtyp : constant Entity_Id := Etype (N); Rtyp : constant Entity_Id := Etype (N);
begin begin
if Digits_Value (Typ) = VAXFF_Digits then if Digits_Value (Typ) = VAXFF_Digits then
Func := RE_Return_F; Func := RE_Return_F;
...@@ -471,11 +472,10 @@ package body Exp_VFpt is ...@@ -471,11 +472,10 @@ package body Exp_VFpt is
Rewrite (N, Rewrite (N,
Convert_To (Rtyp, Convert_To (Rtyp,
Make_Function_Call (Loc, Make_Function_Call (Loc,
Name => New_Occurrence_Of (RTE (Func), Loc), Name => New_Occurrence_Of (RTE (Func), Loc),
Parameter_Associations => Args))); Parameter_Associations => Args)));
Analyze_And_Resolve (N, Typ, Suppress => All_Checks); Analyze_And_Resolve (N, Typ, Suppress => All_Checks);
end Expand_Vax_Foreign_Return; end Expand_Vax_Foreign_Return;
----------------------------- -----------------------------
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment