Made thread wrapping entirely library-controlled.

3 files changed, 0 insertions, 35 deletions

diff --git a/test/test_milter.adb b/test/test_milter.adb
index 2cf2ed1..c903576 100644
--- a/test/test_milter.adb
+++ b/test/test_milter.adb
@@ -7,7 +7,6 @@
 
 
 with Test_Milter_Package;
-with Thread_Wrapping;
 with Ada.Command_Line;
 with System_Log; use System_Log;
 
diff --git a/test/thread_wrapping.adb b/test/thread_wrapping.adb
deleted file mode 100644
index 75201e0..0000000
--- a/test/thread_wrapping.adb
+++ /dev/null
@@ -1,21 +0,0 @@
--- 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;
diff --git a/test/thread_wrapping.ads b/test/thread_wrapping.ads
deleted file mode 100644
index a7e3487..0000000
--- a/test/thread_wrapping.ads
+++ /dev/null
@@ -1,13 +0,0 @@
--- 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.
-
-
-package Thread_Wrapping is
-   pragma Elaborate_Body;
-   -- Elaborating the spec and the body together isn't important, but without
-   -- this pragma this package wouldn't be allowed to have a body.
-end Thread_Wrapping;