diff options
author | Björn Persson <bjorn@rombobjörn.se> | 2013-02-17 17:54:35 +0100 |
---|---|---|
committer | Björn Persson <bjorn@rombobjörn.se> | 2013-02-17 17:54:35 +0100 |
commit | ba9cf13e6dfa85bdb0f99295cbf578f4493ccf05 (patch) | |
tree | 161bba0b22eb07a6861cc9634d5e6ede14e87e42 /test/thread_wrapping.adb | |
parent | 4766a7a7a2f23ee10560e1a2a177eec8931d974a (diff) |
Made thread wrapping entirely library-controlled.
Diffstat (limited to 'test/thread_wrapping.adb')
-rw-r--r-- | test/thread_wrapping.adb | 21 |
1 files changed, 0 insertions, 21 deletions
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; |