paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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 begin
result:=nil; result:=nil;
if is_pwidechar(resultdef) then { handle any constants via cunicodestringtype because the compiler
inserttypeconv(left,cunicodestringtype) cannot convert arbitrary unicodechar constants at compile time to
else a shortstring (since it doesn't know the code page to use) }
inserttypeconv(left,cshortstringtype); inserttypeconv(left,cunicodestringtype);
{ evaluate again, reset resultdef so the convert_typ { evaluate again, reset resultdef so the convert_typ
will be calculated again and cstring_to_pchar will will be calculated again and cstring_to_pchar will
be used for futher conversion } be used for futher conversion }