Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/libgnarl/g-thread.ads @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children | 1830386684a0 |
comparison
equal
deleted
inserted
replaced
111:04ced10e8804 | 131:84e7813d76e9 |
---|---|
4 -- -- | 4 -- -- |
5 -- G N A T . T H R E A D S -- | 5 -- G N A T . T H R E A D S -- |
6 -- -- | 6 -- -- |
7 -- S p e c -- | 7 -- S p e c -- |
8 -- -- | 8 -- -- |
9 -- Copyright (C) 1998-2017, AdaCore -- | 9 -- Copyright (C) 1998-2018, AdaCore -- |
10 -- -- | 10 -- -- |
11 -- GNAT is free software; you can redistribute it and/or modify it under -- | 11 -- GNAT is free software; you can redistribute it and/or modify it under -- |
12 -- terms of the GNU General Public License as published by the Free Soft- -- | 12 -- terms of the GNU General Public License as published by the Free Soft- -- |
13 -- ware Foundation; either version 3, or (at your option) any later ver- -- | 13 -- ware Foundation; either version 3, or (at your option) any later ver- -- |
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- | 14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- |
144 return Ada.Task_Identification.Task_Id; | 144 return Ada.Task_Identification.Task_Id; |
145 -- Ada interface only. | 145 -- Ada interface only. |
146 -- Given a low level Id, as returned by Create_Thread, return a Task_Id, | 146 -- Given a low level Id, as returned by Create_Thread, return a Task_Id, |
147 -- so that operations in Ada.Task_Identification can be used. | 147 -- so that operations in Ada.Task_Identification can be used. |
148 | 148 |
149 function Make_Independent return Boolean; | |
150 -- If a procedure loads a shared library containing tasks, and that | |
151 -- procedure is considered to be a master by the compiler (because it | |
152 -- contains tasks or class-wide objects that might contain tasks), | |
153 -- then the tasks in the shared library need to call Make_Independent | |
154 -- because otherwise they will depend on the procedure that loaded the | |
155 -- shared library. | |
156 -- | |
157 -- See System.Tasking.Utilities.Make_Independent in s-tasuti.ads for | |
158 -- further documentation. | |
159 | |
149 end GNAT.Threads; | 160 end GNAT.Threads; |