diff options
Diffstat (limited to 'gcc/ada/s-taprop-mingw.adb')
-rw-r--r-- | gcc/ada/s-taprop-mingw.adb | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/gcc/ada/s-taprop-mingw.adb b/gcc/ada/s-taprop-mingw.adb index 7d7299f..049a63d 100644 --- a/gcc/ada/s-taprop-mingw.adb +++ b/gcc/ada/s-taprop-mingw.adb @@ -846,28 +846,17 @@ package body System.Task_Primitives.Operations is hTask : HANDLE; TaskId : aliased DWORD; pTaskParameter : System.OS_Interface.PVOID; - dwStackSize : DWORD; Result : DWORD; Entry_Point : PTHREAD_START_ROUTINE; begin pTaskParameter := To_Address (T); - if Stack_Size = Unspecified_Size then - dwStackSize := DWORD (Default_Stack_Size); - - elsif Stack_Size < Minimum_Stack_Size then - dwStackSize := DWORD (Minimum_Stack_Size); - - else - dwStackSize := DWORD (Stack_Size); - end if; - Entry_Point := To_PTHREAD_START_ROUTINE (Wrapper); hTask := CreateThread (null, - dwStackSize, + DWORD (Adjust_Storage_Size (Stack_Size)), Entry_Point, pTaskParameter, DWORD (Create_Suspended), |