mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:08:13 +02:00
572012fad3
record or enum symtables are used (such as class helper methods)
(mantis #21808)
git-svn-id: trunk@21512 -
20 lines
149 B
ObjectPascal
20 lines
149 B
ObjectPascal
{$mode objfpc}
|
|
unit uw21808a;
|
|
|
|
interface
|
|
|
|
type
|
|
TC = class
|
|
procedure P;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TC.P;
|
|
begin
|
|
Writeln(1);
|
|
end;
|
|
|
|
end.
|
|
|