* 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 804fcd6ba361afd5c41371fbcf11d0bd085fb019..793d0f1e3cf69d7dd6ed661d04c7e99c7e0b82d0 100644 (file)
--- 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)))