mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 00:28:05 +02:00
39 lines
627 B
ObjectPascal
39 lines
627 B
ObjectPascal
{ %RESULT=202 }
|
|
{ %opt=-gl -Ct }
|
|
|
|
{$mode objfpc}
|
|
|
|
{$ifdef linux}
|
|
uses
|
|
baseunix;
|
|
{$endif linux}
|
|
|
|
type
|
|
TForm1 = class
|
|
procedure Button1Click(Sender: TObject);
|
|
end;
|
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
writeln(hexstr(stackbottom));
|
|
writeln(hexstr(sptr));
|
|
Button1Click(self);
|
|
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.
|