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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135944 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/ada/exp_ch6.adb b/gcc/ada/exp_ch6.adb
index 804fcd6..793d0f1 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)))