blob: 75201e07d61a0d657350d641c67391a196d97d6e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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;
|