From d0ef7921074e2de8f6d4f96b9973ed32e63c0060 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 24 Jan 2014 15:47:12 +0100 Subject: [multiple changes] 2014-01-24 Robert Dewar * exp_ch7.adb: Minor change of Indices to Indexes (preferred terminology in compiler). 2014-01-24 Robert Dewar * scans.ads: Remove Tok_Raise from Sterm, Eterm, After_SM categories, now that Ada 95 supports raise expressions. 2014-01-24 Robert Dewar * freeze.adb (Freeze_Enumeration_Type): Use new target parameter Short_Enums_On_Target. * sem_ch13.adb (Set_Enum_Esize): Take Short_Enums_On_Target into account. * targparm.ads, targparm.adb: Add new target parameter Short_Enums. 2014-01-24 Ed Schonberg * sem_ch5.adb (Analyze_Iterator_Specification): If subtype indication is given explicity, check that it matches the array component type or the container element type of the domain of iteration. 2014-01-24 Tristan Gingold * back_end.adb (Scan_Compiler_Arguments): Set Short_Enums_On_Target. 2014-01-24 Vincent Celier * prj-env.adb (Ada_Objects_Path): Use Ada_Objects_Path_No_Libs to cache the result when Including_Libraries is False. * prj-env.ads (Ada_Objects_Path): Update documentation * prj.adb (Free (Project_Id)): Also free Ada_Objects_Path_No_Libs (Get_Object_Directory): Return the Library_Ali_Dir only when when Including_Libraries is True. * prj.ads (Get_Object_Directory): Fix and complete documentation (Project_Data): New component Ada_Objects_Path_No_Libs From-SVN: r207036 --- gcc/ada/back_end.adb | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'gcc/ada/back_end.adb') diff --git a/gcc/ada/back_end.adb b/gcc/ada/back_end.adb index c2275df..59f7bb4 100644 --- a/gcc/ada/back_end.adb +++ b/gcc/ada/back_end.adb @@ -40,6 +40,7 @@ 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; @@ -53,6 +54,10 @@ 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 @@ -262,6 +267,10 @@ package body Back_End is Opt.Stack_Checking_Enabled := (flag_stack_check /= 0); + -- Acquire short enums flag directly from GCC + + 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