From e657b693e999a4cf34c9ae6849c36fa9c6437d3a Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 28 Jul 2009 11:11:53 +0200 Subject: [multiple changes] 2009-07-28 Arnaud Charlet * frontend.adb: Minor reformatting. (Frontend): Only call Check_SCIL_Nodes if assertions are enabled, for efficiency. 2009-07-28 Bob Duff * 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 --- gcc/ada/frontend.adb | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'gcc/ada/frontend.adb') 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 -- cgit v1.1