1------------------------------------------------------------------------------ 2-- -- 3-- GNAT RUN-TIME LIBRARY (GNARL) COMPONENTS -- 4-- -- 5-- S Y S T E M . T R A C E S . T A S K I N G -- 6-- -- 7-- B o d y -- 8-- -- 9-- Copyright (C) 2001-2014, Free Software Foundation, Inc. -- 10-- -- 11-- GNARL is free software; you can redistribute it and/or modify it under -- 12-- terms of the GNU General Public License as published by the Free Soft- -- 13-- ware Foundation; either version 3, or (at your option) any later ver- -- 14-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 15-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 16-- or FITNESS FOR A PARTICULAR PURPOSE. -- 17-- -- 18-- As a special exception under Section 7 of GPL version 3, you are granted -- 19-- additional permissions described in the GCC Runtime Library Exception, -- 20-- version 3.1, as published by the Free Software Foundation. -- 21-- -- 22-- You should have received a copy of the GNU General Public License and -- 23-- a copy of the GCC Runtime Library Exception along with this program; -- 24-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 25-- <http://www.gnu.org/licenses/>. -- 26-- -- 27-- GNAT was originally developed by the GNAT team at New York University. -- 28-- Extensive contributions were provided by Ada Core Technologies Inc. -- 29-- -- 30------------------------------------------------------------------------------ 31 32package body System.Traces.Tasking is 33 34 pragma Warnings (Off); -- kill warnings on unreferenced formals 35 36 --------------------- 37 -- Send_Trace_Info -- 38 --------------------- 39 40 procedure Send_Trace_Info (Id : Trace_T; Task_Name2 : ST.Task_Id) is 41 begin 42 null; 43 end Send_Trace_Info; 44 45 procedure Send_Trace_Info 46 (Id : Trace_T; 47 Task_Name2 : ST.Task_Id; 48 Entry_Number : ST.Entry_Index) 49 is 50 begin 51 null; 52 end Send_Trace_Info; 53 54 procedure Send_Trace_Info 55 (Id : Trace_T; 56 Task_Name : ST.Task_Id; 57 Task_Name2 : ST.Task_Id; 58 Entry_Number : ST.Entry_Index) 59 is 60 begin 61 null; 62 end Send_Trace_Info; 63 64 procedure Send_Trace_Info 65 (Id : Trace_T; 66 Task_Name : ST.Task_Id; 67 Task_Name2 : ST.Task_Id) 68 is 69 begin 70 null; 71 end Send_Trace_Info; 72 73 procedure Send_Trace_Info 74 (Id : Trace_T; 75 Entry_Number : ST.Entry_Index) 76 is 77 begin 78 null; 79 end Send_Trace_Info; 80 81 procedure Send_Trace_Info 82 (Id : Trace_T; 83 Acceptor : ST.Task_Id; 84 Entry_Number : ST.Entry_Index; 85 Timeout : Duration) 86 is 87 begin 88 null; 89 end Send_Trace_Info; 90 91 procedure Send_Trace_Info 92 (Id : Trace_T; 93 Entry_Number : ST.Entry_Index; 94 Timeout : Duration) 95 is 96 begin 97 null; 98 end Send_Trace_Info; 99 100 procedure Send_Trace_Info 101 (Id : Trace_T; 102 Task_Name : ST.Task_Id; 103 Number : Integer) 104 is 105 begin 106 null; 107 end Send_Trace_Info; 108 109 procedure Send_Trace_Info 110 (Id : Trace_T; 111 Task_Name : ST.Task_Id; 112 Number : Integer; 113 Timeout : Duration) 114 is 115 begin 116 null; 117 end Send_Trace_Info; 118 119end System.Traces.Tasking; 120