Mercurial > hg > CbC > CbC_gcc
comparison gcc/ada/libgnarl/s-tasren.adb @ 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 -- S Y S T E M . T A S K I N G . R E N D E Z V O U S -- | 5 -- S Y S T E M . T A S K I N G . R E N D E Z V O U S -- |
6 -- -- | 6 -- -- |
7 -- B o d y -- | 7 -- B o d y -- |
8 -- -- | 8 -- -- |
9 -- Copyright (C) 1992-2017, Free Software Foundation, Inc. -- | 9 -- Copyright (C) 1992-2018, Free Software Foundation, Inc. -- |
10 -- -- | 10 -- -- |
11 -- GNARL is free software; you can redistribute it and/or modify it under -- | 11 -- GNARL 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- -- |
1136 pragma Assert (Parent.Awake_Count > 0); | 1136 pragma Assert (Parent.Awake_Count > 0); |
1137 | 1137 |
1138 Parent.Awake_Count := Parent.Awake_Count + 1; | 1138 Parent.Awake_Count := Parent.Awake_Count + 1; |
1139 | 1139 |
1140 if Parent.Common.State = Master_Completion_Sleep | 1140 if Parent.Common.State = Master_Completion_Sleep |
1141 and then Acceptor.Master_of_Task = Parent.Master_Within | 1141 and then Acceptor.Master_Of_Task = Parent.Master_Within |
1142 then | 1142 then |
1143 Parent.Common.Wait_Count := | 1143 Parent.Common.Wait_Count := |
1144 Parent.Common.Wait_Count + 1; | 1144 Parent.Common.Wait_Count + 1; |
1145 end if; | 1145 end if; |
1146 end if; | 1146 end if; |