paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

valid_property is only used for calln. Fields are always allowed

Browse Source
This commit is contained in:
peter 2005-03-28 15:04:40 +00:00
parent 3446cb0f2f
commit 6e3d03da7e
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/htypechk.pas
View File

@ -873,7 +873,8 @@ implementation
{ property allowed? calln has a property check itself } { property allowed? calln has a property check itself }
if (nf_isproperty in hp.flags) then if (nf_isproperty in hp.flags) then
begin begin
if (valid_property in opts) then if (hp.nodetype<>calln) or
(valid_property in opts) then
result:=true result:=true
else else
begin begin
@ -1201,7 +1202,7 @@ implementation
function valid_for_formal_const(p : tnode) : boolean; function valid_for_formal_const(p : tnode) : boolean;
begin begin
valid_for_formal_const:=(p.resulttype.def.deftype=formaldef) or valid_for_formal_const:=(p.resulttype.def.deftype=formaldef) or
valid_for_assign(p,[valid_void,valid_const,valid_property]); valid_for_assign(p,[valid_void,valid_const]);
end; end;
@ -2048,7 +2049,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.120 2005-03-25 22:20:18 peter Revision 1.121 2005-03-28 15:04:40 peter
valid_property is only used for calln. Fields are always allowed
Revision 1.120 2005/03/25 22:20:18 peter
* add hint when passing an uninitialized variable to a var parameter * add hint when passing an uninitialized variable to a var parameter
Revision 1.119 2005/03/10 00:15:20 peter Revision 1.119 2005/03/10 00:15:20 peter