paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 15:31:29 +01: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

8
compiler/ncnv.pas
View File

@ -1153,13 +1153,6 @@ implementation
function ttypeconvnode.typecheck_set_to_set : tnode; function ttypeconvnode.typecheck_set_to_set : tnode;
begin begin
result:=nil; 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 } { constant sets can be converted by changing the type only }
if (left.nodetype=setconstn) then if (left.nodetype=setconstn) then
begin begin
@ -1169,7 +1162,6 @@ implementation
exit; exit;
end; end;
end; end;
end;
function ttypeconvnode.typecheck_pchar_to_string : tnode; function ttypeconvnode.typecheck_pchar_to_string : tnode;