Changed Inline_Always to the standard Inline.

1 files changed, 1 insertions, 1 deletions

diff --git a/milter_api.adb b/milter_api.adb
index 0b705b2..ab0793b 100644
--- a/milter_api.adb
+++ b/milter_api.adb
@@ -739,7 +739,7 @@ package body Milter_API is
    procedure Start_Wrapping is separate;
    -- If thread wrapping was enabled at compile time, then Start_Wrapping tells
    -- the thread wrapper to start wrapping threads. Otherwise it does nothing.
-   pragma Inline_Always(Start_Wrapping);
+   pragma Inline(Start_Wrapping);
 
    procedure Main is
       function smfi_main return int;