diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-26 15:51:29 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-26 15:51:29 +0000 |
| commit | f2013aa8c4e8969ddb70d83ab251981a7de6b4ab (patch) | |
| tree | 3648808dadc651dc700cb235105a7bee9e1004f8 | |
| parent | 64919a8617d5e94790f6464cc8c2bb76edcc5431 (diff) | |
| download | gcc-f2013aa8c4e8969ddb70d83ab251981a7de6b4ab.tar.gz | |
* 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
| -rw-r--r-- | gcc/ada/exp_ch6.adb | 8 |
1 files changed, 5 insertions, 3 deletions
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))) |