From f27ad2b2201c1a05bf6ef048960ebb8b98d6e0e8 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Fri, 24 Jan 2014 15:18:46 +0000 Subject: back_end.adb: Remove Short_Enums handling (handled in Ttypes/Get_Targ now) Minor added comments. 2014-01-24 Robert Dewar * 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 --- gcc/ada/get_targ.adb | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'gcc/ada/get_targ.adb') 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 -- -------------------------- -- cgit v1.1