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 1 additions and 1 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;
...@@ -475,7 +476,6 @@ package body Exp_VFpt is ...@@ -475,7 +476,6 @@ package body Exp_VFpt is
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