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

Check that inserttypeconv really change node type to ttypeconvnode before setting convtype field (should fix taddbool.pp bytebool failure on powerpc)

Browse Source 
git-svn-id: trunk@42692 -
This commit is contained in:
pierre 2019-08-14 23:00:35 +00:00
parent 81fba52adb
commit f82cc96cb9
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nadd.pas
View File

@ -1663,6 +1663,11 @@ implementation
if is_cbool(ld) then
begin
inserttypeconv(left,pasbool8type);
{ inserttypeconv might already simplify
the typeconvnode after insertion,
thus we need to check if it still
really is a typeconv node }
if left is ttypeconvnode then
ttypeconvnode(left).convtype:=tc_bool_2_bool;
if not is_cbool(rd) or
(ld.size>=rd.size) then
@ -1671,6 +1676,11 @@ implementation
if is_cbool(rd) then
begin
inserttypeconv(right,pasbool8type);
{ inserttypeconv might already simplify
the typeconvnode after insertion,
thus we need to check if it still
really is a typeconv node }
if right is ttypeconvnode then
ttypeconvnode(right).convtype:=tc_bool_2_bool;
if not assigned(resultdef) then
resultdef:=rd;