diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-30 16:20:11 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-30 16:20:11 +0200 |
| commit | bfa2e39d898414995b43b089dc52b323bc487c1d (patch) | |
| tree | ee697022c3766e0c8817321a8434e832b19cf8e4 /gcc/ada/expander.adb | |
| parent | a0347839daf7ab6b9c9ce1c8323bb25d402e6ac5 (diff) | |
| download | gcc-bfa2e39d898414995b43b089dc52b323bc487c1d.zip gcc-bfa2e39d898414995b43b089dc52b323bc487c1d.tar.gz gcc-bfa2e39d898414995b43b089dc52b323bc487c1d.tar.bz2 | |
[multiple changes]
2011-08-30 Yannick Moy <moy@adacore.com>
* 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 <quinot@adacore.com>
* g-socket.ads: Minor documentation adjustment.
From-SVN: r178317
Diffstat (limited to 'gcc/ada/expander.adb')
| -rw-r--r-- | gcc/ada/expander.adb | 12 |
1 files changed, 10 insertions, 2 deletions
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 => |