From: Arnaud Charlet <charlet@gcc.gnu.org>
Date: Mon, 26 May 2008 15:51:29 +0000 (+0200)
Subject: * exp_ch6.adb: Add ??? comment for previous change
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2acde2487a45db88d024f95ec1eb091d4367cde8;p=gcc.git

* exp_ch6.adb: Add ??? comment for previous change

From-SVN: r135944
---

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)))