diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-16 12:21:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-08-16 12:21:20 +0000 |
| commit | 54de91a59d0854a41c3686c53c4f4538a1e242fa (patch) | |
| tree | d6cf4404e39306132a66ba198ba4e6cac825f71e | |
| parent | e33d6af44b535351b7356725a1951e41ca608ef7 (diff) | |
| download | gcc-54de91a59d0854a41c3686c53c4f4538a1e242fa.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@127551 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 f30bf6ec593..f40898ea777 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 |