mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 11:59:36 +02:00
50 lines
562 B
ObjectPascal
50 lines
562 B
ObjectPascal
{ Old file: tbs0023.pp }
|
|
{ tests handling of self pointer in nested methods OK 0.9.3 }
|
|
|
|
type
|
|
tobject = object
|
|
a : longint;
|
|
procedure t1;
|
|
procedure t2;virtual;
|
|
constructor init;
|
|
end;
|
|
|
|
procedure tobject.t1;
|
|
|
|
procedure nested1;
|
|
|
|
begin
|
|
writeln;
|
|
a:=1;
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
procedure tobject.t2;
|
|
|
|
procedure nested1;
|
|
|
|
begin
|
|
writeln;
|
|
a:=1;
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
constructor tobject.init;
|
|
|
|
procedure nested1;
|
|
|
|
begin
|
|
writeln;
|
|
a:=1;
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
|
|
begin
|
|
end. |