diff options
Diffstat (limited to 'gcc/ada/s-soflin.ads')
| -rw-r--r-- | gcc/ada/s-soflin.ads | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/gcc/ada/s-soflin.ads b/gcc/ada/s-soflin.ads index 52306076ad1..eaef71b0181 100644 --- a/gcc/ada/s-soflin.ads +++ b/gcc/ada/s-soflin.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- $Revision: 1.15 $ +-- $Revision$ -- -- -- Copyright (C) 1992-2001, Free Software Foundation, Inc. -- -- -- @@ -84,6 +84,9 @@ package System.Soft_Links is type Get_Stack_Access_Call is access function return Stack_Checking.Stack_Access; + type Task_Name_Call is access + function return String; + -- Suppress checks on all these types, since we know corrresponding -- values can never be null (the soft links are always initialized). @@ -98,6 +101,7 @@ package System.Soft_Links is pragma Suppress (Access_Check, Set_EOA_Call); pragma Suppress (Access_Check, Timed_Delay_Call); pragma Suppress (Access_Check, Get_Stack_Access_Call); + pragma Suppress (Access_Check, Task_Name_Call); -- The following one is not related to tasking/no-tasking but to the -- traceback decorators for exceptions. @@ -258,6 +262,14 @@ package System.Soft_Links is Timed_Delay : Timed_Delay_Call; + -------------------------- + -- Task Name Soft-Links -- + -------------------------- + + function Task_Name_NT return String; + + Task_Name : Task_Name_Call := Task_Name_NT'Access; + ------------------------------------- -- Exception Tracebacks Soft-Links -- ------------------------------------- |
