git-svn-id: trunk@31744 -
@@ -589,7 +589,9 @@ implementation
alignmentrequirement,
len : aint;
r : tregister;
+ {$if not defined(cpu64bitalu) and not defined(x86)}
r64 : tregister64;
+ {$endif}
oldflowcontrol : tflowcontrol;
begin
{ previously, managed types were handled in firstpass
@@ -230,7 +230,9 @@ interface
procedure tx86notnode.second_boolean;
var
opsize : tcgsize;
+ {$if defined(cpu32bitalu)}
hreg: tregister;
opsize:=def_cgsize(resultdef);
@@ -153,7 +153,6 @@ function MatchReference(const ref : treference;base,index : TRegister) : Boolean
function TCpuAsmOptimizer.PeepHoleOptPass1Cpu(var p: tai): boolean;
- next1: tai;
hp1, hp2: tai;
GetNextIntruction_p : boolean;
TmpUsedRegs : TAllUsedRegs;