gcc/ada/s-tratas.ads

   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 --                                  S p e c                                 --
   8 --                                                                          --
   9 --          Copyright (C) 2001-2009 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
  32 --  This package provides all procedures used to implement debug traces
  33 --  in the case tasking is involved.
  34
  35 --  See System.Traces for an overview of the various files involved in Tracing
  36
  37 --  If tasking is not involved, refer to System.Traces.General
  38
  39 with System.Tasking;
  40
  41 package System.Traces.Tasking is
  42    pragma Preelaborate;
  43
  44    package ST renames System.Tasking;
  45
  46    --  Send_Trace_Info procedures
  47
  48    --  They are overloaded, depending on the parameters passed with the event
  49
  50    procedure Send_Trace_Info
  51      (Id         : Trace_T;
  52       Task_Name2 : ST.Task_Id);
  53
  54    procedure Send_Trace_Info
  55      (Id           : Trace_T;
  56       Task_Name2   : ST.Task_Id;
  57       Entry_Number : ST.Entry_Index);
  58
  59    procedure Send_Trace_Info
  60      (Id           : Trace_T;
  61       Task_Name    : ST.Task_Id;
  62       Task_Name2   : ST.Task_Id;
  63       Entry_Number : ST.Entry_Index);
  64
  65    procedure Send_Trace_Info
  66      (Id         : Trace_T;
  67       Task_Name  : ST.Task_Id;
  68       Task_Name2 : ST.Task_Id);
  69
  70    procedure Send_Trace_Info
  71      (Id           : Trace_T;
  72       Entry_Number : ST.Entry_Index);
  73
  74    procedure Send_Trace_Info
  75      (Id           : Trace_T;
  76       Acceptor     : ST.Task_Id;
  77       Entry_Number : ST.Entry_Index;
  78       Timeout      : Duration);
  79
  80    procedure Send_Trace_Info
  81      (Id           : Trace_T;
  82       Entry_Number : ST.Entry_Index;
  83       Timeout      : Duration);
  84
  85    procedure Send_Trace_Info
  86      (Id         : Trace_T;
  87       Task_Name  : ST.Task_Id;
  88       Number     : Integer);
  89
  90    procedure Send_Trace_Info
  91      (Id         : Trace_T;
  92       Task_Name  : ST.Task_Id;
  93       Number     : Integer;
  94       Timeout    : Duration);
  95 end System.Traces.Tasking;