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/par.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/par.adb')
| -rw-r--r-- | gcc/ada/par.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/par.adb b/gcc/ada/par.adb index e88f4af..86fa50f 100644 --- a/gcc/ada/par.adb +++ b/gcc/ada/par.adb @@ -1275,7 +1275,8 @@ begin for Ucount in Pos loop Set_Opt_Config_Switches - (Is_Internal_File_Name (File_Name (Current_Source_File))); + (Is_Internal_File_Name (File_Name (Current_Source_File)), + Current_Source_Unit = Main_Unit); -- Initialize scope table and other parser control variables |