From 2acde2487a45db88d024f95ec1eb091d4367cde8 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 26 May 2008 17:51:29 +0200 Subject: [PATCH] * exp_ch6.adb: Add ??? comment for previous change From-SVN: r135944 --- gcc/ada/exp_ch6.adb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb index 804fcd6ba36..793d0f1e3cf 100644 --- a/gcc/ada/exp_ch6.adb +++ b/gcc/ada/exp_ch6.adb @@ -3965,12 +3965,14 @@ package body Exp_Ch6 is begin Expand_Call (N); - -- Handle VAX Float return values from foreign compiled - -- functions. + -- Handle VAX Float return values from foreign compiled functions + + -- More commments required here, what are the tests below for ??? + if Vax_Float (Etype (N)) and then Nkind (N) = N_Function_Call and then not (Nkind (Parent (N)) = N_Type_Conversion - and then not Comes_From_Source (Parent (N))) + and then not Comes_From_Source (Parent (N))) and then Present (Name (N)) and then Present (Entity (Name (N))) and then Has_Foreign_Convention (Entity (Name (N))) -- 2.30.2