Delphi XE7 64位汇编

Delphi XE7 在64位使用内嵌汇编时,不再支持内嵌语句方式,只能是过程,同时在寄存器使用上也有变化,如取CPUID的代码变成如下


type
  TCPUIDARRAY = array[1..4] of Longint;

{$IFDEF CPUX64}

function GetCPUID : TCPUIDARRAY; assembler;register;
asm
  PUSH    RBX          {Save affected register}
  PUSH    RDI
  MOV     RDI,RCX      {@Result}
  MOV     EAX,1
  CPUID
  mov    [rdi], eax;
  mov    [rdi+4], ebx;
  mov    [rdi+8], ecx;
  mov    [rdi+12], edx;
  POP     RDI     {Restore registers}
  POP     RBX
end;

{$ELSE}

function GetCPUID : TCPUIDARRAY; assembler;register;
asm
  PUSH    EBX          {Save affected register}
  PUSH    EDI
  MOV     EDI,EAX      {@Result}
  MOV     EAX,1
  DW      $A20F        {CPUID Command}
  STOSD   {CPUID[1]}
  MOV     EAX,EBX
  STOSD                {CPUID[2]}
  MOV     EAX,ECX
  STOSD                {CPUID[3]}
  MOV     EAX,EDX
  STOSD                {CPUID[4]}
  POP     EDI     {Restore registers}
  POP     EBX
end;

{$ENDIF}


另外64位下对象的函数,Self 指针是 RCX 不是 RAX





阅读更多
想对作者说点什么? 我来说一句

DELPHI 64位的MD5测试例子

2012年03月03日 739KB 下载

没有更多推荐了,返回首页

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭