paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-07 16:47:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ DebugMsg for SPARC assembler optimizer

Browse Source 
git-svn-id: trunk@36954 -
This commit is contained in:
florian 2017-08-20 17:20:32 +00:00
parent dba1761a76
commit 265eae2cc1
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/sparcgen/aoptcpu.pas
View File

@ -25,6 +25,8 @@ unit aoptcpu;
{$i fpcdefs.inc}
{ $define DEBUG_AOPTCPU}
Interface
uses
@ -40,6 +42,7 @@ unit aoptcpu;
var AllUsedRegs: TAllUsedRegs): Boolean;
function RegLoadedWithNewValue(reg : tregister; hp : tai) : boolean; override;
function InstructionLoadsFromReg(const reg : TRegister; const hp : tai) : boolean; override;
procedure DebugMsg(const s : string;p : tai);
End;
Implementation
@ -153,6 +156,18 @@ unit aoptcpu;
end;
{$ifdef DEBUG_AOPTCPU}
procedure TCpuAsmOptimizer.DebugMsg(const s: string;p : tai);
begin
asml.insertbefore(tai_comment.Create(strpnew(s)), p);
end;
{$else DEBUG_AOPTCPU}
procedure TCpuAsmOptimizer.DebugMsg(const s: string;p : tai);inline;
begin
end;
{$endif DEBUG_AOPTCPU}
function TCpuAsmOptimizer.TryRemoveMov(var p: tai; opcode: TAsmOp): boolean;
var
next,hp1: tai;
@ -211,6 +226,7 @@ unit aoptcpu;
{ finally get rid of the mov }
taicpu(p).loadreg(2,taicpu(next).oper[1]^.reg);
DebugMsg('Peephole OpMov2Op done',p);
asml.remove(next);
next.free;
end;
@ -252,6 +268,7 @@ unit aoptcpu;
if not RegUsedAfterInstruction(taicpu(p).oper[2]^.reg,next2,TmpUsedRegs) then
begin
taicpu(next2).loadreg(0,taicpu(p).oper[0]^.reg);
DebugMsg('Peephole SLLSRxSTH2STH done',next2);
asml.remove(p);
asml.remove(next);
p.free;