mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
572012fad3
record or enum symtables are used (such as class helper methods)
(mantis #21808)
git-svn-id: trunk@21512 -
23 lines
181 B
ObjectPascal
23 lines
181 B
ObjectPascal
{$mode objfpc}
|
|
unit uw21808b;
|
|
|
|
interface
|
|
|
|
uses
|
|
uw21808a;
|
|
|
|
type
|
|
TH = class helper for TC
|
|
procedure Q;
|
|
end;
|
|
|
|
implementation
|
|
|
|
procedure TH.Q;
|
|
begin
|
|
Writeln(2);
|
|
end;
|
|
|
|
end.
|
|
|