diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2024-03-14 19:48:59 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-17 10:21:06 +0200 |
| commit | 22928da141a8bbee9994fbae00c595877ed060ad (patch) | |
| tree | 9c08f4884a57aac90283e654592262f5bfeb4b3e /gcc/ada/libgnarl | |
| parent | 9ff83f013eb1ea2eac11c17cc3be2024e96101a5 (diff) | |
| download | gcc-22928da141a8bbee9994fbae00c595877ed060ad.zip gcc-22928da141a8bbee9994fbae00c595877ed060ad.tar.gz gcc-22928da141a8bbee9994fbae00c595877ed060ad.tar.bz2 | |
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.
Diffstat (limited to 'gcc/ada/libgnarl')
| -rw-r--r-- | gcc/ada/libgnarl/s-taspri__mingw.ads | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/libgnarl/s-taspri__mingw.ads b/gcc/ada/libgnarl/s-taspri__mingw.ads index a51f752..6eae97d 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). |