paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 18:30:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleanup after all old code from PeepHoleOptPass2 of i386 was moved to the common x86 optimizer class

Browse Source 
git-svn-id: trunk@36147 -
This commit is contained in:
florian 2017-05-07 16:18:37 +00:00
parent cd134ea5bb
commit dd69ab5488
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
compiler/i386/aoptcpu.pas
View File

@ -1742,24 +1742,8 @@ end;
procedure TCPUAsmOptimizer.PeepHoleOptPass2;
{$ifdef DEBUG_AOPTCPU}
procedure DebugMsg(const s: string;p : tai);
begin
asml.insertbefore(tai_comment.Create(strpnew(s)), p);
end;
{$else DEBUG_AOPTCPU}
procedure DebugMsg(const s: string;p : tai);inline;
begin
end;
{$endif DEBUG_AOPTCPU}
var
p,hp1,hp2,hp3: tai;
l : longint;
condition : tasmcond;
carryadd_opcode: Tasmop;
p : tai;
begin
p := BlockStart;
ClearUsedRegs;