aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/libgnarl
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/libgnarl')
-rw-r--r--gcc/ada/libgnarl/s-taspri__mingw.ads3
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).