diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-26 17:51:29 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-05-26 17:51:29 +0200 |
| commit | 2acde2487a45db88d024f95ec1eb091d4367cde8 (patch) | |
| tree | 3648808dadc651dc700cb235105a7bee9e1004f8 /gcc/ada/exp_ch6.adb | |
| parent | 26fa9076d9e62320e3155b9e11491f0449612a2d (diff) | |
| download | gcc-2acde2487a45db88d024f95ec1eb091d4367cde8.zip gcc-2acde2487a45db88d024f95ec1eb091d4367cde8.tar.gz gcc-2acde2487a45db88d024f95ec1eb091d4367cde8.tar.bz2 | |
* exp_ch6.adb: Add ??? comment for previous change
From-SVN: r135944
Diffstat (limited to 'gcc/ada/exp_ch6.adb')
| -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 804fcd6..793d0f1 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))) |