2004-08-13 Olivier Hainque <hainque@act-europe.fr>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-tasinf.ads

diff --git a/gcc/ada/s-tasinf.ads b/gcc/ada/s-tasinf.ads
index f2bf26e..18b6ce6 100644 (file)
--- a/gcc/ada/s-tasinf.ads
+++ b/gcc/ada/s-tasinf.ads
@@ -5,11 +5,8 @@
 --                     S Y S T E M . T A S K _ I N F O                      --
 --                                                                          --
 --                                 S p e c                                  --
---                           (Compiler Interface)                           --
 --                                                                          --
---                            $Revision: 1.8 $
---                                                                          --
---          Copyright (C) 1992-2001 Free Software Foundation, Inc.          --
+--          Copyright (C) 1992-2003 Free Software Foundation, Inc.          --
 --                                                                          --
 -- GNAT 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- --
@@ -30,21 +27,23 @@
 -- 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.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
 --  This package contains the definitions and routines associated with the
---  implementation of the Task_Info pragma. It is specialized appropriately
---  for targets that make use of this pragma.
+--  implementation and use of the Task_Info pragma. It is specialized
+--  appropriately for targets that make use of this pragma.
 
 --  Note: the compiler generates direct calls to this interface, via Rtsfind.
 --  Any changes to this interface may require corresponding compiler changes.
 
-with Unchecked_Deallocation;
+--  This unit may be used directly from an application program by providing
+--  an appropriate WITH, and the interface can be expected to remain stable.
+
 package System.Task_Info is
-pragma Elaborate_Body;
---  To ensure that a body is allowed
+   pragma Elaborate_Body;
+   --  To ensure that a body is allowed
 
    -----------------------------------------
    -- Implementation of Task_Info Feature --
@@ -88,13 +87,6 @@ pragma Elaborate_Body;
    --  implementations, but it must be a type that can be used as a
    --  discriminant (i.e. a scalar or access type).
 
-   type Task_Image_Type is access String;
-   --  Used to generate a meaningful identifier for tasks that are variables
-   --  and components of variables.
-
-   procedure Free_Task_Image is new
-     Unchecked_Deallocation (String, Task_Image_Type);
-
    Unspecified_Task_Info : constant Task_Info_Type := Default_Scope;
    --  Value passed to task in the absence of a Task_Info pragma