mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-10 16:00:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r135944
This commit is contained in:
Arnaud Charlet 2008-05-26 17:51:29 +02:00
parent 26fa9076d9
commit 2acde2487a
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/exp_ch6.adb
View File

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