agllvm: fix writing strings in metadata arrays

They were interpreted as part of larger strings
2025-04-14 00:59:30 +02:00 · 2022-07-06 21:12:57 +02:00 · 2022-07-06 21:12:57 +02:00 · b2ea782eb4
commit b2ea782eb4
parent a8352f3e99
1 changed files with 1 additions and 0 deletions
--- a/compiler/llvm/agllvm.pas
+++ b/compiler/llvm/agllvm.pas
@ -1124,6 +1124,7 @@ implementation
                        writer.AsmWrite(' ');
                        if (tai_abstracttypedconst(p).adetyp=tck_simple) and
                           assigned(tai_simpletypedconst(p).val) and
+                           (tai_simpletypedconst(p).def<>charpointertype) and
                           (tai_simpletypedconst(p).val.typ=ait_string) then
                          begin
                            gotstring:=true;