https://gcc.gnu.org/g:22928da141a8bbee9994fbae00c595877ed060ad
commit r15-617-g22928da141a8bbee9994fbae00c595877ed060ad
Author: Eric Botcazou <ebotca...@adacore.com>
Date: Thu Mar 14 19:48:59 2024 +0100
ada: Restore dependency on System.OS_Interface in System.Task_Primitives
The dependency is relied upon by the binder to drag the tasking runtime.
gcc/ada/
* libgnarl/s-taspri__mingw.ads: Add clause for System.OS_Interface.
(Private_Data): Change type of Thread component.
Diff:
---
gcc/ada/libgnarl/s-taspri__mingw.ads | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/gcc/ada/libgnarl/s-taspri__mingw.ads
b/gcc/ada/libgnarl/s-taspri__mingw.ads
index a51f752d8056..6eae97d4af65 100644
--- a/gcc/ada/libgnarl/s-taspri__mingw.ads
+++ b/gcc/ada/libgnarl/s-taspri__mingw.ads
@@ -31,6 +31,7 @@
-- This is a NT (native) version of this package
+with System.OS_Interface;
with System.OS_Locks;
with System.Win32;
@@ -87,7 +88,7 @@ private
end record;
type Private_Data is limited record
- Thread : aliased Win32.HANDLE;
+ Thread : aliased System.OS_Interface.Thread_Id;
pragma Atomic (Thread);
-- Thread field may be updated by two different threads of control.
-- (See, Enter_Task and Create_Task in s-taprop.adb).
