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

1 files changed, 4 insertions, 12 deletions

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