* gcc-interface/utils.c (create_subprog_decl): Adjust condition.

From-SVN: r216733

gcc/ada/ChangeLog

 2014-10-27  Eric Botcazou  <ebotcazou@adacore.com>
 
+	* gcc-interface/utils.c (create_subprog_decl): Adjust condition.
+
+2014-10-27  Eric Botcazou  <ebotcazou@adacore.com>
+
 	* gcc-interface/misc.c (gnat_init_options_struct): Parameterize errno
 	support here instead of...
 	Do not set flag_delete_dead_exceptions to 1 unconditionally.

gcc/ada/gcc-interface/utils.c

@@ -3021,7 +3021,7 @@ create_subprog_decl (tree subprog_name, tree asm_name, tree subprog_type,
      function in the current unit since it is private to the other unit.
      We could inline the nested function as well but it's probably better
      to err on the side of too little inlining.  */
-  if (inline_status != is_enabled
+  if ((inline_status == is_suppressed || inline_status == is_disabled)
       && !public_flag
       && current_function_decl
       && DECL_DECLARED_INLINE_P (current_function_decl)