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

dbgllvm: handle array of const (stub)

Browse Source
This commit is contained in:
Jonas Maebe 2022-04-28 21:56:46 +02:00
parent aec7aefdd5
commit 91563115c4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/llvm/dbgllvm.pas
View File

@ -844,6 +844,13 @@ implementation
exit; exit;
end; end;
if is_array_of_const(def) then
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);
exit;
end;
if is_special_array(def) if is_special_array(def)
and not((llvmflag_array_datalocation in llvmversion_properties[current_settings.llvmversion]) and and not((llvmflag_array_datalocation in llvmversion_properties[current_settings.llvmversion]) and
is_dynamic_array(def)) then is_dynamic_array(def)) then