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

m68k: added RegModifiedByInstruction implementation, enabled RefsHaveScale define

Browse Source 
git-svn-id: trunk@29597 -
This commit is contained in:
Károly Balogh 2015-02-01 16:33:26 +00:00
parent 0d944c8b1d
commit 3c2031c9c6
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/m68k/aoptcpub.pas
View File

@ -27,7 +27,7 @@ Unit aoptcpub; { Assembler OPTimizer CPU specific Base }
{ enable the following define if memory references can have a scaled index } { enable the following define if memory references can have a scaled index }
{ define RefsHaveScale} {$define RefsHaveScale}
{ enable the following define if memory references can have a segment } { enable the following define if memory references can have a segment }
{ override } { override }
@ -37,6 +37,7 @@ Unit aoptcpub; { Assembler OPTimizer CPU specific Base }
Interface Interface
Uses Uses
aasmtai,cgbase,
cpubase,aasmcpu,AOptBase; cpubase,aasmcpu,AOptBase;
Type Type
@ -59,6 +60,7 @@ Type
{ ************************************************************************* } { ************************************************************************* }
TAoptBaseCpu = class(TAoptBase) TAoptBaseCpu = class(TAoptBase)
function RegModifiedByInstruction(Reg: TRegister; p1: tai): boolean; override;
End; End;
@ -112,4 +114,20 @@ Destructor TCondRegs.Done; {$ifdef inl} inline; {$endif inl}
Begin Begin
End; End;
function TAoptBaseCpu.RegModifiedByInstruction(Reg: TRegister; p1: tai): boolean;
var
i : Longint;
begin
result:=false;
for i:=0 to taicpu(p1).ops-1 do
case taicpu(p1).oper[i]^.typ of
top_reg:
if (taicpu(p1).oper[i]^.reg=Reg) and (taicpu(p1).spilling_get_operation_type(i) in [operand_write,operand_readwrite]) then
exit(true);
top_ref:
if (taicpu(p1).spilling_get_operation_type_ref(i,Reg)<>operand_read) then
exit(true);
end;
end;
End. End.