From: Vincent Celier <celier@adacore.com>
Date: Thu, 16 Aug 2007 12:21:20 +0000 (+0200)
Subject: vms_conv.adb (Process_Argument): Ensure that project related options are not put... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a14782e120670dfc4a9c2405b604610cf73317c5;p=gcc.git

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
---

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