diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:08:34 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-02 15:08:34 +0200 |
| commit | 70c34e1c94f276d6f306ed92b892cbe7340acd65 (patch) | |
| tree | d30c781b78dfe38223b3ba173088ff0d67b7c82e /gcc/ada/inline.adb | |
| parent | 0f1af8814b751718b24eb78772bb471a8c948060 (diff) | |
| download | gcc-70c34e1c94f276d6f306ed92b892cbe7340acd65.zip gcc-70c34e1c94f276d6f306ed92b892cbe7340acd65.tar.gz gcc-70c34e1c94f276d6f306ed92b892cbe7340acd65.tar.bz2 | |
[multiple changes]
2011-08-02 Javier Miranda <miranda@adacore.com>
* exp_pakd.adb (Expand_Packed_Element_Reference): Disable this routine
in CodePeer mode.
2011-08-02 Geert Bosch <bosch@adacore.com>
* cstand.adb (Back_End_Float_Types): Use Elist instead of Nlist
(Find_Back_End_Float_Type): Likewise
(Create_Back_End_Float_Types): Likewise
(Create_Float_Types): Likewise
(Register_Float_Type): Likewise
* sem_ch3.adb (Floating_Point_Type_Declaration): Use Elist instead of
Nlist and split out type selection in new local Find_Base_Type function.
* sem_prag.adb (Process_Import_Predefined_Type): Use Elist instead of
Nlist
* stand.ads (Predefined_Float_Types): Use Elist instead of Nlist
2011-08-02 Robert Dewar <dewar@adacore.com>
* inline.adb: Minor code reorganization (put Get_Code_Unit_Entity in
alpha order).
* opt.ads: Minor comment change.
* sem_ch12.adb: Minor code reorganization.
From-SVN: r177144
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 6678057..c493797 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -983,6 +983,15 @@ package body Inline is end Cleanup_Scopes; -------------------------- + -- Get_Code_Unit_Entity -- + -------------------------- + + function Get_Code_Unit_Entity (E : Entity_Id) return Entity_Id is + begin + return Cunit_Entity (Get_Code_Unit (E)); + end Get_Code_Unit_Entity; + + -------------------------- -- Has_Initialized_Type -- -------------------------- @@ -1165,15 +1174,6 @@ package body Inline is end loop; end Remove_Dead_Instance; - -------------------------- - -- Get_Code_Unit_Entity -- - -------------------------- - - function Get_Code_Unit_Entity (E : Entity_Id) return Entity_Id is - begin - return Cunit_Entity (Get_Code_Unit (E)); - end Get_Code_Unit_Entity; - ------------------------ -- Scope_In_Main_Unit -- ------------------------ |