diff options
Diffstat (limited to 'gcc/ada/libgnarl/g-thread.adb')
| -rw-r--r-- | gcc/ada/libgnarl/g-thread.adb | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/ada/libgnarl/g-thread.adb b/gcc/ada/libgnarl/g-thread.adb index 90d51afb8c9..59c444b1f9e 100644 --- a/gcc/ada/libgnarl/g-thread.adb +++ b/gcc/ada/libgnarl/g-thread.adb @@ -33,6 +33,7 @@ with Ada.Task_Identification; use Ada.Task_Identification; with System.Task_Primitives.Operations; with System.Tasking; with System.Tasking.Stages; use System.Tasking.Stages; +with System.Tasking.Utilities; with System.OS_Interface; use System.OS_Interface; with System.Soft_Links; use System.Soft_Links; with Ada.Unchecked_Conversion; @@ -172,6 +173,15 @@ package body GNAT.Threads is Thr.all := Task_Primitives.Operations.Get_Thread_Id (To_Id (Id)); end Get_Thread; + ---------------------- + -- Make_Independent -- + ---------------------- + + function Make_Independent return Boolean is + begin + return System.Tasking.Utilities.Make_Independent; + end Make_Independent; + ---------------- -- To_Task_Id -- ---------------- |