Explorar o código

* Update instruction segment prefix when copying operands from another instruction, Mantis #18113.

git-svn-id: trunk@22067 -
sergei %!s(int64=13) %!d(string=hai) anos
pai
achega
de34f58284
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      compiler/aasmtai.pas

+ 4 - 0
compiler/aasmtai.pas

@@ -2285,6 +2285,10 @@ implementation
                 begin
                   new(ref);
                   ref^:=o.ref^;
+{$ifdef x86}
+                  if (ref^.segment<>NR_NO) and (ref^.segment<>NR_DS) then
+                    segprefix:=ref^.segment;
+{$endif x86}
                   if assigned(add_reg_instruction_hook) then
                     begin
                       add_reg_instruction_hook(self,ref^.base);