mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 22:27:57 +02:00
8fe981cccb
* also give a warning when a field/parameter/local variable masks an
identifier from a class helper that's in scope
git-svn-id: trunk@29498 -
25 lines
247 B
ObjectPascal
25 lines
247 B
ObjectPascal
{ %fail }
|
|
{ %opt=-vw -Sew }
|
|
|
|
program thelper;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TTest = class;
|
|
|
|
TTestHelper = class helper for TTest
|
|
procedure Test;
|
|
end;
|
|
|
|
TTest = class
|
|
Test: LongInt;
|
|
end;
|
|
|
|
procedure TTestHelper.Test;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|