diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 195ea6a77157b3033a4997eeaff731c8e89bc677..2dcf15cd375b5284a94571c459f614e6686c4a72 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-29  Jan Hubicka  <jh@suse.cz>
+
+	* trans.c (process_inlined_subprograms): Remove tree_really_inline
+	check.
+
 2008-07-29  Arnaud Charlet  <charlet@adacore.com>
 
 	* gcc-interface: New directory.
diff --git a/gcc/ada/trans.c b/gcc/ada/trans.c
index abc71f5e53ef45326e6463e9c1c21d04c097d4de..88f9a20a3e6c8895958ce0821ce7c8db2419653a 100644
--- a/gcc/ada/trans.c
+++ b/gcc/ada/trans.c
@@ -5701,9 +5701,9 @@ process_inlined_subprograms (Node_Id gnat_node)
   Entity_Id gnat_entity;
   Node_Id gnat_body;
 
-  /* If we can inline, generate RTL for all the inlined subprograms.
+  /* If we can inline, generate Gimple for all the inlined subprograms.
      Define the entity first so we set DECL_EXTERNAL.  */
-  if (optimize > 0 && !flag_really_no_inline)
+  if (optimize > 0)
     for (gnat_entity = First_Inlined_Subprogram (gnat_node);
 	 Present (gnat_entity);
 	 gnat_entity = Next_Inlined_Subprogram (gnat_entity))