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

* better set_to_set for setconst nodes

Browse Source 
git-svn-id: trunk@6656 -
This commit is contained in:
florian 2007-02-25 21:07:32 +00:00
parent 5b8dd4c004
commit 821e6abae1
1 changed files with 8 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/ncnv.pas
View File

@ -1153,22 +1153,14 @@ implementation
function ttypeconvnode.typecheck_set_to_set : tnode;
begin
result:=nil;
{ because is_equal only checks the basetype for sets we need to
check here if we are loading a smallset into a normalset }
if (resultdef.typ=setdef) and
(left.resultdef.typ=setdef) and
((tsetdef(resultdef).setmax<>tsetdef(left.resultdef).setmax) or
(tsetdef(resultdef).setbase<>tsetdef(left.resultdef).setbase)) then
begin
{ constant sets can be converted by changing the type only }
if (left.nodetype=setconstn) then
begin
left.resultdef:=resultdef;
result:=left;
left:=nil;
exit;
end;
end;
{ constant sets can be converted by changing the type only }
if (left.nodetype=setconstn) then
begin
left.resultdef:=resultdef;
result:=left;
left:=nil;
exit;
end;
end;