Преглед изворни кода

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;