From b098f5dc6a447df808ed755a1d6123f9ce7896dc Mon Sep 17 00:00:00 2001 From: Björn Persson Date: Mon, 21 Jan 2013 13:10:21 +0100 Subject: Added an outline of a test milter. --- test/thread_wrapping.adb | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 test/thread_wrapping.adb (limited to 'test/thread_wrapping.adb') diff --git a/test/thread_wrapping.adb b/test/thread_wrapping.adb new file mode 100644 index 0000000..75201e0 --- /dev/null +++ b/test/thread_wrapping.adb @@ -0,0 +1,21 @@ +-- 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; -- cgit v1.2.3