64-bit FillDWord inline assembly in Delphi?

[doctorlai]

The 32-bit version of FillDWord looks like this:

Code: Select all

procedure FillDWord(var Dest; Count, What: dword); assembler ;
asm
  PUSH EDI
    MOV EDI, Dest
    MOV EAX, What
    MOV ECX, Count
    CLD
    REP STOSD
  POP EDI
end;

How about 64 bit version in delphi? any one knows?