diff options
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/s-parame-mingw.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/s-taprop-mingw.adb | 9 |
2 files changed, 14 insertions, 1 deletions
diff --git a/gcc/ada/s-parame-mingw.adb b/gcc/ada/s-parame-mingw.adb index d77ebdb..88d660f 100644 --- a/gcc/ada/s-parame-mingw.adb +++ b/gcc/ada/s-parame-mingw.adb @@ -56,6 +56,12 @@ package body System.Parameters is -- Default_Stack_Size -- ------------------------ + -- Note that on Windows this is not really the default stack size. It + -- is the default used for the stack checking support but there is no + -- way to set the thread stack size at runtime. Only the initial thread + -- stack size can be specified. The real stack size limit is set at + -- link time. See GNU/Linker --stack=x,y option. + function Default_Stack_Size return Size_Type is begin return 20 * 1024; diff --git a/gcc/ada/s-taprop-mingw.adb b/gcc/ada/s-taprop-mingw.adb index 5656661..e85d903 100644 --- a/gcc/ada/s-taprop-mingw.adb +++ b/gcc/ada/s-taprop-mingw.adb @@ -843,6 +843,13 @@ package body System.Task_Primitives.Operations is Priority : System.Any_Priority; Succeeded : out Boolean) is + pragma Unreferenced (Stack_Size); + + Initial_Stack_Size : constant := 1024; + -- We set the initial stack size to 1024. On Windows there is no way to + -- fix a task stack size. Only the initial stack size can be set, the + -- operating system will raise the task stack size if needed. + hTask : HANDLE; TaskId : aliased DWORD; pTaskParameter : System.OS_Interface.PVOID; @@ -856,7 +863,7 @@ package body System.Task_Primitives.Operations is hTask := CreateThread (null, - DWORD (Adjust_Storage_Size (Stack_Size)), + Initial_Stack_Size, Entry_Point, pTaskParameter, DWORD (Create_Suspended), |