From a14782e120670dfc4a9c2405b604610cf73317c5 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Thu, 16 Aug 2007 14:21:20 +0200 Subject: [PATCH] vms_conv.adb (Process_Argument): Ensure that project related options are not put in the -cargs section when... 2007-08-16 Vincent Celier * vms_conv.adb (Process_Argument): Ensure that project related options are not put in the -cargs section when using GNAT COMPILE. From-SVN: r127551 --- gcc/ada/vms_conv.adb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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 -- 2.30.2