29.01.2011 23:41, Paul Ishenin wrote:
I also noticed that you check only unit symtables. I don't know what
if you add a class helper into a record/class/object type section?
This code works in delphi:
program Project42;
{$APPTYPE CONSOLE}
type
TFoo = class
class procedure DoSomething; static;
type
TFooHelper = class helper for TFoo
class procedure HelpSomehow; static;
end;
end;
{ TFoo.TFooHelper }
class procedure TFoo.TFooHelper.HelpSomehow;
begin
WriteLn('In Help somehow');
end;
{ TFoo }
class procedure TFoo.DoSomething;
begin
WriteLn('In DoSomething');
end;
begin
TFoo.DoSomething;
TFoo.HelpSomehow;
end.
Best regards,
Paul Ishenin
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
