From ba9cf13e6dfa85bdb0f99295cbf578f4493ccf05 Mon Sep 17 00:00:00 2001
From: Björn Persson <bjorn@rombobjörn.se>
Date: Sun, 17 Feb 2013 17:54:35 +0100
Subject: Made thread wrapping entirely library-controlled.

---
 milter_api.adb | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'milter_api.adb')

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;
 
-- 
cgit v1.2.3