paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:50:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* small optimizations for the subsetreg functions

Browse Source 
git-svn-id: trunk@3763 -
This commit is contained in:
tom_at_work 2006-06-01 20:57:54 +00:00
parent 9adc2c7a14
commit 9a5885b8d2
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/powerpc64/cgcpu.pas
View File

@ -875,6 +875,7 @@ begin
op := movemap[fromsize, tosize];
case op of
A_MR, A_EXTSB, A_EXTSH, A_EXTSW : instr := taicpu.op_reg_reg(op, reg2, reg1);
// note: have a look at this ([fromsize] shouldn't that be [tosize]??)
A_RLDICL : instr := taicpu.op_reg_reg_const_const(A_RLDICL, reg2, reg1, 0, (8-tcgsize2size[fromsize])*8);
else
internalerror(2002090901);
@ -897,6 +898,7 @@ begin
extrdi_startbit := 64 - (tcgsize2size[subsetsize]*8 + startbit);
if (startbit <> 0) then begin
list.concat(taicpu.op_reg_reg_const_const(A_EXTRDI, destreg, subsetreg, tcgsize2size[subsetsize]*8, extrdi_startbit));
a_load_reg_reg(list, tcgsize2unsigned[subsetsize], tosize, destreg, destreg);
a_load_reg_reg(list, subsetsize, tosize, destreg, destreg);
end else
a_load_reg_reg(list, subsetsize, tosize, subsetreg, destreg);
@ -908,7 +910,11 @@ begin
{$ifdef extdebug}
list.concat(tai_comment.create(strpnew('a_load_reg_subsetreg fromsize = ' + cgsize2string(fromsize) + ' subsetregsize = ' + cgsize2string(subsetregsize) + ' subsetsize = ' + cgsize2string(subsetsize) + ' startbit = ' + IntToStr(startbit))));
{$endif}
list.concat(taicpu.op_reg_reg_const_const(A_INSRDI, subsetreg, fromreg, tcgsize2size[subsetsize]*8, (64 - (startbit + tcgsize2size[subsetsize]*8)) and 63));
// simply use the INSRDI instruction for now
if (tcgsize2size[subsetsize] <> sizeof(aint)) then
list.concat(taicpu.op_reg_reg_const_const(A_INSRDI, subsetreg, fromreg, tcgsize2size[subsetsize]*8, (64 - (startbit + tcgsize2size[subsetsize]*8)) and 63))
else
a_load_reg_reg(list, fromsize, subsetsize, fromreg, subsetreg);
end;
procedure tcgppc.a_load_const_subsetreg(list: TAsmlist; subsetregsize, subsetsize: tcgsize;