Mercurial > hg > CbC > CbC_gcc

diff 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
line wrap: on
line diff
--- a/gcc/ada/libgnarl/a-dispat.ads	Thu Oct 25 07:37:49 2018 +0900
+++ b/gcc/ada/libgnarl/a-dispat.ads	Thu Feb 13 11:34:05 2020 +0900
@@ -13,11 +13,13 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
+with Ada.Task_Identification;
+
 package Ada.Dispatching is
    pragma Preelaborate (Dispatching);
 
    procedure Yield with
-     Global => null;
+     Global => (In_Out => Ada.Task_Identification.Tasking_State);
 
    Dispatching_Policy_Error : exception;
 end Ada.Dispatching;