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

* handle any char constant -> p(wide)char conversions via cunicodestringtype

Browse Source 
because the compiler cannot convert arbitrary unicodechar constants at
  compile time to a shortstring (since it doesn't know the code page to use)
  (test part of next commit)

git-svn-id: branches/cpstrrtl@25429 -
This commit is contained in:
Jonas Maebe 2013-09-06 08:02:52 +00:00
parent 3c3ad705f1
commit b3b404db4b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/ncnv.pas
View File

@ -1458,10 +1458,10 @@ implementation
begin
result:=nil;
if is_pwidechar(resultdef) then
inserttypeconv(left,cunicodestringtype)
else
inserttypeconv(left,cshortstringtype);
{ handle any constants via cunicodestringtype because the compiler
cannot convert arbitrary unicodechar constants at compile time to
a shortstring (since it doesn't know the code page to use) }
inserttypeconv(left,cunicodestringtype);
{ evaluate again, reset resultdef so the convert_typ
will be calculated again and cstring_to_pchar will
be used for futher conversion }