paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 23:50:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* properties are allowed as formal const parameters as well

Browse Source
This commit is contained in:
florian 2004-05-24 21:24:40 +00:00
parent 25b9e0d6e5
commit ab316ac66f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/htypechk.pas
View File

@ -1089,7 +1089,7 @@ implementation
function valid_for_formal_const(p : tnode) : boolean;
begin
valid_for_formal_const:=is_constnode(p) or is_procsym_load(p) or (p.resulttype.def.deftype=formaldef) or
valid_for_assign(p,[valid_void,valid_const]);
valid_for_assign(p,[valid_void,valid_const,valid_property]);
end;
@ -1904,7 +1904,10 @@ implementation
end.
{
$Log$
Revision 1.90 2004-05-24 21:04:31 florian
Revision 1.91 2004-05-24 21:24:40 florian
* properties are allowed as formal const parameters as well
Revision 1.90 2004/05/24 21:04:31 florian
* fixed more formal const problems
Revision 1.89 2004/05/24 20:39:41 florian