瀏覽代碼

dbgllvm: fix infinite loop when writing multi-dimensional array info

Jonas Maebe 3 年之前
父節點
當前提交
8d2d91d505
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/llvm/dbgllvm.pas

+ 1 - 1
compiler/llvm/dbgllvm.pas

@@ -900,7 +900,7 @@ implementation
             subrangenode.addint64('lowerBound',tarraydef(nesteddef).lowrange);
             list.concat(subrangenode);
             arrayrangenode.addvalue(llvm_getmetadatareftypedconst(subrangenode));
-            nesteddef:=def.elementdef;
+            nesteddef:=tarraydef(nesteddef).elementdef;
           end;
         { the array definition }
         dinode:=def_set_meta_impl(def,tai_llvmspecialisedmetadatanode.create(tspecialisedmetadatanodekind.DICompositeType));