]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
ada: Restore dependency on System.OS_Interface in System.Task_Primitives
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 14 Mar 2024 18:48:59 +0000 (19:48 +0100)
committerMarc Poulhiès <poulhies@adacore.com>
Fri, 17 May 2024 08:21:06 +0000 (10:21 +0200)
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

index a51f752d8056de071262a0dad5d0a89fb67c2261..6eae97d4af65b051f9f8d708cbb2305d985b7aeb 100644 (file)
@@ -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).