diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-10 14:49:30 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-10-10 14:49:30 +0200 |
| commit | 82893775d23778168e4ce6be510d17641e27e586 (patch) | |
| tree | 33400257804a80067604a952e1e91279577a1f2f /gcc/ada/lib-writ.adb | |
| parent | 5a8a6763b58fe46c1a2f1710b31705565e29667c (diff) | |
| download | gcc-82893775d23778168e4ce6be510d17641e27e586.zip gcc-82893775d23778168e4ce6be510d17641e27e586.tar.gz gcc-82893775d23778168e4ce6be510d17641e27e586.tar.bz2 | |
[multiple changes]
2013-10-10 Robert Dewar <dewar@adacore.com>
* sem_aggr.adb (Resolve_Array_Aggregate): Redo duplicate/missing
choice circuit. Was not quite right in some cases, which showed
up in ACATS test B43201C.
* sem_attr.adb (Address_Checks): Make sure name is set right
for some messages issued.
* mlib-prj.adb: Minor code reorganization.
* gnat_ugn.texi: Remove special VMS doc for tagging of warning msgs.
* exp_ch9.adb: Minor reformatting.
2013-10-10 Tristan Gingold <gingold@adacore.com>
* lib-writ.adb (Write_Unit_Information): Adjust previous patch.
2013-10-10 Robert Dewar <dewar@adacore.com>
* sem_ch5.adb (Analyze_If_Statement): Warn on redundant if
statement.
* sem_util.ads, sem_util.adb (Has_No_Obvious_Side_Effects): New
function.
2013-10-10 Ed Schonberg <schonberg@adacore.com>
* exp_ch9.adb (Expand_N_Timed_Entry_Call): Simplify expansion
for the case of a dispatching trigger: there is no need to
duplicate the code or create a subprogram to encapsulate the
triggering statements. This allows exit statements in the
triggering statements, that refer to enclosing loops.
From-SVN: r203369
Diffstat (limited to 'gcc/ada/lib-writ.adb')
| -rw-r--r-- | gcc/ada/lib-writ.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/ada/lib-writ.adb b/gcc/ada/lib-writ.adb index afc83d9..c4b5e50 100644 --- a/gcc/ada/lib-writ.adb +++ b/gcc/ada/lib-writ.adb @@ -628,6 +628,7 @@ package body Lib.Writ is if Is_Generic_Unit (Cunit_Entity (Main_Unit)) and then Is_Predefined_File_Name (Unit_File_Name (Current_Sem_Unit)) + and then Linker_Option_Lines.Table (J).Unit = Unit_Num then Set_Standard_Error; Write_Line |