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

Also reset check_valid_var after calling var_para_allowed

Browse Source
This commit is contained in:
Pierre Muller 2024-02-23 15:39:27 +00:00
parent 3447512e29
commit 37c3e86c7f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/htypechk.pas
View File

@ -2946,8 +2946,8 @@ implementation
is passed. This is to prevent that the change is permanent }
currpt:=pt;
releasecurrpt:=false;
{ Should we check if the callparanode.left is valid for var }
check_valid_var:=true;
{ Should we check if the callparanode.left is valid for var }
check_valid_var:=true;
{ retrieve current parameter definitions to compares }
eq:=te_incompatible;
def_from:=currpt.resultdef;
@ -3163,7 +3163,7 @@ implementation
begin
eq:=te_convert_l1; // don't allow to pass different ansistring types to each-other
check_valid_var:=false;
end
end
else
eq:=compare_defs_ext(def_from,def_to,currpt.left.nodetype,convtype,pdoper,cdoptions);
@ -3176,7 +3176,8 @@ implementation
{ para requires an equal type so the previous found
match was not good enough, reset to incompatible }
eq:=te_incompatible;
var_para_allowed(eq,currpt.resultdef,currpara.vardef,currpt.left)
var_para_allowed(eq,currpt.resultdef,currpara.vardef,currpt.left);
check_valid_var:=false;
end
else
para_allowed(eq,currpt,def_to);