* fixed Tcgx86.g_concatcopy not using the correct push instruction size when

  pushing the source segment

git-svn-id: trunk@27389 -

compiler/x86/cgx86.pas

@@ -2473,9 +2473,9 @@ unit cgx86;
                 srcref:=source;
                 srcref.segment:=NR_NO;
                 a_loadaddr_ref_reg(list,srcref,REGSI);
-                list.concat(taicpu.op_reg(A_PUSH,S_L,NR_DS));
-                list.concat(taicpu.op_reg(A_PUSH,S_L,source.segment));
-                list.concat(taicpu.op_reg(A_POP,S_L,NR_DS));
+                list.concat(taicpu.op_reg(A_PUSH,push_segment_size,NR_DS));
+                list.concat(taicpu.op_reg(A_PUSH,push_segment_size,source.segment));
+                list.concat(taicpu.op_reg(A_POP,push_segment_size,NR_DS));
               end;
 
             getcpuregister(list,REGCX);