Ver código fonte

* fixed writing of constant operands outside the longint range

git-svn-id: branches/hlcgllvm@27005 -
Jonas Maebe 11 anos atrás
pai
commit
358b346bbc
1 arquivos alterados com 1 adições e 1 exclusões
  1. 1 1
      compiler/llvm/agllvm.pas

+ 1 - 1
compiler/llvm/agllvm.pas

@@ -235,7 +235,7 @@ implementation
          top_reg:
          top_reg:
            getopstr:=getregisterstring(o.reg);
            getopstr:=getregisterstring(o.reg);
          top_const:
          top_const:
-           getopstr:=tostr(longint(o.val));
+           getopstr:=tostr(int64(o.val));
          top_ref:
          top_ref:
            if o.ref^.refaddr=addr_full then
            if o.ref^.refaddr=addr_full then
              begin
              begin