mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 15:47:54 +02:00
b945e66e28
* increase ppu version + added test * adjust ppudump to handle attributes as well ToDo: output parameter nodes as well git-svn-id: trunk@42401 -
37 lines
391 B
ObjectPascal
37 lines
391 B
ObjectPascal
unit ucustomattr14b;
|
|
|
|
{$mode objfpc}{$H+}
|
|
{$modeswitch prefixedattributes}
|
|
|
|
interface
|
|
|
|
uses
|
|
ucustomattr14a;
|
|
|
|
type
|
|
[TTest]
|
|
TMyClass = class
|
|
|
|
end;
|
|
|
|
[TTest2('Hello World')]
|
|
TMyClass2 = class
|
|
|
|
end;
|
|
|
|
{$M+}
|
|
TMyClass3 = class
|
|
private
|
|
fTest: LongInt;
|
|
published
|
|
[TTest2('Foobar')]
|
|
[TTest]
|
|
property Test: LongInt read fTest;
|
|
end;
|
|
{$M-}
|
|
|
|
implementation
|
|
|
|
end.
|
|
|