diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-28 11:11:53 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-07-28 11:11:53 +0200 |
| commit | e657b693e999a4cf34c9ae6849c36fa9c6437d3a (patch) | |
| tree | b297031ff3b6be068bf0f58e1ecd818abd19a9b7 /gcc/ada/frontend.adb | |
| parent | 327503f14780f4c9e8ee3ea4675abd0935761c79 (diff) | |
| download | gcc-e657b693e999a4cf34c9ae6849c36fa9c6437d3a.zip gcc-e657b693e999a4cf34c9ae6849c36fa9c6437d3a.tar.gz gcc-e657b693e999a4cf34c9ae6849c36fa9c6437d3a.tar.bz2 | |
[multiple changes]
2009-07-28 Arnaud Charlet <charlet@adacore.com>
* frontend.adb: Minor reformatting.
(Frontend): Only call Check_SCIL_Nodes if assertions are enabled,
for efficiency.
2009-07-28 Bob Duff <duff@adacore.com>
* exp_attr.adb (Expand_Access_To_Protected_Op): Use 'Access instead of
'Address to get a pointer to the protected body wrapper.
From-SVN: r150150
Diffstat (limited to 'gcc/ada/frontend.adb')
| -rw-r--r-- | gcc/ada/frontend.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 00eb5ca..8cb372a 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -342,7 +342,7 @@ begin -- incorporate subunits at a lower level. if Operating_Mode = Generate_Code - and then Nkind (Unit (Cunit (Main_Unit))) = N_Subunit + and then Nkind (Unit (Cunit (Main_Unit))) = N_Subunit then Operating_Mode := Check_Semantics; end if; @@ -355,8 +355,8 @@ begin -- Cleanup processing after completing main analysis if Operating_Mode = Generate_Code - or else (Operating_Mode = Check_Semantics - and then ASIS_Mode) + or else (Operating_Mode = Check_Semantics + and then ASIS_Mode) then Instantiate_Bodies; end if; @@ -404,7 +404,8 @@ begin -- dispatching calls reference subprogram calls. if Generate_SCIL then - Check_SCIL_Nodes (Cunit (Main_Unit)); + pragma Debug (Check_SCIL_Nodes (Cunit (Main_Unit))); + null; end if; -- Dump the source now. Note that we do this as soon as the analysis |