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

* write additional info for the tests, might help to identify spurious failures

Browse Source
This commit is contained in:
florian 2024-11-17 14:20:20 +01:00
parent 078e2eabf9
commit c48d8e9708
2 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/test/tstack.pp
View File

@ -1,3 +1,8 @@
{$ifdef linux}
uses
baseunix;
{$endif linux}
{$ifdef CPUAVR}
{ avr does not support an exitproc }
begin
@ -60,7 +65,18 @@ begin
exitproc:=saveexit;
end;
{$ifdef linux}
var
limits : TRLimit;
{$endif linux}
begin
{$ifdef linux}
FpGetRLimit(RLIMIT_STACK, @limits);
writeln('Cur: ',limits.rlim_cur);
writeln('Max: ',limits.rlim_max);
writeln('StackLength: ',StackLength);
{$endif linux}
saveexit:=exitproc;
exitproc:=@stack_check_exit;
x:=inf_rec(5000);

9
tests/webtbs/tw40598.pp
View File

@ -17,8 +17,17 @@ end;
var
Form1 : TForm1;
{$ifdef linux}
limits : TRLimit;
{$endif linux}
begin
{$ifdef linux}
FpGetRLimit(RLIMIT_STACK, @limits);
writeln('Cur: ',limits.rlim_cur);
writeln('Max: ',limits.rlim_max);
writeln('StackLength: ',StackLength);
{$endif linux}
Form1:=TForm1.Create;
Form1.Button1Click(nil);
end.