Просмотр исходного кода

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

git-svn-id: trunk@36147 -
florian 8 лет назад
Родитель
Сommit
dd69ab5488
1 измененных файлов с 1 добавлено и 17 удалено
  1. 1 17
      compiler/i386/aoptcpu.pas

+ 1 - 17
compiler/i386/aoptcpu.pas

@@ -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;