git-svn-id: trunk@34405 -
@@ -136,10 +136,6 @@ var
pd : tprocdef;
anyhasalias : boolean;
i : longint;
-{$ifdef x86}
- sym : tasmsymbol;
- r : treference;
-{$endif x86}
begin
pd:=nil;
create_hlcodegen;
@@ -584,8 +584,6 @@ var
TmpRef: TReference;
- TmpUsedRegs: TAllUsedRegs;
-
TmpBool1, TmpBool2: Boolean;
function GetFinalDestination(asml: TAsmList; hp: taicpu; level: longint): boolean;
@@ -179,9 +179,6 @@ unit cpugas;
Op: TAsmOp;
s: string;
i: integer;
- tmpfpu: string;
- //tmpfpu_len: longint;
- r: TRegister;
if hp.typ <> ait_instruction then
exit;
@@ -50,8 +50,6 @@ uses
function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
var
hp1, hp2: tai;
- GetNextIntruction_p : boolean;
- TmpUsedRegs : TAllUsedRegs;
Result := False;
case p.typ of