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

* define renamed

Browse Source 
git-svn-id: trunk@43531 -
This commit is contained in:
florian 2019-11-21 19:58:48 +00:00
parent bfb4b885ca
commit 61bf55e0fe
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/aoptobj.pas
View File

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