mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:18:30 +02:00
c6733ed9a5
can create ambiguities for the parser in case the field names also exist
as modifiers (TP- and Delphi-compatible, mantis #13971) + tests
* fixed tests that broke because of this change
git-svn-id: trunk@13334 -
32 lines
430 B
ObjectPascal
32 lines
430 B
ObjectPascal
{$mode objfpc}
|
|
{$inline on}
|
|
|
|
unit tw7975;
|
|
|
|
interface
|
|
|
|
type
|
|
tc = class
|
|
pref: string;
|
|
parent: tc;
|
|
function t(const s: string): string; virtual;
|
|
end;
|
|
|
|
function test(c: tc): string; inline;
|
|
|
|
implementation
|
|
|
|
function tc.t(const s: string): string;
|
|
begin
|
|
result := s + ' -- passed t';
|
|
end;
|
|
|
|
function test(c: tc): string; inline;
|
|
begin
|
|
c.pref := 'bla';
|
|
c.parent := c;
|
|
result := c.parent.t('a'+c.pref);
|
|
end;
|
|
|
|
end.
|