diff options
Diffstat (limited to 'gcc/ada/libgnarl/s-taskin.ads')
| -rw-r--r-- | gcc/ada/libgnarl/s-taskin.ads | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/libgnarl/s-taskin.ads b/gcc/ada/libgnarl/s-taskin.ads index f01dbdc..db1e3b9 100644 --- a/gcc/ada/libgnarl/s-taskin.ads +++ b/gcc/ada/libgnarl/s-taskin.ads @@ -368,6 +368,14 @@ package System.Tasking is -- Used to represent protected procedures to be executed when task -- terminates. + type Initialization_Handler is access procedure; + pragma Favor_Top_Level (Initialization_Handler); + -- Use to represent procedures to be executed at task initialization. + + Global_Initialization_Handler : Initialization_Handler := null; + pragma Atomic (Global_Initialization_Handler); + -- Global handler called when each task initializes. + ------------------------------------ -- Dispatching domain definitions -- ------------------------------------ |