paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 23:30:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* simplify tc_bool_2_int

Browse Source 
git-svn-id: trunk@44712 -
This commit is contained in:
florian 2020-04-12 20:50:39 +00:00
parent 8b95fb8377
commit 4d73a9e637
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncnv.pas
View File

@ -3181,6 +3181,7 @@ implementation
{ must be done before code below, because we need the { must be done before code below, because we need the
typeconversions for ordconstn's as well } typeconversions for ordconstn's as well }
case convtype of case convtype of
tc_bool_2_int,
tc_int_2_bool, tc_int_2_bool,
tc_int_2_int: tc_int_2_int:
begin begin
@ -3216,6 +3217,13 @@ implementation
left:=nil; left:=nil;
exit; exit;
end; end;
if (convtype=tc_int_2_int) and (left.nodetype=typeconvn) and (ttypeconvnode(left).convtype=tc_bool_2_int) then
begin
ttypeconvnode(left).resultdef:=resultdef;
result:=left;
left:=nil;
exit;
end;
end; end;
end; end;
else else