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

+ ppc implementations of subsetreg routines

Browse Source 
git-svn-id: trunk@3758 -
This commit is contained in:
Jonas Maebe 2006-05-31 19:01:08 +00:00
parent 9d0610564c
commit 3a3651a050
1 changed files with 48 additions and 0 deletions

48
compiler/powerpc/cgcpu.pas
View File

@ -64,6 +64,13 @@ unit cgcpu;
procedure a_load_ref_reg(list : TAsmList; fromsize, tosize : tcgsize;const Ref : treference;reg : tregister);override;
procedure a_load_reg_reg(list : TAsmList; fromsize, tosize : tcgsize;reg1,reg2 : tregister);override;
procedure a_load_subsetreg_reg(list : TAsmList; subsetregsize, subsetsize: tcgsize;
startbit: byte; tosize: tcgsize; subsetreg, destreg: tregister); override;
procedure a_load_reg_subsetreg(list : TAsmList; fromsize: tcgsize; subsetregsize,
subsetsize: tcgsize; startbit: byte; fromreg, subsetreg: tregister); override;
procedure a_load_subsetreg_subsetreg(list: TAsmlist; fromsubsetregsize, fromsubsetsize: tcgsize; fromstartbit: byte;
tosubsetregsize, tosubsetsize: tcgsize; tostartbit: byte; fromsubsetreg, tosubsetreg: tregister); override;
{ fpu move instructions }
procedure a_loadfpu_reg_reg(list: TAsmList; size: tcgsize; reg1, reg2: tregister); override;
procedure a_loadfpu_ref_reg(list: TAsmList; size: tcgsize; const ref: treference; reg: tregister); override;
@ -548,6 +555,47 @@ const
end;
procedure tcgppc.a_load_subsetreg_reg(list : TAsmList; subsetregsize, subsetsize: tcgsize;
startbit: byte; tosize: tcgsize; subsetreg, destreg: tregister);
begin
if (tcgsize2size[subsetsize] <> sizeof(aint)) then
begin
list.concat(taicpu.op_reg_reg_const_const_const(A_RLWINM,destreg,
subsetreg,(32-startbit) and 31,32-tcgsize2size[subsetsize]*8,31));
a_load_reg_reg(list,tcgsize2unsigned[subsetsize],subsetsize,destreg,destreg);
a_load_reg_reg(list,subsetsize,tosize,destreg,destreg);
end
else
a_load_reg_reg(list,subsetsize,tosize,subsetreg,destreg);
end;
procedure tcgppc.a_load_reg_subsetreg(list : TAsmList; fromsize: tcgsize; subsetregsize,
subsetsize: tcgsize; startbit: byte; fromreg, subsetreg: tregister);
begin
if ((tcgsize2size[subsetsize]) <> sizeof(aint)) then
list.concat(taicpu.op_reg_reg_const_const_const(A_RLWIMI,subsetreg,fromreg,
startbit,32-startbit-tcgsize2size[subsetsize]*8,31-startbit))
else
a_load_reg_reg(list,fromsize,subsetsize,fromreg,subsetreg);
end;
procedure tcgppc.a_load_subsetreg_subsetreg(list: TAsmlist; fromsubsetregsize, fromsubsetsize: tcgsize; fromstartbit: byte;
tosubsetregsize, tosubsetsize: tcgsize; tostartbit: byte; fromsubsetreg, tosubsetreg: tregister);
begin
if (tcgsize2size[fromsubsetsize] >= tcgsize2size[tosubsetsize]) then
list.concat(taicpu.op_reg_reg_const_const_const(A_RLWIMI,tosubsetreg, fromsubsetreg,
(tostartbit-fromstartbit) and 31,
32-tostartbit-tcgsize2size[tosubsetsize]*8,31-tostartbit))
else
inherited a_load_subsetreg_subsetreg(list,fromsubsetregsize,fromsubsetsize,fromstartbit,tosubsetregsize,tosubsetsize,tostartbit,fromsubsetreg,tosubsetreg);
end;
procedure tcgppc.a_loadfpu_reg_reg(list: TAsmList; size: tcgsize; reg1, reg2: tregister);
var