From 5c59467f3ba6c229d14b986e66055af3ce06cb59 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 26 May 2008 15:51:38 +0000 Subject: * exp_vfpt.adb: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135945 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/ada/exp_vfpt.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gcc') diff --git a/gcc/ada/exp_vfpt.adb b/gcc/ada/exp_vfpt.adb index 612842952f5..9f172566cf5 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; ----------------------------- -- cgit v1.2.1