diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-26 17:51:38 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-26 17:51:38 +0200 |
| commit | fda528a811058f19b16a525940b3ca1b0716e129 (patch) | |
| tree | 053b70aa0675be99d25410d763f6cb2b076fdfa2 | |
| parent | 2acde2487a45db88d024f95ec1eb091d4367cde8 (diff) | |
| download | gcc-fda528a811058f19b16a525940b3ca1b0716e129.zip gcc-fda528a811058f19b16a525940b3ca1b0716e129.tar.gz gcc-fda528a811058f19b16a525940b3ca1b0716e129.tar.bz2 | |
* exp_vfpt.adb: Minor reformatting
From-SVN: r135945
| -rw-r--r-- | gcc/ada/exp_vfpt.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb index 6128429..9f17256 100644 --- a/gcc/ada/exp_vfpt.adb +++ b/gcc/ada/exp_vfpt.adb @@ -454,6 +454,7 @@ package body Exp_VFpt is Args : List_Id; Atyp : Entity_Id; Rtyp : constant Entity_Id := Etype (N); + begin if Digits_Value (Typ) = VAXFF_Digits then Func := RE_Return_F; @@ -471,11 +472,10 @@ package body Exp_VFpt is Rewrite (N, Convert_To (Rtyp, Make_Function_Call (Loc, - Name => New_Occurrence_Of (RTE (Func), Loc), + Name => New_Occurrence_Of (RTE (Func), Loc), Parameter_Associations => Args))); Analyze_And_Resolve (N, Typ, Suppress => All_Checks); - end Expand_Vax_Foreign_Return; ----------------------------- |