diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-01-24 15:18:46 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-24 16:18:46 +0100 |
| commit | f27ad2b2201c1a05bf6ef048960ebb8b98d6e0e8 (patch) | |
| tree | f64632f4ed17e9fcf165d2add6a0ad9ad98bc2c0 /gcc/ada/get_targ.adb | |
| parent | dd6ab508322d8e05e689777dec7be4d186107127 (diff) | |
| download | gcc-f27ad2b2201c1a05bf6ef048960ebb8b98d6e0e8.zip gcc-f27ad2b2201c1a05bf6ef048960ebb8b98d6e0e8.tar.gz gcc-f27ad2b2201c1a05bf6ef048960ebb8b98d6e0e8.tar.bz2 | |
back_end.adb: Remove Short_Enums handling (handled in Ttypes/Get_Targ now) Minor added comments.
2014-01-24 Robert Dewar <dewar@adacore.com>
* back_end.adb: Remove Short_Enums handling (handled in
Ttypes/Get_Targ now) Minor added comments.
* freeze.adb: Change name Short_Enums_On_Target to
Target_Short_Enums.
* get_targ.ads, get_targ.adb (Get_Short_Enums): New function.
* opt.ads: Minor comment updates.
* sem_ch13.adb: Change name Short_Enums_On_Target to
Target_Short_Enums.
* set_targ.adb: Set Short_Enums from gcc back end.
* set_targ.ads (Short_Enums): New variable.
* targparm.ads, targparm.adb: Remove Short_Enums entries (handled in
Ttypes/Get_Targ now).
* ttypes.ads (Target_Short_Enums): New constant boolean switch
From-SVN: r207045
Diffstat (limited to 'gcc/ada/get_targ.adb')
| -rw-r--r-- | gcc/ada/get_targ.adb | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/ada/get_targ.adb b/gcc/ada/get_targ.adb index a2f7370..661f95b 100644 --- a/gcc/ada/get_targ.adb +++ b/gcc/ada/get_targ.adb @@ -23,6 +23,8 @@ -- -- ------------------------------------------------------------------------------ +-- Version for use with gcc + package body Get_Targ is -- Functions returning individual runtime. For the standard (GCC) back @@ -232,6 +234,17 @@ package body Get_Targ is return C_Get_Bits_BE; end Get_Bits_BE; + --------------------- + -- Get_Short_Enums -- + --------------------- + + function Get_Short_Enums return Int is + flag_short_enums : Int; + pragma Import (C, flag_short_enums); + begin + return flag_short_enums; + end Get_Short_Enums; + -------------------------- -- Get_Strict_Alignment -- -------------------------- |