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

* in case a 32x32 -> 64 multiplication is converted into shl, the type casts need to be restored

Browse Source 
git-svn-id: trunk@44197 -
This commit is contained in:
florian 2020-02-16 20:14:27 +00:00
parent 9989d408fd
commit 27e89e07a3
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nadd.pas
View File

@ -3903,6 +3903,10 @@ implementation
((right.nodetype = ordconstn) and ((right.nodetype = ordconstn) and
ispowerof2(tordconstnode(right).value,i2))) then ispowerof2(tordconstnode(right).value,i2))) then
begin begin
{ it could be that we are converting a 32x32 -> 64 multiplication:
in this case, we have to restore the type conversion }
inserttypeconv_internal(left,resultdef);
inserttypeconv_internal(right,resultdef);
if ((left.nodetype = ordconstn) and if ((left.nodetype = ordconstn) and
ispowerof2(tordconstnode(left).value,i)) then ispowerof2(tordconstnode(left).value,i)) then
begin begin