Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/libgnarl/a-dispat.ads @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
11 -- copy and modify this specification, provided that if you redistribute a -- 11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. -- 12 -- modified version, any changes that you have made are clearly indicated. --
13 -- -- 13 -- --
14 ------------------------------------------------------------------------------ 14 ------------------------------------------------------------------------------
15 15
16 with Ada.Task_Identification;
17
16 package Ada.Dispatching is 18 package Ada.Dispatching is
17 pragma Preelaborate (Dispatching); 19 pragma Preelaborate (Dispatching);
18 20
19 procedure Yield with 21 procedure Yield with
20 Global => null; 22 Global => (In_Out => Ada.Task_Identification.Tasking_State);
21 23
22 Dispatching_Policy_Error : exception; 24 Dispatching_Policy_Error : exception;
23 end Ada.Dispatching; 25 end Ada.Dispatching;