paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 02:33:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed datadef for untyped string constants (terminating #0 is one

Browse Source 
character, not two)

git-svn-id: branches/hlcgllvm@28320 -
This commit is contained in:
Jonas Maebe 2014-08-06 18:04:19 +00:00
parent 53a5ccbfba
commit 4f906fb9c9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/llvm/nllvmcon.pas
View File

@ -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