diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-11-20 12:52:08 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-11-20 12:52:08 +0100 |
| commit | 5073ad7a647c3f8075429d7b69ac810cc53f118d (patch) | |
| tree | 17d27b8748b96061f9da279b7ecbab8beb04add1 /gcc/ada/gnatcmd.adb | |
| parent | bc5e261c09a9c3938baa1fdb93361f29e17ff40a (diff) | |
| download | gcc-5073ad7a647c3f8075429d7b69ac810cc53f118d.zip gcc-5073ad7a647c3f8075429d7b69ac810cc53f118d.tar.gz gcc-5073ad7a647c3f8075429d7b69ac810cc53f118d.tar.bz2 | |
[multiple changes]
2014-11-20 Robert Dewar <dewar@adacore.com>
* gnatcmd.adb, sem_ch6.adb, exp_dist.adb: Minor reformatting.
* sem_util.adb (Bad_Unordered_Enumeration_Reference): Suppress
warning (return False) for generic type.
2014-11-20 Hristian Kirtchev <kirtchev@adacore.com>
* sem_res.adb (Appears_In_Check): Removed.
(Is_OK_Volatile_Context): Rewrite the checks which verify that
an effectively volatile object subject to enabled properties
Async_Writers or Effective_Reads appears in a suitable context to
properly recognize a procedure call.
(Within_Check): New routine.
(Within_Procedure_Call): New routine.
From-SVN: r217848
Diffstat (limited to 'gcc/ada/gnatcmd.adb')
| -rw-r--r-- | gcc/ada/gnatcmd.adb | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gcc/ada/gnatcmd.adb b/gcc/ada/gnatcmd.adb index 3306aa6..7f9ca18 100644 --- a/gcc/ada/gnatcmd.adb +++ b/gcc/ada/gnatcmd.adb @@ -489,9 +489,8 @@ procedure GNATCmd is for Index in 1 .. Last_Switches.Last loop if Last_Switches.Table (Index) (1) /= '-' - or else - (Last_Switches.Table (Index).all'Length > 7 - and then Last_Switches.Table (Index) (1 .. 7) = "-files=") + or else (Last_Switches.Table (Index).all'Length > 7 + and then Last_Switches.Table (Index) (1 .. 7) = "-files=") then Add_Sources := False; exit; @@ -507,9 +506,7 @@ procedure GNATCmd is -- put the list of sources in it. For gnatstack create a temporary -- file with the list of .ci files. - if The_Command = List or else - The_Command = Stack - then + if The_Command = List or else The_Command = Stack then Tempdir.Create_Temp_File (FD, Temp_File_Name); Last_Switches.Increment_Last; Last_Switches.Table (Last_Switches.Last) := @@ -1937,6 +1934,7 @@ begin -- a configuration pragmas file, if necessary. if The_Command = Sync then + -- If there are switches in package Compiler, put them in the -- Carg_Switches table. @@ -2155,8 +2153,8 @@ begin -- on the command line, call tool with all the sources of the main -- project. - if The_Command = Sync or else - The_Command = List or else + if The_Command = Sync or else + The_Command = List or else The_Command = Stack then Check_Files; |