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/back_end.adb | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) (limited to 'gcc/ada/back_end.adb') diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index 6c3e9a8..a466686 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -40,7 +40,6 @@ with Switch; use Switch; with Switch.C; use Switch.C; with System; use System; with Types; use Types; -with Targparm; with System.OS_Lib; use System.OS_Lib; @@ -54,10 +53,6 @@ package body Back_End is pragma Import (C, flag_stack_check); -- Indicates if stack checking is enabled, imported from misc.c - flag_short_enums : Int; - pragma Import (C, flag_short_enums); - -- Indicates if C enumerations are packed, imported from misc.c - save_argc : Nat; pragma Import (C, save_argc); -- Saved value of argc (number of arguments), imported from misc.c @@ -263,16 +258,13 @@ package body Back_End is -- Start of processing for Scan_Compiler_Arguments begin - -- Acquire stack checking mode directly from GCC + -- Acquire stack checking mode directly from GCC. The reason we do this + -- is to make sure that the indication of stack checking being enabled + -- is the same in the front end and the back end. This status obtained + -- from gcc is affected by more than just the switch -fstack-check. Opt.Stack_Checking_Enabled := (flag_stack_check /= 0); - -- Acquire short enums flag directly from GCC - -- This needs documentation in the spec ??? - -- So does the one above! ??? - - Targparm.Short_Enums_On_Target := (flag_short_enums /= 0); - -- Put the arguments in Args for Arg in Pos range 1 .. save_argc - 1 loop -- cgit v1.1