From afb2d209040ffd4e61996f4e080cc5a5146ba437 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 18 Jun 2010 16:11:51 +0200 Subject: [PATCH] [multiple changes] 2010-06-18 Gary Dismukes * gnat1drv.adb (Adjust_Global_Switches): Enable Use_Expression_With_Actions for AAMP and VM targets. 2010-06-18 Vincent Celier * prj-nmsc.adb (Process_Linker): Recognize response file format GCC. From-SVN: r160994 --- gcc/ada/ChangeLog | 9 +++++++++ gcc/ada/gnat1drv.adb | 14 +++++--------- gcc/ada/prj-nmsc.adb | 3 +++ 3 files changed, 17 insertions(+), 9 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 151c841..9c67c1f 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,12 @@ +2010-06-18 Gary Dismukes + + * gnat1drv.adb (Adjust_Global_Switches): Enable + Use_Expression_With_Actions for AAMP and VM targets. + +2010-06-18 Vincent Celier + + * prj-nmsc.adb (Process_Linker): Recognize response file format GCC. + 2010-06-18 Thomas Quinot * exp_ch4.adb: Minor reformatting. diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 85d9dcc..33dcfb8 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -345,16 +345,12 @@ procedure Gnat1drv is elsif Debug_Flag_Dot_YY then Use_Expression_With_Actions := False; - -- If no debug flags, usage off for AAMP, VM, SCIL cases + -- If no debug flags, usage off for SCIL - elsif AAMP_On_Target - or else VM_Target /= No_VM - or else Generate_SCIL - then + elsif Generate_SCIL then Use_Expression_With_Actions := False; - -- Otherwise normal gcc back end, which does implement this feature so - -- by default we allow its use. + -- Otherwise this feature is implemented, so we allow its use else Use_Expression_With_Actions := True; @@ -377,8 +373,8 @@ procedure Gnat1drv is then Back_End_Handles_Limited_Types := False; - -- Otherwise normal gcc back end, for now still turn flag off by - -- default, since we have not verified proper back end handling. + -- Otherwise normal gcc back end, for now still turn flag off by + -- default, since we have not verified proper back end handling. else Back_End_Handles_Limited_Types := False; diff --git a/gcc/ada/prj-nmsc.adb b/gcc/ada/prj-nmsc.adb index a3d6563..74a256d 100644 --- a/gcc/ada/prj-nmsc.adb +++ b/gcc/ada/prj-nmsc.adb @@ -1838,6 +1838,9 @@ package body Prj.Nmsc is elsif Name = Name_Gnu then Project.Config.Resp_File_Format := GNU; + elsif Name_Buffer (1 .. Name_Len) = "gcc" then + Project.Config.Resp_File_Format := GCC; + elsif Name = Name_Object_List then Project.Config.Resp_File_Format := Object_List; -- 2.7.4