Made thread wrapping entirely library-controlled.

1 files changed, 6 insertions, 0 deletions

diff --git a/milter_api.adb b/milter_api.adb
index f68b07a..f89a873 100644
--- a/milter_api.adb
+++ b/milter_api.adb
@@ -717,10 +717,16 @@ package body Milter_API is
       Check_For_Error("smfi_opensocket", smfi_opensocket(I(Remove_Old_Socket)));
    end Open_Socket;
 
+   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);
+
    procedure Main is
       function smfi_main return int;
       pragma import(C, smfi_main);
    begin
+      Start_Wrapping;
       Check_For_Error("smfi_main", smfi_main);
    end Main;