diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 10:33:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2017-04-25 10:33:18 +0200 |
| commit | 2bb988bb1cb15663ce9d01368d31d66161183b41 (patch) | |
| tree | ef7d98dc387ce923dcfce2f345cce20be82944bd /gcc/ada/inline.adb | |
| parent | b03d3f7390b5744c5fdf54a73fec6a28a8849a1b (diff) | |
| download | gcc-2bb988bb1cb15663ce9d01368d31d66161183b41.zip gcc-2bb988bb1cb15663ce9d01368d31d66161183b41.tar.gz gcc-2bb988bb1cb15663ce9d01368d31d66161183b41.tar.bz2 | |
[multiple changes]
2017-04-25 Hristian Kirtchev <kirtchev@adacore.com>
* sem_aggr.adb, inline.adb, einfo.adb, einfo.ads, scng.adb,
sem_prag.adb: Minor reformatting.
2017-04-25 Bob Duff <duff@adacore.com>
* sem_attr.adb (Type_Key): Add code in the
recursive Compute_Type_Key to protect against fetching the source
code for Standard, in case a component of the type is declared
in Standard. There was already code to do this for the original
type, but not for its components.
From-SVN: r247147
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index c20a2df..a5d5ce1 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -751,11 +751,12 @@ package body Inline is if Present (Comp_Unit) and then Comp_Unit /= Cunit (Main_Unit) and then Body_Required (Comp_Unit) - and then (Nkind (Unit (Comp_Unit)) /= N_Package_Declaration - or else - (No (Corresponding_Body (Unit (Comp_Unit))) - and then Body_Needed_For_Inlining - (Defining_Entity (Unit (Comp_Unit))))) + and then + (Nkind (Unit (Comp_Unit)) /= N_Package_Declaration + or else + (No (Corresponding_Body (Unit (Comp_Unit))) + and then Body_Needed_For_Inlining + (Defining_Entity (Unit (Comp_Unit))))) then declare Bname : constant Unit_Name_Type := |