Sfoglia il codice sorgente

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

Jonas Maebe 3 anni fa
parent
commit
8d2d91d505
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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));