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

* fixed rol/ror

Browse Source 
git-svn-id: trunk@32556 -
This commit is contained in:
Jonas Maebe 2015-11-29 21:46:10 +00:00
parent da8d276766
commit 3ff265da88
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/llvm/hlcgllvm.pas
View File

@ -799,7 +799,7 @@ implementation
tmpreg2:=getintregister(list,opsize);
tmpreg3:=getintregister(list,opsize);
{ tmpreg1 := tcgsize2size[size] - src1 }
list.concat(taillvm.op_reg_size_const_reg(la_sub,tmpreg1,opsize,opsize.size,src1));
list.concat(taillvm.op_reg_size_const_reg(la_sub,tmpreg1,opsize,opsize.size*8,src1));
{ tmpreg2 := src2 shr tmpreg1 }
a_op_reg_reg_reg(list,OP_SHR,opsize,tmpreg1,src2,tmpreg2);
{ tmpreg3 := src2 shl src1 }
@ -813,7 +813,7 @@ implementation
tmpreg2:=getintregister(list,size);
tmpreg3:=getintregister(list,size);
{ tmpreg1 := tcgsize2size[size] - src1 }
list.concat(taillvm.op_reg_size_const_reg(la_sub,tmpreg1,opsize,opsize.size,src1));
list.concat(taillvm.op_reg_size_const_reg(la_sub,tmpreg1,opsize,opsize.size*8,src1));
{ tmpreg2 := src2 shl tmpreg1 }
a_op_reg_reg_reg(list,OP_SHL,opsize,tmpreg1,src2,tmpreg2);
{ tmpreg3 := src2 shr src1 }