Ver Fonte

* fixed address calculation when generating pic

git-svn-id: trunk@1759 -
florian há 20 anos atrás
pai
commit
99be25604b
1 ficheiros alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/x86/cgx86.pas

+ 1 - 1
compiler/x86/cgx86.pas

@@ -413,7 +413,7 @@ unit cgx86;
               end
             else
               begin
-                list.concat(taicpu.op_reg_reg(A_ADD,S_Q,ref.base,hreg));
+                list.concat(taicpu.op_reg_reg(A_ADD,S_L,ref.base,hreg));
                 ref.base:=hreg;
               end;
           end;