From 94fd3dc67710fa4d44903375d6257101b1d9fa95 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Wed, 8 Apr 2009 15:54:32 +0200 Subject: [multiple changes] 2009-04-08 Robert Dewar * gnat_rm.texi: Add documentation for pragma Thread_Local_Storage * sem_ch3.adb: Minor comment updates 2009-04-08 Ed Schonberg * inline.adb (Back_End_Cannot_Inline): restrict warning to subprograms that come from source. From-SVN: r145732 --- gcc/ada/inline.adb | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/ada/inline.adb') diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index 7cda5d5..4a9b1f6 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -403,6 +403,7 @@ package body Inline is or else Nkind (N) = N_Function_Call then if Is_Entity_Name (Name (N)) + and then Comes_From_Source (Entity (Name (N))) and then Nkind (Unit_Declaration_Node (Entity (Name (N)))) = N_Subprogram_Body -- cgit v1.1