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

* fixed another formal const problem caused by yesterday's changes

Browse Source
This commit is contained in:
florian 2004-05-25 21:27:35 +00:00
parent c67af8573f
commit ab2b7b3889
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/htypechk.pas
View File

@ -881,6 +881,11 @@ implementation
end; end;
exit; exit;
end; end;
if (Valid_Const in opts) and is_constnode(hp) then
begin
valid_for_assign:=true;
exit;
end;
case hp.nodetype of case hp.nodetype of
temprefn : temprefn :
begin begin
@ -1088,7 +1093,7 @@ implementation
function valid_for_formal_const(p : tnode) : boolean; function valid_for_formal_const(p : tnode) : boolean;
begin begin
valid_for_formal_const:=is_constnode(p) or is_procsym_load(p) or (p.resulttype.def.deftype=formaldef) or valid_for_formal_const:=is_procsym_load(p) or (p.resulttype.def.deftype=formaldef) or
valid_for_assign(p,[valid_void,valid_const,valid_property]); valid_for_assign(p,[valid_void,valid_const,valid_property]);
end; end;
@ -1904,7 +1909,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.91 2004-05-24 21:24:40 florian Revision 1.92 2004-05-25 21:27:35 florian
* fixed another formal const problem caused by yesterday's changes
Revision 1.91 2004/05/24 21:24:40 florian
* properties are allowed as formal const parameters as well * properties are allowed as formal const parameters as well
Revision 1.90 2004/05/24 21:04:31 florian Revision 1.90 2004/05/24 21:04:31 florian