paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-02 15:02:32 +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 }
{ define RefsHaveScale}
{$define RefsHaveScale}
{ enable the following define if memory references can have a segment }
{ override }
@ -37,6 +37,7 @@ Unit aoptcpub; { Assembler OPTimizer CPU specific Base }
Interface
Uses
aasmtai,cgbase,
cpubase,aasmcpu,AOptBase;
Type
@ -59,6 +60,7 @@ Type
{ ************************************************************************* }
TAoptBaseCpu = class(TAoptBase)
function RegModifiedByInstruction(Reg: TRegister; p1: tai): boolean; override;
End;
@ -112,4 +114,20 @@ Destructor TCondRegs.Done; {$ifdef inl} inline; {$endif inl}
Begin
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.