mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
672afcdca2
implementation and "virtual" (if it's a virtual method), as "virtual"
does not get repeated in the implementation and hence no conflicts get
checked by default (mantis #32605)
git-svn-id: trunk@37887 -
40 lines
661 B
ObjectPascal
40 lines
661 B
ObjectPascal
{ %fail }
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
program InlineClass;
|
|
|
|
type
|
|
TAncestor = class
|
|
public
|
|
procedure TestMethod; virtual;
|
|
end;
|
|
|
|
TDerived = class(TAncestor)
|
|
public
|
|
procedure TestMethod; override;
|
|
end;
|
|
|
|
procedure TAncestor.TestMethod; inline; // Virtual method with an 'inline' hint.
|
|
begin
|
|
WriteLn('Ancestor Method');
|
|
end;
|
|
|
|
procedure TDerived.TestMethod;
|
|
begin
|
|
WriteLn('Derived Method');
|
|
end;
|
|
|
|
var
|
|
TestClass: TAncestor;
|
|
begin
|
|
TestClass := TDerived.Create;
|
|
try
|
|
TestClass.TestMethod; // <-- TAncestor.TestMethod is called instead of TDerived.TestMethod
|
|
finally
|
|
TestClass.Free;
|
|
end;
|
|
end.
|