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

* don't keep tc_equal type conversions for LLVM in case the resultdef doesn't

Browse Source 
change, since then we definitely don't have to insert a type conversion at
    the LLVM level either (fixes webtbs/tw1901 for LLVM)

git-svn-id: trunk@35057 -
This commit is contained in:
Jonas Maebe 2016-12-04 11:15:09 +00:00
parent a8e107bb4b
commit a2017b2327
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncnv.pas
View File

@ -2209,19 +2209,20 @@ implementation
to different kinds of refcounting helpers } to different kinds of refcounting helpers }
(resultdef=left.resultdef)) then (resultdef=left.resultdef)) then
begin begin
{$ifndef llvm} {$ifdef llvm}
{ we still may have to insert a type conversion at the
llvm level }
if left.resultdef<>resultdef then
result:=nil
else
{$endif llvm}
begin
left.resultdef:=resultdef; left.resultdef:=resultdef;
if (nf_explicit in flags) and (left.nodetype = addrn) then if (nf_explicit in flags) and (left.nodetype = addrn) then
include(left.flags, nf_typedaddr); include(left.flags, nf_typedaddr);
result:=left; result:=left;
left:=nil; left:=nil;
{$else llvm} end;
{ we still may have to insert a type conversion at the
llvm level }
if (nf_explicit in flags) and (left.nodetype = addrn) then
include(flags, nf_typedaddr);
result:=nil;
{$endif llvm}
exit; exit;
end; end;
end; end;