瀏覽代碼

agllvm: fix writing strings in metadata arrays

They were interpreted as part of larger strings
Jonas Maebe 3 年之前
父節點
當前提交
b2ea782eb4
共有 1 個文件被更改,包括 1 次插入0 次删除
  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;