-- The Ada Milter API test milter
-- Copyright 2013 B. Persson, Bjorn@Rombobeorn.se
--
-- This program is free software: you can redistribute it and/or modify it
-- under the terms of the GNU General Public License version 3, as published
-- by the Free Software Foundation.


-- GNAT.Threads must be ready for use before wrapping of threads can begin.
with GNAT.Threads;
pragma Elaborate_All(GNAT.Threads);
pragma Unreferenced(GNAT.Threads);

package body Thread_Wrapping is

   procedure Start_Wrapping_Threads;
   pragma import(C, Start_Wrapping_Threads, "start_wrapping_threads");

begin
   Start_Wrapping_Threads;
end Thread_Wrapping;