diff options
| author | Robert Dewar <dewar@adacore.com> | 2005-09-05 09:56:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 09:56:02 +0200 |
| commit | 6e18b0e511a2008299790a08da0a291c0bb4752f (patch) | |
| tree | b5b30756f1f19c01bed62b9b9fef8126093e6cdb /gcc/ada/sem.adb | |
| parent | 1b3b0f45a4a159b3c204749377e15b1b3dda0fab (diff) | |
| download | gcc-6e18b0e511a2008299790a08da0a291c0bb4752f.zip gcc-6e18b0e511a2008299790a08da0a291c0bb4752f.tar.gz gcc-6e18b0e511a2008299790a08da0a291c0bb4752f.tar.bz2 | |
opt.ads, opt.adb: Add new switches Debug_Pragmas_Enabled[_Config]
2005-09-01 Robert Dewar <dewar@adacore.com>
* opt.ads, opt.adb: Add new switches Debug_Pragmas_Enabled[_Config]
* par-prag.adb: Implement new pragma Debug_Policy
* sem_prag.adb Implement new pragma Debug_Policy
(Analyze_Pragma, case Pack): do not let pragma Pack override an explicit
Component_Size attribute specification. Give warning for ignored pragma
Pack.
* snames.h, snames.ads, snames.adb: Introduce entries in
Preset_Names for Name_Disp_Asynchronous_Select,
Name_Disp_Conditional_Select, Name_Disp_Get_Prim_Op_Kind,
Name_Disp_Timed_Select.
New pragma Debug_Policy
* switch-c.adb (Scan_Front_End_Switches): Set Ada 2005 mode
explicitly.
Switch -gnata also sets Debug_Pragmas_Enabled
* sem.adb, par.adb (Set_Opt_Config_Switch): Add parameter Main_Unit to
handle an explicit -gnata when compiling predefined files.
From-SVN: r103873
Diffstat (limited to 'gcc/ada/sem.adb')
| -rw-r--r-- | gcc/ada/sem.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/ada/sem.adb b/gcc/ada/sem.adb index 536b179..36afe18 100644 --- a/gcc/ada/sem.adb +++ b/gcc/ada/sem.adb @@ -27,7 +27,6 @@ with Atree; use Atree; with Debug; use Debug; with Debug_A; use Debug_A; -with Einfo; use Einfo; with Errout; use Errout; with Expander; use Expander; with Fname; use Fname; @@ -35,7 +34,6 @@ with HLO; use HLO; with Lib; use Lib; with Lib.Load; use Lib.Load; with Nlists; use Nlists; -with Opt; use Opt; with Sem_Attr; use Sem_Attr; with Sem_Ch2; use Sem_Ch2; with Sem_Ch3; use Sem_Ch3; @@ -1299,7 +1297,8 @@ package body Sem is Set_Comes_From_Source_Default (False); Save_Opt_Config_Switches (Save_Config_Switches); Set_Opt_Config_Switches - (Is_Internal_File_Name (Unit_File_Name (Current_Sem_Unit))); + (Is_Internal_File_Name (Unit_File_Name (Current_Sem_Unit)), + Current_Sem_Unit = Main_Unit); -- Only do analysis of unit that has not already been analyzed |