diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-24 15:47:12 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-01-24 15:47:12 +0100 |
| commit | d0ef7921074e2de8f6d4f96b9973ed32e63c0060 (patch) | |
| tree | 43cae609c633bc42287b42a5bbe2fef41a7a770b /gcc/ada/back_end.adb | |
| parent | 162c21d9985ea765ff74de0a465a6119363f1dcd (diff) | |
| download | gcc-d0ef7921074e2de8f6d4f96b9973ed32e63c0060.zip gcc-d0ef7921074e2de8f6d4f96b9973ed32e63c0060.tar.gz gcc-d0ef7921074e2de8f6d4f96b9973ed32e63c0060.tar.bz2 | |
[multiple changes]
2014-01-24 Robert Dewar <dewar@adacore.com>
* exp_ch7.adb: Minor change of Indices to Indexes (preferred
terminology in compiler).
2014-01-24 Robert Dewar <dewar@adacore.com>
* scans.ads: Remove Tok_Raise from Sterm, Eterm, After_SM
categories, now that Ada 95 supports raise expressions.
2014-01-24 Robert Dewar <dewar@adacore.com>
* 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 <schonberg@adacore.com>
* 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 <gingold@adacore.com>
* back_end.adb (Scan_Compiler_Arguments): Set Short_Enums_On_Target.
2014-01-24 Vincent Celier <celier@adacore.com>
* 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
Diffstat (limited to 'gcc/ada/back_end.adb')
| -rw-r--r-- | gcc/ada/back_end.adb | 9 |
1 files changed, 9 insertions, 0 deletions
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 |