Commit 2acde248 by Arnaud Charlet

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

From-SVN: r135944
parent 26fa9076
......@@ -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)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment