paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 19:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* win64 has always SetThreadStackGuarantee

Browse Source
This commit is contained in:
florian 2024-01-26 21:42:26 +01:00
parent a774075f2f
commit acb6c7f36b
3 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win/sysos.inc
View File

@ -273,8 +273,14 @@ type
function GetModuleHandle(p : PAnsiChar) : THandle;
stdcall;external KernelDLL name 'GetModuleHandleA';
{$ifdef win64}
{ all win64 versions have this function, including 64 bit XP }
function SetThreadStackGuarantee(StackSizeInBytes : PPtrUint) : BOOL;
stdcall;external KernelDLL name 'SetThreadStackGuarantee';
{$else win64}
var
SetThreadStackGuarantee: function(StackSizeInBytes : PPtrUint) : BOOL; stdcall;
{$endif win64}
{$else WINCE}
{ module functions }

2
rtl/win/systhrd.inc
View File

@ -230,7 +230,9 @@ var
begin
InitThread(ti.stklen);
{$ifndef wince}
{$ifdef win32}
if Assigned(SetThreadStackGuarantee) then
{$endif win32}
SetThreadStackGuarantee(@StackMargin);
{$endif wince}
end;

4
rtl/win64/system.pp
View File

@ -478,9 +478,7 @@ initialization
{ pass dummy value }
StackLength := CheckInitialStkLen($1000000);
StackBottom := StackTop - StackLength;
CodePointer(SetThreadStackGuarantee) := WinGetProcAddress(WinGetModuleHandleW(KernelDLL), 'SetThreadStackGuarantee');
if Assigned(SetThreadStackGuarantee) then
SetThreadStackGuarantee(@StackMargin);
SetThreadStackGuarantee(@StackMargin);
{ get some helpful informations }
GetStartupInfo(@startupinfo);