Rombobjörn

summaryrefslogtreecommitdiff
path: root/test/thread_wrapping.adb
diff options
context:
space:
mode:
authorBjörn Persson <bjorn@rombobjörn.se>2013-02-17 17:54:35 +0100
committerBjörn Persson <bjorn@rombobjörn.se>2013-02-17 17:54:35 +0100
commitba9cf13e6dfa85bdb0f99295cbf578f4493ccf05 (patch)
tree161bba0b22eb07a6861cc9634d5e6ede14e87e42 /test/thread_wrapping.adb
parent4766a7a7a2f23ee10560e1a2a177eec8931d974a (diff)
Made thread wrapping entirely library-controlled.
Diffstat (limited to 'test/thread_wrapping.adb')
-rw-r--r--test/thread_wrapping.adb21
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;