From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 14 Mar 2024 18:48:59 +0000 (+0100)
Subject: ada: Restore dependency on System.OS_Interface in System.Task_Primitives
X-Git-Tag: basepoints/gcc-16~8936
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=22928da141a8bbee9994fbae00c595877ed060ad;p=thirdparty%2Fgcc.git

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 --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).