mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
61b12af82b
pexpr.pas, postfixoperators: * also handle type helpers for static arrays + added test git-svn-id: trunk@32845 -
25 lines
272 B
ObjectPascal
25 lines
272 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw29321;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch typehelpers}
|
|
|
|
type
|
|
TVector = array[0..2] of Single;
|
|
|
|
TVectorHelper = type helper for TVector
|
|
public
|
|
procedure Add;
|
|
end;
|
|
|
|
procedure TVectorHelper.Add;
|
|
begin
|
|
end;
|
|
|
|
var
|
|
v: TVector;
|
|
begin
|
|
v.Add;
|
|
end.
|