|
@@ -24,7 +24,7 @@
|
|
|
}
|
|
}
|
|
|
Unit AoptObj;
|
|
Unit AoptObj;
|
|
|
|
|
|
|
|
-{ $define DEBUG_AOPTCPU}
|
|
|
|
|
|
|
+{ $define DEBUG_AOPTOBJ}
|
|
|
{ $define DEBUG_JUMP}
|
|
{ $define DEBUG_JUMP}
|
|
|
|
|
|
|
|
{$i fpcdefs.inc}
|
|
{$i fpcdefs.inc}
|
|
@@ -443,15 +443,15 @@ Unit AoptObj;
|
|
|
procinfo;
|
|
procinfo;
|
|
|
|
|
|
|
|
|
|
|
|
|
-{$ifdef DEBUG_AOPTCPU}
|
|
|
|
|
|
|
+{$ifdef DEBUG_AOPTOBJ}
|
|
|
const
|
|
const
|
|
|
SPeepholeOptimization: shortstring = 'Peephole Optimization: ';
|
|
SPeepholeOptimization: shortstring = 'Peephole Optimization: ';
|
|
|
-{$else DEBUG_AOPTCPU}
|
|
|
|
|
|
|
+{$else DEBUG_AOPTOBJ}
|
|
|
{ Empty strings help the optimizer to remove string concatenations that won't
|
|
{ Empty strings help the optimizer to remove string concatenations that won't
|
|
|
ever appear to the user on release builds. [Kit] }
|
|
ever appear to the user on release builds. [Kit] }
|
|
|
const
|
|
const
|
|
|
SPeepholeOptimization = '';
|
|
SPeepholeOptimization = '';
|
|
|
-{$endif DEBUG_AOPTCPU}
|
|
|
|
|
|
|
+{$endif DEBUG_AOPTOBJ}
|
|
|
|
|
|
|
|
|
|
|
|
|
function JumpTargetOp(ai: taicpu): poper; inline;
|
|
function JumpTargetOp(ai: taicpu): poper; inline;
|
|
@@ -952,16 +952,16 @@ Unit AoptObj;
|
|
|
inherited Destroy;
|
|
inherited Destroy;
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
-{$ifdef DEBUG_AOPTCPU}
|
|
|
|
|
|
|
+{$ifdef DEBUG_AOPTOBJ}
|
|
|
procedure TAOptObj.DebugMsg(const s: string;p : tai);
|
|
procedure TAOptObj.DebugMsg(const s: string;p : tai);
|
|
|
begin
|
|
begin
|
|
|
asml.insertbefore(tai_comment.Create(strpnew(s)), p);
|
|
asml.insertbefore(tai_comment.Create(strpnew(s)), p);
|
|
|
end;
|
|
end;
|
|
|
-{$else DEBUG_AOPTCPU}
|
|
|
|
|
|
|
+{$else DEBUG_AOPTOBJ}
|
|
|
procedure TAOptObj.DebugMsg(const s: string;p : tai);inline;
|
|
procedure TAOptObj.DebugMsg(const s: string;p : tai);inline;
|
|
|
begin
|
|
begin
|
|
|
end;
|
|
end;
|
|
|
-{$endif DEBUG_AOPTCPU}
|
|
|
|
|
|
|
+{$endif DEBUG_AOPTOBJ}
|
|
|
|
|
|
|
|
procedure TAOptObj.CreateUsedRegs(var regs: TAllUsedRegs);
|
|
procedure TAOptObj.CreateUsedRegs(var regs: TAllUsedRegs);
|
|
|
var
|
|
var
|
florian