git-svn-id: trunk@40185 -
@@ -152,8 +152,7 @@ end;
procedure TCPUAsmOptimizer.PrePeepHoleOpts;
var
- p,hp1: tai;
- tmpRef: treference;
+ p: tai;
begin
p := BlockStart;
while (p <> BlockEnd) Do
@@ -722,7 +722,6 @@ unit aoptx86;
opsize : topsize;
hp1 : tai;
tmpref : treference;
- hp2 : taicpu;
ShiftValue : Cardinal;
BaseValue : TCGInt;