From 12c5f1efb5d038d8638f517b8d73970573fbdaee Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 1 Aug 2014 15:26:17 +0200 Subject: [multiple changes] 2014-08-01 Ed Schonberg * sem_ch5.adb (Analyze_Loop_Parameter_Specification): a) An attribute_reference to Loop_Entry denotes an iterator specification: its prefix is an object, as is the case for 'Old. b) If the domain of iteration is an expression whose type has the Iterable aspect defined, this is an iterator specification. 2014-08-01 Robert Dewar * gnatcmd.adb: Minor reformatting. 2014-08-01 Robert Dewar * atree.ads (Info_Messages): New counter. * err_vars.ads: Minor comment update. * errout.adb (Delete_Warning_And_Continuations): Deal with new Info_Messages counter. (Error_Msg_Internal): ditto. (Delete_Warning): ditto. (Initialize): ditto. (Write_Error_Summary): ditto. (Output_Messages): ditto. (To_Be_Removed): ditto. * erroutc.adb (Delete_Msg): Deal with Info_Messages counter. (Compilation_Errors): ditto. * errutil.adb (Error_Msg): Deal with Info_Messages counter. (Finalize): ditto. (Initialize): ditto. * sem_prag.adb (Analyze_Pragma): Minor comment addition. * gnat_ugn.texi: Document that -gnatwe does not affect info messages. From-SVN: r213457 --- gcc/ada/gnatcmd.adb | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'gcc/ada/gnatcmd.adb') diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 8c60f80..2e5bade 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -47,7 +47,6 @@ with Snames; use Snames; with Stringt; with Switch; use Switch; with Table; -with Targparm; use Targparm; with Tempdir; with Types; use Types; @@ -58,6 +57,9 @@ with Ada.Text_IO; use Ada.Text_IO; with GNAT.OS_Lib; use GNAT.OS_Lib; procedure GNATCmd is + + AAMP_On_Target : Boolean := False; + Normal_Exit : exception; -- Raise this exception for normal program termination @@ -1183,7 +1185,7 @@ procedure GNATCmd is -- No usage for Sync if C /= Sync then - if Targparm.AAMP_On_Target then + if AAMP_On_Target then Put ("gnaampcmd "); else Put ("gnat "); @@ -1584,12 +1586,11 @@ begin Rules_Switches.Init; Rules_Switches.Set_Last (0); - -- Set AAMP_On_Target from the command name, for testing in - -- Osint.Program_Name to handle the mapping of GNAAMP tool names. We don't - -- extract it from system.ads, has there may be no default runtime. + -- Set AAMP_On_Target from command name, for testing in Osint.Program_Name + -- to handle the mapping of GNAAMP tool names. We don't extract it from + -- system.ads, as there may be no default runtime. - Find_Program_Name; - AAMP_On_Target := Name_Buffer (1 .. Name_Len) = "gnaampcmd"; + AAMP_On_Target := To_Lower (Command_Name) = "gnaampcmd"; -- Put the command line in environment variable GNAT_DRIVER_COMMAND_LINE, -- so that the spawned tool may know the way the GNAT driver was invoked. -- cgit v1.1