* Fix incorrect instruction size

git-svn-id: trunk@15935 -

rtl/win64/system.pp

@@ -408,14 +408,14 @@ procedure Exe_entry;[public,alias:'_FPC_EXE_Entry'];
      end;
      StackTop:=st;
      asm
-        xorl %rax,%rax
+        xorq %rax,%rax
         movw %ss,%ax
 {$ifdef FPC_HAS_RIP_RELATIVE}
         movl %eax,_SS(%rip)
 {$else}
         movl %eax,_SS
 {$endif}
-        xorl %rbp,%rbp
+        xorq %rbp,%rbp
         call PASCALMAIN
         popq %rbp
         popq %rax