From ba9cf13e6dfa85bdb0f99295cbf578f4493ccf05 Mon Sep 17 00:00:00 2001 From: Björn Persson Date: Sun, 17 Feb 2013 17:54:35 +0100 Subject: Made thread wrapping entirely library-controlled. --- test/test_milter.adb | 1 - test/thread_wrapping.adb | 21 --------------------- test/thread_wrapping.ads | 13 ------------- 3 files changed, 35 deletions(-) delete mode 100644 test/thread_wrapping.adb delete mode 100644 test/thread_wrapping.ads (limited to 'test') 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; -- cgit v1.2.3