From da94696d33e93be999d7f9f5ec838cdfa9627385 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 30 Aug 2011 16:06:25 +0200 Subject: [multiple changes] 2011-08-30 Yannick Moy * opt.adb, opt.ads (Full_Expander_Active): New function defines a common shorthand for (Expander_Active and not ALFA_Mode) that can be used for testing full expansion, that is active expansion not in the reduced mode for Alfa * exp_ch4.adb, exp_ch9.adb, exp_disp.adb, sem_ch10.adb, sem_ch12.adb, sem_ch6.adb, sem_ch9.adb, sem_res.adb: Use newly defined "flag" instead of the verbose (Expander_Active and not ALFA_Mode) 2011-08-30 Tristan Gingold * s-parame-vms-alpha.ads, s-parame-hpux.ads, s-tassta.adb, s-tarest.adb, s-parame-vms-ia64.ads, s-soflin.adb, s-secsta.adb, s-secsta.ads, s-parame.ads, s-parame-vxworks.ads: Renames Ratio to Percentage, and Sec_Stack_Ratio to Sec_Stack_Percentage. From-SVN: r178313 --- gcc/ada/sem_ch10.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gcc/ada/sem_ch10.adb') diff --git a/gcc/ada/sem_ch10.adb b/gcc/ada/sem_ch10.adb index ce7c9b3..063da58 100644 --- a/gcc/ada/sem_ch10.adb +++ b/gcc/ada/sem_ch10.adb @@ -2289,7 +2289,7 @@ package body Sem_Ch10 is -- expansion is active, because the context may be generic and the -- flag not defined yet. - if Expander_Active then + if Full_Expander_Active then Insert_After (N, Make_Assignment_Statement (Loc, Name => -- cgit v1.1