paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 08:09:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't care about __stklen anymore

Browse Source 
git-svn-id: trunk@9028 -
This commit is contained in:
florian 2007-11-01 10:18:05 +00:00
parent 6a3ecebe6c
commit 78ca6925ba
3 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/system.inc
View File

@ -44,7 +44,11 @@ const
var
{ widechar, because also used by widestring -> pwidechar conversions }
emptychar : widechar;public name 'FPC_EMPTYCHAR';
{$ifndef FPC_NO_GENERIC_STACK_CHECK}
{ if the OS does the stack checking, we don't need any stklen from the
main program }
initialstklen : SizeUint;external name '__stklen';
{$endif FPC_NO_GENERIC_STACK_CHECK}
{ checks whether the given suggested size for the stack of the current
thread is acceptable. If this is the case, returns it unaltered.

12
rtl/win32/system.pp
View File

@ -1083,7 +1083,7 @@ begin
end;
end;
(* ProcessID cached to avoid repeated calls to GetCurrentProcess. *)
{ ProcessID cached to avoid repeated calls to GetCurrentProcess. }
var
ProcessID: SizeUInt;
@ -1093,9 +1093,10 @@ begin
GetProcessID := ProcessID;
end;
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
begin
result := stklen;
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;assembler;
asm
movl %fs:(4),%eax
subl %fs:(8),%eax
end;
{
@ -1105,7 +1106,8 @@ const
}
begin
StackLength := CheckInitialStkLen(InitialStkLen);
{ pass dummy value }
StackLength := CheckInitialStkLen($1000000);
StackBottom := StackTop - StackLength;
{ get some helpful informations }
GetStartupInfo(@startupinfo);

12
rtl/win64/system.pp
View File

@ -1136,17 +1136,19 @@ begin
end;
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;
begin
result := stklen;
function CheckInitialStkLen(stklen : SizeUInt) : SizeUInt;assembler;
asm
movq %gs:(8),%rax
subq %gs:(16),%rax
end;
begin
SysResetFPU;
SysResetFPU;
if not(IsLibrary) then
SysInitFPU;
StackLength := CheckInitialStkLen(InitialStkLen);
{ pass dummy value }
StackLength := CheckInitialStkLen($1000000);
StackBottom := StackTop - StackLength;
{ get some helpful informations }
GetStartupInfo(@startupinfo);