瀏覽代碼

+ support absolute addresses on llvm (fixes tests/webtbs/tw12685 for llvm)

git-svn-id: trunk@34124 -
Jonas Maebe 9 年之前
父節點
當前提交
9b7e7c5298
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/llvm/hlcgllvm.pas

+ 2 - 2
compiler/llvm/hlcgllvm.pas

@@ -1851,8 +1851,8 @@ implementation
           a_load_reg_reg(list,ptrdef,ptruinttype,ref.base,hreg1);
         end
       else
-        { todo: support for absolute addresses on embedded platforms }
-        internalerror(2012111302);
+        { for absolute addresses }
+        a_load_const_reg(list,ptruinttype,0,hreg1);
       if ref.index<>NR_NO then
         begin
           { SSA... }