paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 18:50:37 +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} {$ifdef CPUAVR}
{ avr does not support an exitproc } { avr does not support an exitproc }
begin begin
@ -60,7 +65,18 @@ begin
exitproc:=saveexit; exitproc:=saveexit;
end; end;
{$ifdef linux}
var
limits : TRLimit;
{$endif linux}
begin begin
{$ifdef linux}
FpGetRLimit(RLIMIT_STACK, @limits);
writeln('Cur: ',limits.rlim_cur);
writeln('Max: ',limits.rlim_max);
writeln('StackLength: ',StackLength);
{$endif linux}
saveexit:=exitproc; saveexit:=exitproc;
exitproc:=@stack_check_exit; exitproc:=@stack_check_exit;
x:=inf_rec(5000); x:=inf_rec(5000);

9
tests/webtbs/tw40598.pp
View File

@ -17,8 +17,17 @@ end;
var var
Form1 : TForm1; Form1 : TForm1;
{$ifdef linux}
limits : TRLimit;
{$endif linux}
begin 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:=TForm1.Create;
Form1.Button1Click(nil); Form1.Button1Click(nil);
end. end.