diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 07:56:02 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-09-05 07:56:02 +0000 |
| commit | 5c6363c7f65cce5941552d28ee26aabee8e2f059 (patch) | |
| tree | b5b30756f1f19c01bed62b9b9fef8126093e6cdb /gcc/ada/sem.adb | |
| parent | 37d963d3bd658161588ba9f4ffc48135a4323b11 (diff) | |
| download | gcc-5c6363c7f65cce5941552d28ee26aabee8e2f059.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103873 138bc75d-0d04-0410-961f-82ee72b054a4
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 536b1791892..36afe180caa 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 |