From 2bb988bb1cb15663ce9d01368d31d66161183b41 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 25 Apr 2017 10:33:18 +0200 Subject: [multiple changes] 2017-04-25 Hristian Kirtchev * sem_aggr.adb, inline.adb, einfo.adb, einfo.ads, scng.adb, sem_prag.adb: Minor reformatting. 2017-04-25 Bob Duff * 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 --- gcc/ada/inline.adb | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'gcc/ada/inline.adb') 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 := -- cgit v1.1