mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 20:33:13 +02:00
30 lines
275 B
ObjectPascal
30 lines
275 B
ObjectPascal
{ %fail }
|
|
|
|
unit tw34821;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
type TStrBuilder = class
|
|
procedure append(); inline;
|
|
end;
|
|
|
|
type TTest = object
|
|
procedure xyz;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TStrBuilder.append();
|
|
begin
|
|
TTest.xyz;
|
|
end;
|
|
|
|
procedure TTest.xyz;
|
|
begin
|
|
end;
|
|
|
|
end.
|
|
|