diff options
Diffstat (limited to 'gcc/ada/s-tasinf.ads')
| -rw-r--r-- | gcc/ada/s-tasinf.ads | 22 |
1 files changed, 8 insertions, 14 deletions
diff --git a/gcc/ada/s-tasinf.ads b/gcc/ada/s-tasinf.ads index 4ea77e46254..18b6ce6c3f3 100644 --- a/gcc/ada/s-tasinf.ads +++ b/gcc/ada/s-tasinf.ads @@ -5,9 +5,8 @@ -- S Y S T E M . T A S K _ I N F O -- -- -- -- S p e c -- --- (Compiler Interface) -- -- -- --- 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- -- @@ -33,16 +32,18 @@ ------------------------------------------------------------------------------ -- 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 -- @@ -86,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 |