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

* don't call proc_to_procvar for explicit typecasts

Browse Source
This commit is contained in:
peter 2003-10-31 18:42:03 +00:00
parent 91d364626c
commit 9b0dda9f42
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncnv.pas
View File

@ -1166,8 +1166,9 @@ implementation
convtype:=tc_proc_2_procvar;
{ Now check if the procedure we are going to assign to
the procvar, is compatible with the procvar's type }
if proc_to_procvar_equal(tprocsym(tloadnode(left).symtableentry).first_procdef,
tprocvardef(resulttype.def),true)=te_incompatible then
if not(nf_explicit in flags) and
(proc_to_procvar_equal(tprocsym(tloadnode(left).symtableentry).first_procdef,
tprocvardef(resulttype.def),true)=te_incompatible) then
IncompatibleTypes(tprocsym(tloadnode(left).symtableentry).first_procdef,resulttype.def);
exit;
end;
@ -1209,8 +1210,9 @@ implementation
convtype:=tc_proc_2_procvar;
{ Now check if the procedure we are going to assign to
the procvar, is compatible with the procvar's type }
if proc_to_procvar_equal(currprocdef,
tprocvardef(resulttype.def),true)=te_incompatible then
if not(nf_explicit in flags) and
(proc_to_procvar_equal(currprocdef,
tprocvardef(resulttype.def),true)=te_incompatible) then
IncompatibleTypes(left.resulttype.def,resulttype.def);
exit;
end;
@ -2120,7 +2122,10 @@ begin
end.
{
$Log$
Revision 1.128 2003-10-29 22:01:20 florian
Revision 1.129 2003-10-31 18:42:03 peter
* don't call proc_to_procvar for explicit typecasts
Revision 1.128 2003/10/29 22:01:20 florian
* fixed passing of dyn. arrays to open array parameters
Revision 1.127 2003/10/28 15:36:01 peter