mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 18:09:30 +02:00
Fix for Mantis #29321.
pexpr.pas, postfixoperators: * also handle type helpers for static arrays + added test git-svn-id: trunk@32845 -
This commit is contained in:
parent
5456960d54
commit
61b12af82b
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -14908,6 +14908,7 @@ tests/webtbs/tw2923.pp svneol=native#text/plain
|
||||
tests/webtbs/tw29250.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw2926.pp svneol=native#text/plain
|
||||
tests/webtbs/tw2927.pp svneol=native#text/plain
|
||||
tests/webtbs/tw29321.pp svneol=native#text/pascal
|
||||
tests/webtbs/tw2942a.pp svneol=native#text/plain
|
||||
tests/webtbs/tw2942b.pp svneol=native#text/plain
|
||||
tests/webtbs/tw2943.pp svneol=native#text/plain
|
||||
|
@ -2369,12 +2369,13 @@ implementation
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Message(parser_e_invalid_qualifier);
|
||||
p1.destroy;
|
||||
p1:=cerrornode.create;
|
||||
consume(_ID);
|
||||
end;
|
||||
if (token<>_ID) or not try_type_helper(p1,nil) then
|
||||
begin
|
||||
Message(parser_e_invalid_qualifier);
|
||||
p1.destroy;
|
||||
p1:=cerrornode.create;
|
||||
consume(_ID);
|
||||
end;
|
||||
end;
|
||||
variantdef:
|
||||
begin
|
||||
|
24
tests/webtbs/tw29321.pp
Normal file
24
tests/webtbs/tw29321.pp
Normal file
@ -0,0 +1,24 @@
|
||||
{ %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.
|
Loading…
Reference in New Issue
Block a user