diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-12 13:05:11 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-12 13:05:11 +0000 |
| commit | ebce244fd25f44106ae7b69812a9bc30845637a5 (patch) | |
| tree | d66d363dfedd8a914cf032984a401e84ecb11169 /gcc/ada/gnat1drv.adb | |
| parent | fd6fc71cf2dfe0701d78e6d239d9dac58cc5e2d2 (diff) | |
| download | gcc-ebce244fd25f44106ae7b69812a9bc30845637a5.tar.gz | |
2010-10-12 Emmanuel Briot <briot@adacore.com>
* g-comlin.adb, g-comlin.ads (Define_Switch): Put back (unused)
parameter Separator for backward compatibility.
2010-10-12 Robert Dewar <dewar@adacore.com>
* sem_ch9.adb, par-ch9.adb, impunit.adb: Minor reformatting.
2010-10-12 Emmanuel Briot <briot@adacore.com>
* switch-m.adb: Remove pragma Warnings (Off), not needed.
2010-10-12 Vincent Celier <celier@adacore.com>
* debug.adb: Put detailed documentation for gnatmake switch -dm.
2010-10-12 Vincent Celier <celier@adacore.com>
* gnat1drv.adb: When the compiler is invoked for a spec that needs aw
body, do not generate an ALI file if neither -gnatc nor -gnatQ is used.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165375 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/gnat1drv.adb')
| -rw-r--r-- | gcc/ada/gnat1drv.adb | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/gcc/ada/gnat1drv.adb b/gcc/ada/gnat1drv.adb index 813765b7710..53041cea133 100644 --- a/gcc/ada/gnat1drv.adb +++ b/gcc/ada/gnat1drv.adb @@ -863,10 +863,18 @@ begin Write_Str (" (missing subunits)"); Write_Eol; + -- Force generation of ALI file, for backward compatibility + + Opt.Force_ALI_Tree_File := True; + elsif Main_Kind = N_Subunit then Write_Str (" (subunit)"); Write_Eol; + -- Force generation of ALI file, for backward compatibility + + Opt.Force_ALI_Tree_File := True; + elsif Main_Kind = N_Subprogram_Declaration then Write_Str (" (subprogram spec)"); Write_Eol; @@ -877,6 +885,10 @@ begin Write_Str (" (predefined generic)"); Write_Eol; + -- Force generation of ALI file, for backward compatibility + + Opt.Force_ALI_Tree_File := True; + -- Only other case is a package spec else @@ -893,7 +905,14 @@ begin Errout.Output_Messages; Treepr.Tree_Dump; Tree_Gen; - Write_ALI (Object => False); + + -- Generate ALI file if specially requested, or for missing subunits, + -- subunits or predefined generic. + + if Opt.Force_ALI_Tree_File then + Write_ALI (Object => False); + end if; + Namet.Finalize; Check_Rep_Info; |