diff options
Diffstat (limited to 'gcc/ada/opt.adb')
| -rw-r--r-- | gcc/ada/opt.adb | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/ada/opt.adb b/gcc/ada/opt.adb index ed76923d5f0..809816d244c 100644 --- a/gcc/ada/opt.adb +++ b/gcc/ada/opt.adb @@ -38,6 +38,15 @@ package body Opt is SU : constant := Storage_Unit; -- Shorthand for System.Storage_Unit + -------------------------- + -- Full_Expander_Active -- + -------------------------- + + function Full_Expander_Active return Boolean is + begin + return Expander_Active and not Alfa_Mode; + end Full_Expander_Active; + ---------------------------------- -- Register_Opt_Config_Switches -- ---------------------------------- |