diff options
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 a2f7370f8e5..661f95b5ab3 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 -- -------------------------- |