-- --
-- B o d y --
-- --
--- --
--- Copyright (C) 2001 Free Software Foundation, Inc. --
+-- Copyright (C) 2001-2004 Free Software Foundation, Inc. --
-- --
-- GNARL is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- covered by the GNU Public License. --
-- --
-- GNAT was originally developed by the GNAT team at New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc. --
-- --
------------------------------------------------------------------------------
-- Send_Trace_Info --
---------------------
- procedure Send_Trace_Info (Id : Trace_T; Task_Name2 : ST.Task_ID) is
+ procedure Send_Trace_Info (Id : Trace_T; Task_Name2 : ST.Task_Id) is
begin
null;
end Send_Trace_Info;
procedure Send_Trace_Info
(Id : Trace_T;
- Task_Name2 : ST.Task_ID;
+ Task_Name2 : ST.Task_Id;
Entry_Number : ST.Entry_Index)
is
begin
procedure Send_Trace_Info
(Id : Trace_T;
- Task_Name : ST.Task_ID;
- Task_Name2 : ST.Task_ID;
+ Task_Name : ST.Task_Id;
+ Task_Name2 : ST.Task_Id;
Entry_Number : ST.Entry_Index)
is
begin
procedure Send_Trace_Info
(Id : Trace_T;
- Task_Name : ST.Task_ID;
- Task_Name2 : ST.Task_ID)
+ Task_Name : ST.Task_Id;
+ Task_Name2 : ST.Task_Id)
is
begin
null;
procedure Send_Trace_Info
(Id : Trace_T;
- Acceptor : ST.Task_ID;
+ Acceptor : ST.Task_Id;
Entry_Number : ST.Entry_Index;
Timeout : Duration)
is
procedure Send_Trace_Info
(Id : Trace_T;
- Task_Name : ST.Task_ID;
+ Task_Name : ST.Task_Id;
Number : Integer)
is
begin
procedure Send_Trace_Info
(Id : Trace_T;
- Task_Name : ST.Task_ID;
+ Task_Name : ST.Task_Id;
Number : Integer;
Timeout : Duration)
is