瀏覽代碼

* fixed datadef for untyped string constants (terminating #0 is one
character, not two)

git-svn-id: branches/hlcgllvm@28320 -

Jonas Maebe 11 年之前
父節點
當前提交
4f906fb9c9
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      compiler/llvm/nllvmcon.pas

+ 1 - 1
compiler/llvm/nllvmcon.pas

@@ -69,7 +69,7 @@ implementation
                   constants (-> excludes terminating #0) and pchars (-> includes
                   terminating #0). The resultdef excludes the #0 while the data
                   includes it -> insert typecast from datadef to resultdef }
-                datadef:=getarraydef(cansichartype,len+2);
+                datadef:=getarraydef(cansichartype,len+1);
               cst_shortstring:
                 { the resultdef of the string constant is the type of the
                   string to which it is assigned, which can be longer or shorter