git-svn-id: trunk@6182 -
@@ -32,13 +32,13 @@ var
retaddr: pointer;
asm
mflr r0
-{$ifndef cpu64bit}
+{$ifndef cpu64}
stw r0, retaddr
{$else}
std r0, retaddr
{$endif}
bl TMyObject.Test2
lwz r0, retaddr
ld r0, retaddr
@@ -12,7 +12,7 @@ type
procedure tc.test; assembler;
-{$ifdef cpu64bit}
+{$ifdef cpu64}
ld r4,0(r3)
ld r4,+vmtoffset tc.v(r4)