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

* make the resultdef of left and right equal when comparing a procvar

Browse Source 
with nil (for llvm)

git-svn-id: trunk@30954 -
This commit is contained in:
Jonas Maebe 2015-05-31 16:50:59 +00:00
parent 0d00c1a19d
commit e9800ad3f9
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nadd.pas
View File

@ -1982,6 +1982,10 @@ implementation
ctypeconvnode.create_internal(left,methodpointertype)); ctypeconvnode.create_internal(left,methodpointertype));
typecheckpass(left); typecheckpass(left);
end; end;
if lt=niln then
inserttypeconv_explicit(left,right.resultdef)
else
inserttypeconv_explicit(right,left.resultdef)
end end
{ support dynamicarray=nil,dynamicarray<>nil } { support dynamicarray=nil,dynamicarray<>nil }