diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 13:08:34 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-08-02 13:08:34 +0000 |
| commit | 584b61866dc5971e0b73703264f757c28dd70a2d (patch) | |
| tree | d30c781b78dfe38223b3ba173088ff0d67b7c82e /gcc/ada/inline.adb | |
| parent | d8c480af800183ee494726489804f87522f7e94e (diff) | |
| download | gcc-584b61866dc5971e0b73703264f757c28dd70a2d.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@177144 138bc75d-0d04-0410-961f-82ee72b054a4
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 6678057ff02..c4937976be2 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 -- ------------------------ |