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

merge r17327 from cpstrnew branch by michael:

Browse Source 
* Patch from Inoussa to fix first test case

git-svn-id: trunk@19105 -
This commit is contained in:
paul 2011-09-17 13:04:50 +00:00
parent 9e0ad7baae
commit fbc01291c4
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ncnv.pas
View File

@ -1431,6 +1431,21 @@ implementation
addstatement(newstat,ctemprefnode.create(restemp));
result:=newblock;
end
else if tstringdef(resultdef).stringtype=st_ansistring then
begin
result:=ccallnode.createinternres(
'fpc_pwidechar_to_'+tstringdef(resultdef).stringtypname,
ccallparanode.create(
cordconstnode.create(
tstringdef(resultdef).encoding,
u16inttype,
true
),
ccallparanode.create(left,nil)
),
resultdef
);
end
else
result := ccallnode.createinternres(
'fpc_pwidechar_to_'+tstringdef(resultdef).stringtypname,