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

* fixed -Or cycle for PowerPC64 by adding the missing additional newra methods

Browse Source 
git-svn-id: trunk@1359 -
This commit is contained in:
tom_at_work 2005-10-12 13:16:02 +00:00
parent 51b8a4a132
commit 99120a3f2b
1 changed files with 45 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
compiler/powerpc64/aasmcpu.pas
View File

@ -94,6 +94,9 @@ type
function is_same_reg_move(regtype: Tregistertype): boolean; override;
{ register spilling code }
function spilling_get_operation_type(opnr: longint): topertype;override;
function spilling_get_operation_type_ref(opnr: longint; reg: tregister): topertype;override;
end;
tai_align = class(tai_align_abstract)
@ -378,17 +381,53 @@ end;
{ ****************************** newra stuff *************************** }
function taicpu.is_same_reg_move(regtype: Tregistertype): boolean;
function taicpu.is_same_reg_move(regtype: Tregistertype):boolean;
begin
result :=
(((opcode = A_MR) and
(regtype = R_INTREGISTER)) or
((opcode = A_FMR) and
(regtype = R_FPUREGISTER))) and
(((opcode=A_MR) and
(regtype = R_INTREGISTER)) or
((opcode = A_FMR) and
(regtype = R_FPUREGISTER))) and
{ these opcodes can only have registers as operands }
(oper[0]^.reg = oper[1]^.reg);
(oper[0]^.reg=oper[1]^.reg);
end;
function taicpu.spilling_get_operation_type(opnr: longint): topertype;
begin
result := operand_read;
case opcode of
A_STMW,A_LMW:
internalerror(2005021805);
A_STBU, A_STBUX, A_STHU, A_STHUX,
A_STWU, A_STWUX, A_STDU, A_STDUX,
A_STFSU, A_STFSUX, A_STFDU, A_STFDUX,
A_STB, A_STBX, A_STH, A_STHX,
A_STW, A_STWX, A_STD, A_STDX,
A_STFS, A_STFSX, A_STFD, A_STFDX, A_STFIWX, A_STHBRX, A_STWBRX, A_STWCX_, A_STDCX_,
A_CMP, A_CMPI, A_CMPL, A_CMPLI, A_CMPD, A_CMPDI, A_CMPLD, A_CMPLDI,
A_DCBA, A_DCBI, A_DCBST, A_DCBT, A_DCBTST, A_DCBZ,
A_ECOWX, A_FCMPO, A_FCMPU, A_MTMSR, A_TLBIE, A_TW, A_TWI, A_MFXER,
A_CMPWI, A_CMPW, A_CMPLWI, A_CMPLW, A_MT, A_MTLR, A_MTCTR:;
else
if opnr = 0 then
result := operand_write;
end;
end;
function taicpu.spilling_get_operation_type_ref(opnr: longint; reg: tregister): topertype;
begin
result := operand_read;
case opcode of
A_STBU, A_STBUX, A_STHU, A_STHUX, A_STWU, A_STWUX, A_STDU, A_STDUX,
A_STFSU, A_STFSUX, A_STFDU, A_STFDUX:
if (oper[opnr]^.ref^.base = reg) then
result := operand_readwrite;
end;
end;
function spilling_create_load(const ref: treference; r: tregister): tai;
begin
result := taicpu.op_reg_ref(A_LD, r, ref);