From 22928da141a8bbee9994fbae00c595877ed060ad Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 14 Mar 2024 19:48:59 +0100 Subject: [PATCH] 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. --- 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 a51f752d805..6eae97d4af6 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). -- 2.47.2