paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some newra optimizations (eliminate lots of moves between registers)

Browse Source
This commit is contained in:
Jonas Maebe 2003-08-18 21:27:00 +00:00
parent 86fde70d18
commit 11e98e7d73
2 changed files with 28 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/powerpc/aasmcpu.pas
View File

@ -425,7 +425,13 @@ uses cutils,rgobj;
function taicpu.is_move:boolean; function taicpu.is_move:boolean;
begin begin
is_move := opcode = A_MR; is_move := (opcode = A_MR) or
(opcode = A_EXTSB) or
(opcode = A_EXTSH) or
((opcode = A_RLWINM) and
(oper[3].val = 0) and
(oper[5].val = 31) and
(oper[4].val in [31-8+1,31-16+1]));
end; end;
@ -717,7 +723,10 @@ uses cutils,rgobj;
end. end.
{ {
$Log$ $Log$
Revision 1.14 2003-08-17 16:53:19 jonas Revision 1.15 2003-08-18 21:27:00 jonas
* some newra optimizations (eliminate lots of moves between registers)
Revision 1.14 2003/08/17 16:53:19 jonas
* fixed compilation of ppc compiler with -dnewra * fixed compilation of ppc compiler with -dnewra
Revision 1.13 2003/08/11 21:18:20 peter Revision 1.13 2003/08/11 21:18:20 peter

25
compiler/powerpc/cgcpu.pas
View File

@ -450,6 +450,8 @@ const
procedure tcgppc.a_load_reg_reg(list : taasmoutput;fromsize, tosize : tcgsize;reg1,reg2 : tregister); procedure tcgppc.a_load_reg_reg(list : taasmoutput;fromsize, tosize : tcgsize;reg1,reg2 : tregister);
var
instr: taicpu;
begin begin
if (reg1.enum<>R_INTREGISTER) or (reg1.number = 0) then if (reg1.enum<>R_INTREGISTER) or (reg1.number = 0) then
internalerror(200303101); internalerror(200303101);
@ -463,19 +465,23 @@ const
begin begin
case tosize of case tosize of
OS_8: OS_8:
list.concat(taicpu.op_reg_reg_const_const_const(A_RLWINM, instr := taicpu.op_reg_reg_const_const_const(A_RLWINM,
reg2,reg1,0,31-8+1,31)); reg2,reg1,0,31-8+1,31);
OS_S8: OS_S8:
list.concat(taicpu.op_reg_reg(A_EXTSB,reg2,reg1)); instr := taicpu.op_reg_reg(A_EXTSB,reg2,reg1);
OS_16: OS_16:
list.concat(taicpu.op_reg_reg_const_const_const(A_RLWINM, instr := taicpu.op_reg_reg_const_const_const(A_RLWINM,
reg2,reg1,0,31-16+1,31)); reg2,reg1,0,31-16+1,31);
OS_S16: OS_S16:
list.concat(taicpu.op_reg_reg(A_EXTSH,reg2,reg1)); instr := taicpu.op_reg_reg(A_EXTSH,reg2,reg1);
OS_32,OS_S32: OS_32,OS_S32:
list.concat(taicpu.op_reg_reg(A_MR,reg2,reg1)); instr := taicpu.op_reg_reg(A_MR,reg2,reg1);
else internalerror(2002090901); else internalerror(2002090901);
end; end;
list.concat(instr);
{$ifdef newra}
rg.add_move_instruction(instr);
{$endif newra}
end; end;
end; end;
@ -2655,7 +2661,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.121 2003-08-18 11:50:55 olle Revision 1.122 2003-08-18 21:27:00 jonas
* some newra optimizations (eliminate lots of moves between registers)
Revision 1.121 2003/08/18 11:50:55 olle
+ cleaning up in proc entry and exit, now calc_stack_frame always is used. + cleaning up in proc entry and exit, now calc_stack_frame always is used.
Revision 1.120 2003/08/17 16:59:20 jonas Revision 1.120 2003/08/17 16:59:20 jonas