From 3a0302e07c4505933b59e7c4f687d24585ecc9f1 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Thu, 23 Sep 2021 06:04:41 -0400 Subject: [Ada] Add comments in Ada.Task_Initialization gcc/ada/ * libgnarl/a-tasini.ads (Set_Initialization_Handler): Update comments. --- gcc/ada/libgnarl/a-tasini.ads | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'gcc/ada/libgnarl/a-tasini.ads') diff --git a/gcc/ada/libgnarl/a-tasini.ads b/gcc/ada/libgnarl/a-tasini.ads index 2366145..a754c06 100644 --- a/gcc/ada/libgnarl/a-tasini.ads +++ b/gcc/ada/libgnarl/a-tasini.ads @@ -36,7 +36,11 @@ package Ada.Task_Initialization is type Initialization_Handler is access procedure; procedure Set_Initialization_Handler (Handler : Initialization_Handler); - -- Set the global task initialization handler to Handler + -- Set the global task initialization handler to Handler. + -- Note that only tasks created after this procedure is called will trigger + -- a call to Handler. You can use Ada's elaboration rules and pragma + -- Elaborate_All, or the pragma Linker_Constructor to ensure this + -- procedure is called early. private pragma Favor_Top_Level (Initialization_Handler); -- cgit v1.1