From: Arnaud Charlet <charlet@adacore.com>
Date: Thu, 23 Sep 2021 10:04:41 +0000 (-0400)
Subject: [Ada] Add comments in Ada.Task_Initialization
X-Git-Tag: basepoints/gcc-13~4142
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3a0302e07c4505933b59e7c4f687d24585ecc9f1;p=thirdparty%2Fgcc.git

[Ada] Add comments in Ada.Task_Initialization

gcc/ada/

	* libgnarl/a-tasini.ads (Set_Initialization_Handler): Update
	comments.
---

diff --git a/gcc/ada/libgnarl/a-tasini.ads b/gcc/ada/libgnarl/a-tasini.ads
index 2366145da04f..a754c06f2419 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);