paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-21 05:02:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Correct check on published array properties

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-12-15 17:12:28 +01:00
parent 46049de4cc
commit edb3b426ae
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/pdecvar.pas
View File

@ -391,7 +391,10 @@ implementation
{ property parameters ? }
if try_to_consume(_LECKKLAMMER) then
begin
if (p.visibility=vis_published) then
// Published indexed properties are allowed in Delphi in interfaces compiled with {$M+}.
if (p.visibility=vis_published)
and (astruct is tobjectdef)
and not (tobjectdef(aStruct).objecttype in [odt_interfacecom,odt_dispinterface]) then
Message(parser_e_cant_publish_that_property);
{ create a list of the parameters }
p.parast:=tparasymtable.create(nil,0);