1 files changed, 0 insertions, 6 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb
index 0d184dd..d85e086 100644
--- a/gcc/ada/inline.adb
+++ b/gcc/ada/inline.adb
@@ -349,12 +349,6 @@ package body Inline is
                   Set_Is_Inlined (Pack);
                   Inlined_Bodies.Increment_Last;
                   Inlined_Bodies.Table (Inlined_Bodies.Last) := Pack;
-
-               --  an initialization procedure should be inlined, but it does
-               --  not require the body of the package.
-
-               elsif Is_Init_Proc (E) then
-                  Set_Is_Inlined (Pack);
                end if;
             end if;
          end;