paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 10:59:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed 'int64 shl/shr 0' on ppc32

Browse Source 
git-svn-id: trunk@21841 -
This commit is contained in:
Jonas Maebe 2012-07-10 09:24:26 +00:00
parent 63ab1bae3e
commit 92b4c84dae
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/powerpc/nppcmat.pas
View File

@ -403,7 +403,13 @@ end;
cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_32,0,location.register64.reglo);
cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_32,0,location.register64.reglo);
end
else } if shiftval > 31 then
else }
if shiftval = 0 then
begin
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_32,OS_32,left.location.register64.reghi,location.register64.reghi);
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_32,OS_32,left.location.register64.reglo,location.register64.reglo);
end
else if shiftval > 31 then
begin
if nodetype = shln then
begin