paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 07:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

llvmdbg: disable open array data location

Browse Source 
Since we don't generate full debug info for parameters yet, this internalerrors
This commit is contained in:
Jonas Maebe 2022-05-14 08:33:52 +02:00
parent fd125b506e
commit cddffbed58
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/llvm/dbgllvm.pas
View File

@ -835,6 +835,7 @@ implementation
which is not possible here since we need the parasym rather than the def }
if is_open_array(def) then
begin
(*
if llvmflag_array_datalocation in llvmversion_properties[current_settings.llvmversion] then
begin
dinode:=def_meta_impl(def);
@ -842,7 +843,7 @@ implementation
if not assigned(dinode) then
internalerror(2021112002);
end
else
else *)
begin
{ no idea about the size, generate an array of 1 element -- although it could be empty }
appenddef_array_internal(list,def,def.elementdef,0,1);