* x86_64 abis ensure that the direction flag is clear at procedure entry

git-svn-id: trunk@4689 -

compiler/x86/cgx86.pas

@@ -1641,8 +1641,9 @@ unit cgx86;
             a_loadaddr_ref_reg(list,source,REGSI);
 
             getcpuregister(list,REGCX);
-
+{$ifdef i386}
             list.concat(Taicpu.op_none(A_CLD,S_NO));
+{$endif i386}
             if cs_opt_size in aktoptimizerswitches  then
               begin
                 a_load_const_reg(list,OS_INT,len,REGCX);