paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 22:28:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix of Erroneous reading of the value of the StackLength variable at program start based on issue report by Sergey Larin, resolves #40211

Browse Source
This commit is contained in:
florian 2023-03-21 22:37:40 +01:00
parent 488c389b9b
commit 3e3b96e088
4 changed files with 24 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/linux/x86_64/si_c.inc
View File

@ -88,8 +88,9 @@ procedure main_stub; assembler; nostackframe;
movq %rsp,TEntryInformation.OS.stkptr(%rdi)
{ store stack length }
movq StackLength@GOTPCREL(%rip),%rax
movq %rax,TEntryInformation.OS.stklen(%rdi)
movq StackLength@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq %rax,TEntryInformation.OS.stklen(%rdi)
{ store pointer to haltproc }
movq _FPC_libc_haltproc@GOTPCREL(%rip),%rax

1
rtl/linux/x86_64/si_g.inc
View File

@ -85,6 +85,7 @@ procedure main_stub; assembler; nostackframe;
{ store stack length }
movq StackLength@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq %rax,TEntryInformation.OS.stklen(%rdi)
{ store pointer to haltproc }

1
rtl/linux/x86_64/si_prc.inc
View File

@ -66,6 +66,7 @@ procedure _FPC_proc_start; assembler; nostackframe; public name '_start';
{ store stack length }
movq StackLength@GOTPCREL(%rip),%rax
movq (%rax),%rax
movq %rax,TEntryInformation.OS.stklen(%r10)
{ store pointer to haltproc }

19
tests/webtbs/tw40211.pp Normal file
View File

@ -0,0 +1,19 @@
{ %opt=-Ct -Cs7340032 }
{ %target=win32,win64,linux,freebsd,darwin,openbsd }
program project1;
{$mode objfpc}
function BigStack: Integer;
var
buf: array[0..6*1024*1014] of Byte;
begin
buf[0] := 1;
buf[High(buf)] := 2;
Result := buf[0] + buf[High(buf)];
end;
begin
if BigStack <> 3 then
Halt(1);
end.