Browse Source

agllvm: fix writing strings in metadata arrays

They were interpreted as part of larger strings
Jonas Maebe 3 years ago
parent
commit
b2ea782eb4
1 changed files with 1 additions and 0 deletions
  1. 1 0
      compiler/llvm/agllvm.pas

+ 1 - 0
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;