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

* also try to convert non-set nodes to a set in set operations

Browse Source 
git-svn-id: trunk@7010 -
This commit is contained in:
peter 2007-03-27 18:37:30 +00:00
parent ab22fd42d1
commit e653ab6a22
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nadd.pas
View File

@ -1149,10 +1149,10 @@ implementation
begin
if not(nodetype in [addn,subn,symdifn,muln,equaln,unequaln,lten,gten]) then
CGMessage(type_e_set_operation_unknown);
{ if the right side is also a setdef then the settype must
be the same as the left setdef }
if (rd.typ=setdef) and
not(equal_defs(ld,rd)) then
{ make operands the same setdef, if right is a normalset or varset then
force the left side to be the same. General fallback also for non-set nodes
is to convert right to a set }
if not(equal_defs(ld,rd)) then
begin
if is_varset(rd) or is_normalset(rd) then
inserttypeconv(left,right.resultdef)