diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 15:03:27 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-17 15:03:27 +0200 |
| commit | c77599d5f680aa43d7c7fa04f508b3edad216dea (patch) | |
| tree | 1da6c077e39154f1d139d9206c15e3c0d7e2f6be /gcc/ada/sem_util.adb | |
| parent | 6f76a2575b040ada4b58e1aea71ce609bffa5c06 (diff) | |
| download | gcc-c77599d5f680aa43d7c7fa04f508b3edad216dea.tar.gz | |
[multiple changes]
2010-06-17 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb: expand NOT for VMS types.
* sem_util.adb: Use OpenVMS_On_Target for IS_VMS_Operator.
2010-06-17 Sergey Rybin <rybin@adacore.com>
* vms_data.ads: Add qualifier for '--no-elim-dispatch' gnatelim option.
* gnat_ugn.texi (gnatelim): add description for --no-elim-dispatch
option.
From-SVN: r160908
Diffstat (limited to 'gcc/ada/sem_util.adb')
| -rw-r--r-- | gcc/ada/sem_util.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 927688c6c1b..a47e739aeb4 100644 --- a/gcc/ada/sem_util.adb +++ b/gcc/ada/sem_util.adb @@ -7034,7 +7034,8 @@ package body Sem_Util is begin return Ekind (Op) = E_Function and then Is_Intrinsic_Subprogram (Op) - and then Scope (Op) = System_Aux_Id; + and then Chars (Scope (Scope (Op))) = Name_System + and then OpenVMS_On_Target; end Is_VMS_Operator; ----------------- |