From bfa2e39d898414995b43b089dc52b323bc487c1d Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 30 Aug 2011 16:20:11 +0200 Subject: [multiple changes] 2011-08-30 Yannick Moy * exp_aggr.adb, exp_ch11.adb, exp_prag.adb: Remove early exit during expansion in Alfa mode. * exp_ch6.adb, exp_ch6.ads (Expand_Actuals): Make subprogram public * exp_alfa.adb, exp_alfa.ads: New package defining light expansion for Alfa mode. * gnat1drv.adb (Adjust_Global_Switches): Update Comment. * sem_res.adb: Ditto. 2011-08-30 Thomas Quinot * g-socket.ads: Minor documentation adjustment. From-SVN: r178317 --- gcc/ada/expander.adb | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) (limited to 'gcc/ada/expander.adb') diff --git a/gcc/ada/expander.adb b/gcc/ada/expander.adb index 95b5d97..f14fca0 100644 --- a/gcc/ada/expander.adb +++ b/gcc/ada/expander.adb @@ -27,6 +27,7 @@ with Atree; use Atree; with Debug_A; use Debug_A; with Errout; use Errout; with Exp_Aggr; use Exp_Aggr; +with Exp_Alfa; use Exp_Alfa; with Exp_Attr; use Exp_Attr; with Exp_Ch2; use Exp_Ch2; with Exp_Ch3; use Exp_Ch3; @@ -131,7 +132,12 @@ package body Expander is -- routines. begin - case Nkind (N) is + if ALFA_Mode then + Expand_Alfa (N); + + else + + case Nkind (N) is when N_Abort_Statement => Expand_N_Abort_Statement (N); @@ -449,7 +455,9 @@ package body Expander is when others => null; - end case; + end case; + + end if; exception when RE_Not_Available => -- cgit v1.1