mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
25 lines
349 B
ObjectPascal
25 lines
349 B
ObjectPascal
{ %RESULT=202 }
|
|
{ %opt=-gl -Ct }
|
|
|
|
{$mode objfpc}
|
|
|
|
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;
|
|
|
|
begin
|
|
Form1:=TForm1.Create;
|
|
Form1.Button1Click(nil);
|
|
end.
|