paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 02:29:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Jonas Maebe 2022-04-29 22:01:45 +02:00
parent a7e19e9f06
commit 8d2d91d505
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/dbgllvm.pas
View File

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