diff options
author | Vincent Celier <celier@adacore.com> | 2007-08-16 14:21:20 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-08-16 14:21:20 +0200 |
commit | a14782e120670dfc4a9c2405b604610cf73317c5 (patch) | |
tree | d6cf4404e39306132a66ba198ba4e6cac825f71e | |
parent | dae2b8eaa891aa280bb99103045bde802af66086 (diff) | |
download | gcc-a14782e120670dfc4a9c2405b604610cf73317c5.zip gcc-a14782e120670dfc4a9c2405b604610cf73317c5.tar.gz gcc-a14782e120670dfc4a9c2405b604610cf73317c5.tar.bz2 |
vms_conv.adb (Process_Argument): Ensure that project related options are not put in the -cargs section when...
2007-08-16 Vincent Celier <celier@adacore.com>
* vms_conv.adb (Process_Argument): Ensure that project related options
are not put in the -cargs section when using GNAT COMPILE.
From-SVN: r127551
-rw-r--r-- | gcc/ada/vms_conv.adb | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/gcc/ada/vms_conv.adb b/gcc/ada/vms_conv.adb index f30bf6e..f40898e 100644 --- a/gcc/ada/vms_conv.adb +++ b/gcc/ada/vms_conv.adb @@ -1788,8 +1788,17 @@ package body VMS_Conv is end if; if Sw /= null then - case Sw.Translation is + if Cargs + and then Sw.Name /= null + and then + (Sw.Name.all = "/PROJECT_FILE" or else + Sw.Name.all = "/MESSAGES_PROJECT_FILE" or else + Sw.Name.all = "/EXTERNAL_REFERENCE") + then + Cargs := False; + end if; + case Sw.Translation is when T_Direct => Place_Unix_Switches (Sw.Unix_String); if SwP < Arg'Last |