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

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

Browse Source 
with nil (for llvm)

git-svn-id: trunk@32902 -
This commit is contained in:
Jonas Maebe 2016-01-10 14:01:39 +00:00
parent f5a3bab7d4
commit 4ae8dcc91e
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

@ -1995,6 +1995,10 @@ implementation
begin begin
if not(nodetype in [equaln,unequaln]) then if not(nodetype in [equaln,unequaln]) then
CGMessage3(type_e_operator_not_supported_for_types,node2opstr(nodetype),ld.typename,rd.typename); CGMessage3(type_e_operator_not_supported_for_types,node2opstr(nodetype),ld.typename,rd.typename);
if lt=niln then
inserttypeconv_explicit(left,right.resultdef)
else
inserttypeconv_explicit(right,left.resultdef)
end end
{$ifdef SUPPORT_MMX} {$ifdef SUPPORT_MMX}