From 7fee6a39eb712a971f56f6c80ccb6b260655d3e8 Mon Sep 17 00:00:00 2001 From: Bechir Zalila Date: Fri, 7 Nov 2008 10:46:18 +0000 Subject: re PR ada/34289 (gnatmake -s doesn't work) PR ada/34289 * lib.ads: (Enable_Switch_Storing): Declare. * lib.adb: (Enable_Switch_Storing): New procedure. * switch-c.adb (Scan_Front_End_Switches): Add support for -gnatea. * make.adb: (Compile_Sources.Compile): Add -gnatea as first option. (Display): Never display -gnatea * gcc-interface/lang-specs.h: If -gnatea is present, pass -gnatez. Co-Authored-By: Eric Botcazou From-SVN: r141673 --- gcc/ada/lib.adb | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'gcc/ada/lib.adb') diff --git a/gcc/ada/lib.adb b/gcc/ada/lib.adb index dd0e245..5271a45 100644 --- a/gcc/ada/lib.adb +++ b/gcc/ada/lib.adb @@ -49,7 +49,7 @@ with Uname; use Uname; package body Lib is Switch_Storing_Enabled : Boolean := True; - -- Set to False by Disable_Switch_Storing + -- Controlled by Enable_Switch_Storing/Disable_Switch_Storing ----------------------- -- Local Subprograms -- @@ -433,6 +433,19 @@ package body Lib is return Compilation_Switches.Last; end Compilation_Switches_Last; + --------------------------- + -- Enable_Switch_Storing -- + --------------------------- + + procedure Enable_Switch_Storing is + begin + Switch_Storing_Enabled := True; + end Enable_Switch_Storing; + + ---------------------------- + -- Disable_Switch_Storing -- + ---------------------------- + procedure Disable_Switch_Storing is begin Switch_Storing_Enabled := False; -- cgit v1.1